hladam doucovatela
hladam doucovatela
Dobry den hladam doucovatela na programovanie v pascale ,aj zaplatim za hodiny .ja som z trnavy . dakujem. [email protected]
no uz neviem kolkykrat ten kurz davam sem na forum ale tak: http://mojeskola.cz/Vyuka/Php/Kurzy/kurz_pascal.php
je to v url Hojko komko
je to v url Hojko komko
-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa:
rekurzívne asi nejak takto:
nerekurzívne:
Kód: Vybrať všetko
procedure vypis(n:integer)
begin
if( n > 0) then begin
write('a');
vypis(n-1);
end;
write('c');
end;nerekurzívne:
Kód: Vybrať všetko
procedure vypis(n:integer)
var i:integer;
begin
for i:=1 to n do write('a');
for i:=1 to n do write('c');
end;