Будування плакатів та блок-схем

 

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

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

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

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

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






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

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

Виконав:

____________

Керівник:

____________







Полтава 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.

Блок-схема:




Міністерство освіти і науки України Полтавський національний технічний університет Імені Юрія Кондратюка Факультет інформаційних та телекомунікацій

Больше работ по теме:

КОНТАКТНЫЙ EMAIL: [email protected]

Скачать реферат © 2017 | Пользовательское соглашение

Скачать      Реферат

ПРОФЕССИОНАЛЬНАЯ ПОМОЩЬ СТУДЕНТАМ