База знаний студента. Реферат, курсовая, контрольная, диплом на заказ

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

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

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

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

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

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

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

Виконала:

_________

Керівник:

_________

Полтава 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.

Блок-схема:

Міністерство освіти і науки України Полтавський національний технічний університет Імені Юрія Кондратюка Факультет інформаційних та телекомунікаційних технологій і систем Кафедра комп’ютерних та інформаційних технологій і систем

 

• 14:21 05 Июля 2016
  Российско-китайский медуниверситет откроет магистерскую программу по TCM
• 01:21 05 Июля 2016
  На форуме МГУ Россия и Китай обсудят научно-образовательное сотрудничество
• 11:00 04 Июля 2016
  Реморенко: "ЕГЭ-туризм" в России сходит на нет
• 10:52 04 Июля 2016
  Летняя российско-австрийская школа откроется в Москве
• 15:31 01 Июля 2016
  В СПбГУ могут воссоздать географический факультет

Заказать уникальную работу