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

Посмотреть архив целиком

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

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

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

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

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






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

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




Виконав:

____________

Керівник:

____________










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

Блок-схема:






Случайные файлы

Файл
60260.rtf
15358.doc
106-1.rtf
25152-1.rtf
4412-1.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.