FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть
МЕНЮ
Urok-informatiki.ru
ПРИМЕР:
Программа которая выводит на экран «Звездное небо».
uses Graph;
var i, Gd, Gm: Integer;
BEGIN
Gd:=VGA; Gm:=VGAHi; InitGraph (Gd,Gm,'..\bgi');
If GraphResult=grOk
then begin
For i:=0 to 1000 do
PutPixel (random(640),random(480),random(15)+1);
ReadLn
end
END.
1
7
6
5
4
3
2
8
9
0
МЕНЮ
Urok-informatiki.ru
ПРИМЕР:
Программа которая выводит различные незаполненные фигуры.
uses Graph;
const CenterX=320; CenterY=240;
var i, Gd, Gm: Integer;
BEGIN
Gd:=VGA; Gm:=VGAHi;
InitGraph (Gd,Gm,'..\bgi');
If GraphResult=grOk then
For i:=0 to 23 do
Circle (CenterX,CenterY,i*10);
END.
МЕНЮ
Urok-informatiki.ru
МЕНЮ
Urok-informatiki.ru
МЕНЮ
Домашнее задание.
1. Написать программу, чтобы на экране выводился фрагмент тетради в клетку, используя циклические операции.
Urok-informatiki.ru