Pascal cyklus - poradna.net

Předmět	Autor	Datum
Pokud neumíš cyklus, nemusíš ho používat : :-p var var S: string; begin write(chr(42));write(chr(42… AZOR 17.04.2009 21:25	AZOR	17.04.2009 21:25
ROFL :-D poslední marekdrtic 18.04.2009 12:44	marekdrtic	18.04.2009 12:44

Pokud neumíš cyklus, nemusíš ho používat :

var
var S: string;
begin
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
S:=' a slíbená jedna hvězdička * v programu';
end;