Міністерство
освіти і науки України
Полтавський
національний технічний університет
Імені
Юрія Кондратюка
Факультет
інформаційних та телекомунікаційних технологій і систем
Кафедра
комп’ютерних та інформаційних технологій і систем
Розрахунково-графічна
робота з дисципліни:
«Інженерна
та комп’ютерна графіка»
Виконала:
_________
Керівник:
_________
Полтава
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 intege
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.
Блок-схема: