Program vykreslí obdĺžnik z hviezdičiek

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: KMP (Club of young programmers)

Author: ghostix
Program: Obdlznik_hvezdicky.pas
File exe: Obdlznik_hvezdicky.exe

Program vykreslí obdĺžnik z hviezdičiek.
{ HVIEZDICKY.PAS                              Copyright (c) ghostix }
{ Program vykresli obdlznik z hviezdiciek.                          }
{                                                                   }
{ Author: Ghostix                                                   }
{ Date  : 21.10.2007                           http://www.trsek.com }
 
program hviezdicky;
uses crt;
var a,b,i,j:integer;
 
begin
 clrscr;
 writeln('Zadajte strany a,b');
 readln(a,b);
 for i:=1 to a do 
 begin
  for j:=1 to b do 
  begin
    write('*  ');
  end;
  writeln;
 end;
 
 readln;
end.