Pascal - Konsolowe

Prostokąt z X

Prostokąt z X
Pascal - Konsolowe

Program: tworzący rysunek (prostokąt) z X-ów o podanych wymiarach.

Na podstawie podanych wcześniej boków A oraz B.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program prostokat;
Uses Crt;
Var a,b,c,d:integer;

Begin
     Clrscr;
     Writeln('Podaj liczby a i b');
     Write('a= ');
     Readln(a);
     Write('b= ');
     Readln(b);
     writeln;
     For c:=1 to a do
     begin
         For d:=1 to b do
         write('X');
         writeln;
     end;
     readkey;
end.