У роботі розглядаються
- Програмування
- Мова Pascal
- Графічний модуль
- Координати
Лабораторна робота з інформатики: програмування графіки на Pascal
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут телекомунікацій, радіоелектроніки та електронної техніки
Факультет:
Радіотехнічний факультет
Кафедра:
Кафедра радіоелектронних пристроїв та систем (РЕПС)
Інформація про роботу
Рік:
2014
Тип роботи:
Лабораторна робота
Предмет:
Інформатика та обчислювальна техніка
Група:
РТ-11
Варіант:
16 30
Коротко про документ
Про що ця робота
У документі наведено код програми мовою Pascal для побудови графічних примітивів. Програма використовує модуль graph для візуалізації фігур за введеними координатами.
Зміст і розділи
- Ініціалізація графіки
- Процедура малювання фігури
- Основний цикл програми
Для кого:Студенти технічних спеціальностей та вищих навчальних закладів.
Викладачі:Викладач кафедри
Ключові поняття
Pascalgraphlinerectanglecircleinitgraphcoordinateskeyboardprocedure
Частина тексту файла (без зображень, графіків і формул):
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.
Допоможи студентському архіву
Ми допомогли тобі — допоможи наступному студенту
Оголошення від адміністратора
Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!