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