Pascal cyklus

Jé, ty se máš. To já mám podstatně blbější úkoly, třeba "vynes koš", nebo "dones zavařeniny ze sklepa".

Fakt ti závidím.

Pavel

Napovím ti to v PHP (Pascal taky umím, ale abys měl aspoň trochu práce):

$string = "*";
for($i = 0; $i < 10; $i++)
{
for($ii = 0; $ii < 20; $ii++)
{
echo $string;
}
echo "\n";
}

for i := 1 to 10 do
  Writeln(StringOfChar('*', 20));

Writeln(StringReplace('                    '#13#10'                    '#13#10'                    '#13#10'                    '#13#10'                    '#13#10'                    '#13#10'                    '#13#10'                    '#13#10'                    '#13#10'                    '#13#10, ' ', '*', [rfReplaceAll]));

www.google.com
pascal cyklus
a zmackens Enter

napr. pascal---cykly

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;

Ještě mu poraď unitu Graph a příkaz InitGraph, aby si mohl hvězdičky bez cyklu nakreslit.

Ale muze si napsat cyklus pro kresleni te hvezdicky...

Lepší je cyklus pro kreslení toho nicu kolem hvězdičky.

Tak daleko mé Delphi/Pascal hodnoty uz nesahají. Poslední roky co jsem měl nainstalované Delphi jsem denně dělal jen jeden a ten samej program : 1) placnout timer na form 2) napsat tam jeden for 3) prepocitat hodiny na kompu 4) placnout tam komponetu MediaPlayer 5) vybrat si pisnicku na vzbuzeni 6) run 7) jit spat.

Vyhoda je, ze pak slo velice rychle v tom foru menenim relace < = > , AND udelat treba budika, kterej kdyz mi za po 3 minutach nevzbudi na Toma a Jerryho, tak aby mi nechal spad az do MASH ci me vzbudil az pak obed.

Já tam napočítal jen 199 hvězdiček

doufám, že jsi to nepočítal (ale pokud tam něni překlep) tak spustil, označil vypsané hvězdičky a spustil write(length(ctrl+v)), kde nejspise bude pro pascal jeste treba nejake to IntToStr.

// navic se mi to nezdá - 199 je divné číslo, když jsem pochopitelně napočítal řádek po 20ti a pastnul ho 10x. pokud je to chybne spocitane, pak to zakonitě musí být modulo 10 nebo 20.

ROFL