Добавил:
dima_meh96
kostikboritski@gmail.com
Выполнение курсовых, РГР технических предметов Механического факультета. Так же чертежи по инженерной графике для МФ, УПП. Писать на почту. Дипломы по кафедре Вагоны
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:информатика (не сорт) / Prg_10_2_мэ11_Марушко
.pas PROGRAM Prim_2_1;
USES Crt, GraphABC;
const x1=50; y1=50;
x2=250; y2=250;
x3=50; y3=250;
x4=200; y4=400;
k=500;
var a1,a2,b1,b2,s1,s2:real;
BEGIN
SetWindowSize(720, 480);
SetBrushColor(clMaroon );
FillRect(x1,y1,x2,y2);
delay(k);
SetBrushColor(clyellow);
FillRect(x3,y3,x4,y4);
delay(500);
if s1>s2 then
begin
FloodFill(x1,y1,clBlue);
end
else
begin
FloodFill(x3,y3,clBlue);
end;
END.
USES Crt, GraphABC;
const x1=50; y1=50;
x2=250; y2=250;
x3=50; y3=250;
x4=200; y4=400;
k=500;
var a1,a2,b1,b2,s1,s2:real;
BEGIN
SetWindowSize(720, 480);
SetBrushColor(clMaroon );
FillRect(x1,y1,x2,y2);
delay(k);
SetBrushColor(clyellow);
FillRect(x3,y3,x4,y4);
delay(500);
if s1>s2 then
begin
FloodFill(x1,y1,clBlue);
end
else
begin
FloodFill(x3,y3,clBlue);
end;
END.
Соседние файлы в папке информатика (не сорт)