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