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

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

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

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

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

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

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

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

Виконала:

_________

Керівник:

_________

Полтава 2010

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

Плакат 16:

Плакат 68:

Виконано:

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

Блок-схема:

Задача 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.

Блок-схема:

Задача 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.

Блок-схема:

Задача 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.

Блок-схема: