Размер шрифта
A- A+
Межбуквенное растояние
Цвет сайта
A A A A
Изоображения
Дополнительно

Паскаль 9_1(астрономия - образец)

Пример 1. Составить программу, демонстрирующую фазы Луны (изображения Луны загружаются из файлов).

program Luna;

   uses GraphABC;

var p, i: integer; imf: string;

   begin

    SetWindowSize(300,300); { задание размеров окна }

    for i:=1 to 28 do

     begin

      imf:='luna'+ IntToStr(i)+'.gif '; {формирование имени файла}

      p:= LoadPicture(imf); { загрузка изображения из файла }

      DrawPicture(p,0,0); { вывод изображения }

      sleep(500);

    end;

end.

Разделы сайта