Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформатика
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
ІТРЕ
Факультет:
Не вказано
Кафедра:
Радіоелектроніки та електронної техніки (РЕПС)
Інформація про роботу
Рік:
2024
Тип роботи:
Лабораторна робота
Предмет:
Інформатика та обчислювальна техніка
Варіант:
16 30
Частина тексту файла (без зображень, графіків і формул):
program jygh;
uses graph,keyboard;
var gd,gm:smallint;v,x,y,m,i:integer;
pathtodriver:string;
procedure f(x,y:integer);
begin
line(x,y,x+20*m,y);
line(x,y+6*m,x+20*m,y+6*m);
Rectangle(x+20*m, y-4*m, x+40*m, y+10*m);
line(x+40*m,y+3*m,x+55*m,y+3*m);
Circle(x+40*m,y+3*m,m);
SetTextStyle(12,10*m,6); OutTextXY(x+21*m,y-3*m,'&');
end;
begin
writeln('skilku raziv hoshete pobashutu figyry');
readln(v);
gd:=0;initkeyboard;
initkeyboard;
initgraph(gd,gm,'');
RestoreCrtMode;
for i:=1 to v do begin
writeln('vvedit x');
readln(x);
writeln('vvedit y');
readln(y);
writeln('vvedit mashtab');
readln(m);
f(x,y);
end;readln;
exit;
repeat until keyboard.getkeyeventchar(keyboard.getkeyevent())='g';
closegraph();
donekeyboard;
end.
05.05.2014 22:05-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора