Форум программистов, компьютерный форум, киберфорум
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
dongo
0 / 0 / 0
Регистрация: 17.10.2010
Сообщений: 5
#1

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

05.12.2010, 12:59. Просмотров 251. Ответов 0
Метки нет (Все метки)

Нужно перевести код программы с паскаля на с++ .
Есть блок-схема 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;
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.12.2010, 12:59
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевод с Pascal (C++):

Перевод из Pascal в C++ - C++
Помогите,пожалуйста, с переводом программы из паскаля в C++ uses crt; function F(x:real):real; begin F:=1+x-x*x*x; ...

Перевод из Pascal на C++ - C++
Народ! Помогите пожалуйста перевести код из Паскаля в C++ const w:array of real=(1.5,-1,0.5); type fly=class ...

Перевод с Pascal на C++ - C++
Код на паскале, помогите его переписать в С ++ . Очень нужно ребят . Последняя задача. const mi = 100; type matrix = array of...

Перевод из Pascal в C++ - C++
Здравствуйте! Помогите,пожалуйста,перевести программу из паскаля в С++ uses crt; var A, B, x, y, h, n, O: real; s: string; ...

Перевод с pascal на c++ - C++
привет всем , помогите ПОЖАЛУЙСТА перевести с pascal на c++. пытался перевести, но с++ сложноват , на изучение языка времени...

Перевод из Pascal в С++ - C++
Для заданного целого N вычислить значение суммы(с помощью рекурсии) const n = 4; function f(const lvl : integer; sum : integer) :...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.12.2010, 12:59
Привет! Вот еще темы с ответами:

Перевод с Pascal на С++ - C++
Будьте добры, кто понимает, кому не сложно, очень нужна помощь в переводе. program z2; var a,b,s : integer; begin ...

Перевод из Pascal на C++ - C++
Помогите перевести программу из Pascal на С++ program lab; const N=30; var A:array of real; i,k:integer; S:real; begin ...

Перевод из Pascal в C++ - C++
Пж помогите перевести Program SoulCub; Var A,B,C:Real; Begin WriteLn('Введите числa A,B и C: '); ReadLn(A,B,C); If...

Перевод с pascal на c++ - C++
Вообще не знаю pasсal, нужен перевод. program aaa; Type mas=array of integer; Var a: array of integer; s, d:mas; {массив элементов...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru