Các chương trình Pascal trong SGK tin học 8

BÀI 7: CÂU LỆNH LẶP

Ví dụ 4: Viết chương trình thể hiện trứng rơi từ trên xuống.

Program Trung_roi;
   uses crt;
   var i: integer;
   var j: integer;
Begin
clrscr;
   For  i:= 1  to  25  Do
     begin
        For  j:= 0  to  i  Do writeln;
        Writeln ('O');
        Delay (42); {24 pictures per second} 
        clrscr;
     end;
   Writeln('Trung da be roi'); 
   Readln;
End.