Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / MOD / FUCK1
.PAS Program Suka;
uses
Graph, CRT;
var
grDriver : Integer;
grMode : Integer;
x1, y1, x2, y2, x3, y3:integer;
begin
grDriver := Detect;
InitGraph(grDriver,grMode,'');
Randomize;
ClearDevice;
repeat
Delay(1000);
x1:=Random(640);
y1:=Random(480);
x2:=Random(640);
y2:=Random(480);
x3:=Random(640);
y3:=Random(480);
SetColor(Random(100));
line(x1, y1, x2, y2);
line(x2, y2, x3, y3);
line(x3, y3, x1, y1);
Until KeyPressed;
Readln;
end.
uses
Graph, CRT;
var
grDriver : Integer;
grMode : Integer;
x1, y1, x2, y2, x3, y3:integer;
begin
grDriver := Detect;
InitGraph(grDriver,grMode,'');
Randomize;
ClearDevice;
repeat
Delay(1000);
x1:=Random(640);
y1:=Random(480);
x2:=Random(640);
y2:=Random(480);
x3:=Random(640);
y3:=Random(480);
SetColor(Random(100));
line(x1, y1, x2, y2);
line(x2, y2, x3, y3);
line(x3, y3, x1, y1);
Until KeyPressed;
Readln;
end.
Соседние файлы в папке MOD