|
Будування плакатів та блок-схем |
Будування плакатів та блок-схем
Міністерство освіти і науки України Полтавський національний технічний університет Імені Юрія Кондратюка Факультет інформаційних та телекомунікаційних технологій і систем Кафедра комп'ютерних та інформаційних технологій і систем Розрахунково-графічна робота з дисципліни: «Інженерна та комп'ютерна графіка» Виконав: ____________ Керівник: ____________ Полтава 2010 Частина 1. Зобразити плакати у MSVisio згідно варіантів Плакат 19: Плакат 71: Виконано: Частина 2. Побудувати блок-схеми алгоритмів згідно варіантів Задача 4.47 Програмний код: programRGR447; var a,b,c:integer; begin read(a); read(b); read(c); if(a=b) and (a=c) then writeln('Ростодинаковый'); readln; end. Блок-схема: Задача 4.97 Програмний код: programRGR497; var month,c:integer; begin read(month); c:=month div 4; casec of 1:writeln('Зима'); 2:writeln('Весна'); 3:writeln('Лето'); 4:writeln('Осень'); end; readln; end. Блок-схема: Задача 8.45 Програмний код: programRGR845; var i,j,k:integer; begin fori:=0 to 9 do forj:=1 to 9 do fork:=1 to 9 do begin ifj<>k then writeln(i,j,k); end; readln; end. Блок-схема: Задача 11.202 Програмний код: programRGR11202; var nums:array[1..100] of integer; a,i,j:integer; begin randomize; fori:=1 to 100 do nums[i]:=random(99)+1; read(a); fori:=1 to 100 do ifnums[i]<a then begin writeln('След'); forj:=i to 100 do begin write(nums[j],' '); end; writeln('Больше'); forj:=1 to 100 do ifnums[j]>a then write(nums[j],' '); break; end; end. Блок-схема:
|
|
|
© 2003-2013
Рефераты бесплатно, курсовые, рефераты биология, большая бибилиотека рефератов, дипломы, научные работы, рефераты право, рефераты, рефераты скачать, рефераты литература, курсовые работы, реферат, доклады, рефераты медицина, рефераты на тему, сочинения, реферат бесплатно, рефераты авиация, рефераты психология, рефераты математика, рефераты кулинария, рефераты логистика, рефераты анатомия, рефераты маркетинг, рефераты релиния, рефераты социология, рефераты менеджемент. |
|
|