Отчет по практике: Язык программирования Pascal

b: =n mod 100;

h: =b div 10;

c: =n div 100;

v: =a*a+h*h+c*c;

if n=i+v then writeln (n,' ', i);

end;

readln;

end.

3.3.5 Результат работы программы

3.4 Решение задачи

3.4.1 Постановка задачи

Нарисовать рисунок.

3.4.2 Таблица идентификаторов

№	Переменные	тип	Значения
1	Gd	integer	Графический драйвер
2	Gm	integer	Графический режим

3.4.3 Программа

Uses graph,crt;

Var gd,gm: integer;

Begin

gd: =0; gm: =0;

Initgraph (gd, gm,' ');

setcolor (5);

Line (100, 200,250, 200);

Line (250, 200, 209,150);

Arc (157,183, 61, 195, 60);

Setfillstyle (0,3);

Floodfill (256, 200,5);

Ellipse (200, 135, 75, 233, 15, 20);

Ellipse (200, 135, 303, 75, 15, 20);

Ellipse (208, 139, 303, 91, 15, 24);

setfillstyle (1,8);

floodfill (220,145,5);

Arc (120, 200, 180, 0,10);

Setfillstyle (1,1);