Информатика, программирование: Будування плакатів та блок-схем, Контрольная работа

Міністерство освіти і науки України

Полтавський національний технічний університет

Імені Юрія Кондратюка

Факультет інформаційних та телекомунікаційних технологій і систем

Кафедра комп’ютерних та інформаційних технологій і систем

Розрахунково-графічна робота з дисципліни:

«Інженерна та комп’ютерна графіка»


Виконав:

____________

Керівник:

____________


Полтава 2010


Частина 1. Зобразити плакати у MSVisio згідно варіантів

Плакат 19:

Описание: 013068.png

Плакат 71:

Описание: work.000661.2.jpg

Виконано:



 

Частина 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.

Блок-схема:



Еще из раздела Информатика, программирование:


 Это интересно
 Реклама
 Поиск рефератов
 
 Афоризм
Не можешь любить, сиди дружи. (Мих. Жванецкий)
 Гороскоп
Гороскопы
 Счётчики
bigmir)net TOP 100