Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / MOD / FUCK
.PAS Program Suka;
uses
Graph, CRT;
var
grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
ch:char;
p:pointer;
size:word;
i, x1, y1:integer;
x, y, s:real;
Procedure Ris;
begin
SetBkColor(0);
ClearDevice;
SetColor(11);
Circle(35, 35, 30);
SetFillStyle(1, 14);
FloodFill(20, 20, 11);
Size := ImageSize(0,0,70,70);
GetMem(P, Size);
GetImage(0,0,70,70,P^);
ClearDevice;
end;
begin
grDriver := Detect;
InitGraph(grDriver,grMode,'');
Ris;
{ ch:=' ';
PutImage(300+x, 200, P^, NormalPut);
ch:=#1;
while (ch<>#13) or (ch<>#27) do begin
ch:=readkey;
case ch of
#72: x:=x-5;
#80: x:=x+5;
#75: y:=y+5;
#77: y:=y-5;
#27 :exit;
end;
PutImage(300-y, 200+x, P^, NormalPut);
end; }{s:=0;Randomize;
For i:=1 to 4000 Do begin
x:=x+0.005;
y:=sin(x);
{ PutImage(10+Round(30*x), 220+Round(100*y), P^, NormalPut);
Delay(50);
}
repeat
SetColor(random(100));
SetTextStyle(7, 0, 4);
OutTextXY(Random(640), Random(480), 'FUCK OFF TITOV!');
delay(40);
Until KeyPressed;
end.
uses
Graph, CRT;
var
grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
ch:char;
p:pointer;
size:word;
i, x1, y1:integer;
x, y, s:real;
Procedure Ris;
begin
SetBkColor(0);
ClearDevice;
SetColor(11);
Circle(35, 35, 30);
SetFillStyle(1, 14);
FloodFill(20, 20, 11);
Size := ImageSize(0,0,70,70);
GetMem(P, Size);
GetImage(0,0,70,70,P^);
ClearDevice;
end;
begin
grDriver := Detect;
InitGraph(grDriver,grMode,'');
Ris;
{ ch:=' ';
PutImage(300+x, 200, P^, NormalPut);
ch:=#1;
while (ch<>#13) or (ch<>#27) do begin
ch:=readkey;
case ch of
#72: x:=x-5;
#80: x:=x+5;
#75: y:=y+5;
#77: y:=y-5;
#27 :exit;
end;
PutImage(300-y, 200+x, P^, NormalPut);
end; }{s:=0;Randomize;
For i:=1 to 4000 Do begin
x:=x+0.005;
y:=sin(x);
{ PutImage(10+Round(30*x), 220+Round(100*y), P^, NormalPut);
Delay(50);
}
repeat
SetColor(random(100));
SetTextStyle(7, 0, 4);
OutTextXY(Random(640), Random(480), 'FUCK OFF TITOV!');
delay(40);
Until KeyPressed;
end.
Соседние файлы в папке MOD