Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / F1
.PAS program f1;
uses crt,
Graph;
const
Triangle : array[1..4] of PointType =
((x: 50; y: 100),
(x: 100; y: 100),
(x: 150; y: 150),
(x: 50; y: 100));
var
Gd, Gm,i : Integer;
begin
Gd := Detect; InitGraph(Gd, Gm, 'e:\pas');
if GraphResult <> grOk then Halt(1);
DrawPoly(SizeOf(Triangle) div
SizeOf(PointType), Triangle);
setwritemode(xorput);
repeat
for i:=0 to 20 do
if not keypressed then
begin
ReadLn;
CloseGraph;
end.
uses graph;
var gd,gm,d,x1,x2,x3,x4,x5,y1,y2,y3,y4,y5:integer;
begin
gm:=detect;
initgraph(gm,gd,'e:\pas');
drawpoly(5,x1);
line(25,25,700,700);
readln;
closegraph;readln;
end.
uses crt,
Graph;
const
Triangle : array[1..4] of PointType =
((x: 50; y: 100),
(x: 100; y: 100),
(x: 150; y: 150),
(x: 50; y: 100));
var
Gd, Gm,i : Integer;
begin
Gd := Detect; InitGraph(Gd, Gm, 'e:\pas');
if GraphResult <> grOk then Halt(1);
DrawPoly(SizeOf(Triangle) div
SizeOf(PointType), Triangle);
setwritemode(xorput);
repeat
for i:=0 to 20 do
if not keypressed then
begin
ReadLn;
CloseGraph;
end.
uses graph;
var gd,gm,d,x1,x2,x3,x4,x5,y1,y2,y3,y4,y5:integer;
begin
gm:=detect;
initgraph(gm,gd,'e:\pas');
drawpoly(5,x1);
line(25,25,700,700);
readln;
closegraph;readln;
end.
Соседние файлы в папке Alex