Форум программистов, компьютерный форум CyberForum.ru

Перевод с Pascal - C++

Восстановить пароль Регистрация
 
dongo
0 / 0 / 0
Регистрация: 17.10.2010
Сообщений: 5
05.12.2010, 12:59     Перевод с Pascal #1
Нужно перевести код программы с паскаля на с++ .
Есть блок-схема http://www.takepic.ru/show-image.php...812e756b213a23

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
 program a1;
 uses WinCrt;
 var A:array[0..7] of integer;
s, i, n, k, j : integer;
 begin
     A[0]:=6; A[1]:=1;A[2]:=2;A[3]:=2;
      A[4]:=0;A[5]:=-1;A[6]:=2; n:=6; k:=3;i:=1;
      While i<=n do Begin
              If A[k]<>A[i] then  Begin
                                         A[k]:=A[i];
                                          s:=A[k];
end
else Begin
                                          A[i]:=A[k];
                                           k:=i;
end;
              For j:=1 to n do Write(a[j]:3);Writeln;
              i:=i+1;
End;
    For I:=1 to n do begin
                          s:=s+A[i]+A[k];
                         Writeln(s:3,' ',i:1);
End;
End.
То, что у меня получилось..
C++
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
#include<iostream.h>
#include<stdio.h>
#include<conio.h>
#include<math.h>
void main()
{
    int a[7]={6,1,2,2,0,-1,2};
    int s,i,n,k,j;
    n=6; k=3; i=1;
                           While (i<=n)
                           if A[k]!=A[i]
                           A[k]=A[i];
                           s=A[k];
                      else
                           A[i]=A[k];
                           k=i; 
 
   for (j=1; j<n; j++)
   cout<<a[j];
   endl;
   i=i+1; 
         for (i=1; i<n; i++)
         s=s+A[i]+A[k];
         cout<<s<<" "<<i;
}
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.12.2010, 12:59     Перевод с Pascal
Посмотрите здесь:

C++ Перевод с С++ на Pascal
Перевод с Pascal на С++ C++
C++ Перевод с Pascal на С++
C++ Перевод с Pascal на С++
Перевод из Pascal в C++ C++
C++ Перевод из Pascal на C++
C++ Перевод из Pascal в C++
Перевод из Pascal в C++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 18:05. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru