0 / 0 / 0
Регистрация: 03.06.2015
Сообщений: 3
1

Перевести готовый код на С++ и составить блок-схему

08.06.2015, 09:16. Показов 369. Ответов 0
Метки нет (Все метки)

помогите сделать на завтра блок схему и перевести код спасибо
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
{Deikstra}
var d:array[1..366, 1..366] of longint;
a, b, c, ma:array[1..366] of longint;
check:boolean;
n, m, k, t, i, j, start, i1, i2, i3, max, m1, v1:longint;
function min(x,y:longint):longint;
begin
if x<y then min:=x else min:=y;
end;
PROCEDURE FindMinPath;
var Min,Mj,ii,jj:longint;
begin
for ii:=1 to N do begin A[ii]:=0; B[ii]:=D[V1,ii]; C[ii]:=V1 end;
A[V1]:=1;
for ii:=1 to N-1 do
begin
Min:=200000; Mj:=0;
for jj:=1 to N do
if (A[jj]=0) and (B[jj]<Min) then begin Min:=B[jj]; Mj:=jj end;
if Mj=0 then break;
 
A[Mj]:=1;
for jj:=1 to N do
if (A[jj]=0) and (B[Mj]+D[Mj,jj]<B[jj]) then begin
B[jj]:=B[Mj]+D[Mj,jj];
C[jj]:=Mj;
end;
end;
end;
begin
readln (n, m, k);
for i:=1 to m do;
read (ma[i]);
readln;
for i:=1 to n do
for j:=1 to n do
d[i,j]:=200000;
for i:=1 to k do
begin
readln (i1, i2, i3);
d[i1,i2]:=i3;
d[i2,i1]:=i3;
end;
readln (start);
v1:=start;
findminpath;
b[start]:=0;
check:=false;
for i:=1 to m do
if b[ma[i]]=200000 then begin
check:=true;
break;
end;
if check then begin
writeln ('It is not fault of sponsor...');
halt;
end;
max:=0;
for i:=1 to m do
if b[ma[i]]>max then max:=b[ma[i]];
writeln ('The good sponsor!');
writeln (max);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.06.2015, 09:16
Ответы с готовыми решениями:

Перевести код в блок схему
Помогите перевести код в блок схему #include &lt;iostream&gt; #include &lt;math.h&gt; using namespace std; ...

перевести код на С++ в блок схему.
На С++ написал прогу,а препод не верит,что писал её сам и требует блок схему к проге,а я в...

перевести число из 10СС в 2СС и составить блок схему
здравствуйте! помогите пожалуйста составить программу для перевода чисел из десятичной системы...

Перевести код на с++ с pascal имея блок-схему и постановку задачи
program Resheto; var a:arrayof longint; n,i,j,k,h:longint; f:text; begin...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.06.2015, 09:16
Помогаю со студенческими работами здесь

Прокомментировать код и составить блок-схему
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;cstdlib&gt; using namespace std; int main(){...

Прокомментировать код и составить блок-схему
помогите составить блок схему и словесное описание Program matriza; uses crt; const n=3; type...

Проверить код и составить блок-схему
Задание: Заполнить вектор А размерности n по правилу: аi=| bi |, где i = 1, 2, 3, …, n; В = {bi} -...

Прокомментировать код и составить блок-схему
Вот код: Uses CRT; Var a,kol,n,i:integer; f:text; Begin randomize; Assign(f,'1.txt');...

Прокомментировать код и составить блок-схему
помогите составить блок схему по программе.... и с коментариями в программе о действиях ...

Составить блок-схему и оптимизировать код
Умоляю вас! помогите пожалуйста разработать схему-алгоритмов По этому коду. #include &lt;iostream&gt;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru