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