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