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