s vyuzitim procedury

mimkork · Napísal **mimkork**: 06.03.2009 17:49

potreboval by som tento moj vytvor prerobit s vyuzitim dakej procedury (uz som dlho neprogramoval, uz aj toto mi dalo dobre zabrat :oops:

) Vdaka za pomoc :-)

Kód:

program pokus;
uses crt;
var
  velkost,x,y:integer;

begin
clrscr;
  write('Zadaj velkost: ');
  readln(velkost);
  for y := 1 to velkost do begin
    for x := 1 to y do begin
      Write('* ');
    end;
    writeln;
  end;
readln;
end.

stopa27 · Napísal **stopa27**: 06.03.2009 18:45

program pokus;
uses crt;
var
velkost,x,y:integer;

procedure troj;
begin
for y := 1 to velkost do begin
for x := 1 to y do begin
Write('* ');
end;
writeln;
end;
end;

begin
clrscr;
write('Zadaj velkost: ');
readln(velkost);
troj;
readln;
end.

nejak tak?

mimkork · Napísal autor témy **mimkork**: 06.03.2009 18:52

moze byt aj takto :slaver:

, velmi pekne dakujem

s vyuzitim procedury

Podobné témy