08-01-2009, 12:42 PM
اضافة الى ما قاله اخي STRELiTZIA
المثال فوق يمكن ان يكتب
PHP كود :
program Water;
{$APPTYPE CONSOLE}
uses
Windows;
Label Loop;
begin
SetConsoleTitle('Water !');
Repeat
Writeln(' 010 010 010 010 010 010 010 010 010 010 010');
Writeln(' 101 101 010 010 010 010 010 010 01 0100 010');
Writeln(' 010 010 010 010 010 010 01 010 010 0100 01 0');
Writeln(' 101 101 010 010 010 010 010 010 010 010 010');
Writeln(' 010 010 010 01 0100 010 010 010 010 010 01 0');
Until False;
end.
والسلام عليكم

