Будування плакатів та блок-схем
Міністерство освіти і науки України
Полтавський національний технічний університет
Імені Юрія Кондратюка
Факультет інформаційних та телекомунікаційних технологій і систем
Кафедра комп’ютерних та інформаційних технологій і систем
Розрахунково-графічна робота з дисципліни:
«Інженерна та комп’ютерна графіка»
Виконав:
____________
Керівник:
____________
Полтава 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.
Блок-схема:
