Інформатика. Лабораторна робота з Інформатика та обчислювальна техніка. Робота № 526161

Інформатика

Інформація про навчальний заклад

ВУЗ:

Національний університет Львівська політехніка

Інститут:

ІТРЕ

Факультет:

Не вказано

Кафедра:

Радіоелектроніки та електронної техніки (РЕПС)

Інформація про роботу

Рік:

2014

Тип роботи:

Лабораторна робота

Предмет:

Інформатика та обчислювальна техніка

Варіант:

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.

Лабораторна робота Інформатика та обчислювальна техніка

miroslav275

05.05.2014 22:51

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, або зареєструйтесь.

Ділись своїми роботами та отримуй миттєві бонуси!

поділитись