Рефетека.ру / Информатика и програм-ие

Контрольная работа: Зображення плакатів у MSVisio та будування блок-схем алгоритмів

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

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

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

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

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


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

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


Виконала:

_________

Керівник:

_________


Полтава 2010


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


Плакат 16:

Зображення плакатів у MSVisio та будування блок-схем алгоритмів


Плакат 68:

Зображення плакатів у MSVisio та будування блок-схем алгоритмів


Виконано:


Зображення плакатів у MSVisio та будування блок-схем алгоритмів


Зображення плакатів у MSVisio та будування блок-схем алгоритмів


Частина 2. Побудувати блок-схеми алгоритмів згідно варіантів


Задача 4.41


Програмний код:

program ANNA_441;

vara,b,c:integer;

begin

readln(a,b,c);

if (a<b) and (b<c) then

writeln('ravenstvo a);

if (b>a) and (a>c) then

writeln('ravenstvo b');

end.

Блок-схема:


Зображення плакатів у MSVisio та будування блок-схем алгоритмів


Задача 4.91


Програмний код:

programanna_491;

var j,i,c:integer;

x:array[1..3] of integer;

begin read(x[1],x[2],x[3]);

for j:=1 to 3 do

for i:=1 to 3 do

if x[j]>x[i] then

begin c:=x[j];

x[j]:=x[i]; x[i]:=c;

end;

writeln(x[1],x[2]);

end.

Блок-схема:

Зображення плакатів у MSVisio та будування блок-схем алгоритмів


Задача 8.51


Програмний код:

program anna_851;

var x1,y1,y2,y3,y4:integer;

begin

while x1>9 do

begin

y1:=x1 div 1000

y2:=(x1-y1*1000) div 100;

y3:=(x1-y1*1000-y2*100) div 10;

y4:=x1-(x1-y1*1000-y2*100-y3*10);

x1:=y1+y2+y3+y4;

end;

writeln(x1);

end.

Блок-схема:


Зображення плакатів у MSVisio та будування блок-схем алгоритмів


Задача 11.196

Програмний код:

programanna_11196;

var nums:array[1..10] of integer;

j:integer;

begin for j:=1 to 10 do

readln(nums[j]);

for j:=1 to 10 do

ifnums[j] mod 2=1 then

begin writeln(j); break; end;

ifnums[j] div 13=0 then

begin writeln('13');

break;

end; end; end.

Блок-схема:

Зображення плакатів у MSVisio та будування блок-схем алгоритмів

Рефетека ру refoteka@gmail.com