Segítene valaki nekem ezt megírni FOR ciklussal FreePascalba?
Készítsünk programot, amely bekér egy N természetes számot, majd kirajzol a képernyőre egymás mellé N-szer az "XO" betűket és a kiírás után a kurzort a következő sor elejére teszi.
Például N=3-ra kiírja ezt a program:
XOXOXO
Egészítsük ki az előző programunkat úgy, hogy az előző kiírás alá írja ki N-szer az "OX" betűket is egymás mellé, majd a kurzort ismét a következő sor elejére tegye. (Az előző ciklus után - NE bele a ciklusba! - tegyünk egy hasonló ciklust, ami most XO helyett OX betűket ír ki.)
Például N=3-ra kiírja ezt a program:
XOXOXO
OXOXOX
Egészítsük ki a programunkat úgy, hogy az előző két sort N-szer ismételje meg a program. (Az előző két egymás utáni ciklust tegyük bele egy külső ciklusba.)
Például N=3-ra kiírja ezt a program:
XOXOXO
OXOXOX
XOXOXO
OXOXOX
XOXOXO
OXOXOX
válasza:Uses Crt;
var i:byte;
n: byte;
begin
readln(n);
for i:=1 to n do
begin
/ide jönnek a futtatandó utasítások/
end;
readln;
end.
válasza:Miért kell többször feltenni ugyan azt a kérdést?
http://www.gyakorikerdesek.hu/szamitastechnika__programozas_..
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!