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

Перевести из Pascal в C++ - C++

Восстановить пароль Регистрация
 
Dark_Apple
 Аватар для Dark_Apple
0 / 0 / 0
Регистрация: 29.02.2012
Сообщений: 8
23.05.2012, 22:39     Перевести из Pascal в C++ #1
Ребят, помогите пожалуйста перевести программы на С++!

Задача №1 (Схема горнера)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program labblablabla;
var
 x,s,k:real;
 i,n:integer;
begin
  s:=0;
  Write('Введите x= ');
  Readln(x);
  Write('Введите n= ');
  readln(n);
   k:=exp(n*ln(2));
   For i:=n downto 0 do
    begin
      s:=s*x+k;
      k:=k/2;
    end;
   writeln(s:5:2);
 
end.
Задача №2 (дан вещественный массив. Нужно найти самую длинную последовательность положительных чисел не прерываемых ни 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
program posledn;
Var
  a:array[1..50] of integer;
  b:array[1..50] of integer;
  i,n,pol,max,j,k:integer;
BEGIN
  Writeln('ўўҐ¤ЁвҐ n: ');
  Readln(n);
  Writeln('ўўҐ¤ЁвҐ н«Ґ¬Ґ*вл ¬*ббЁў*: ');
  For i:= 1 to n do
  begin
   Read(a[i]);
  end;
  Writeln;
  pol:=0;
  max:=1;
   For i:=1 to n do
   begin
     if (a[i]>0) then
      begin
       pol:=pol+1;
      end
     else
      begin
       if pol>max then
        begin
         max:=pol;
         pol:=0;
         For k:= 0 to max-1 do
          begin
           b[k+1]:=a[i-max+k];
          end;
        end;
      end;
     end;
  Writeln(' максимальное количество положительных элементов:',max);
  Writeln('макс. строка пол элементов:');
  For i:=1 to max do
  Write(b[i],' ');
End.
Обе задачи работают и на паскале уже сданы. прошу...переведите их на С++
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2012, 22:39     Перевести из Pascal в C++
Посмотрите здесь:

C++ Перевести из Pascal в С++
C++ перевести с pascal в С++
C++ Перевести с Pascal на C++
C++ Перевести с Pascal на C++
C++ Перевести с Pascal на C++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
HighPredator
 Аватар для HighPredator
5352 / 1735 / 320
Регистрация: 10.12.2010
Сообщений: 5,120
Записей в блоге: 3
24.05.2012, 00:07     Перевести из Pascal в C++ #2
1
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
#include<iostream>
#include<cmath>
 
using namespace std;
 
int main()
{
    double x,s,k;
    int i,n;
    s=0.0;
    cout<<"Enter x=";
    cin>>x;
    cout<<"Enter n=";
    cin>>n;
    k=exp(n*log(2.0));
    for(i=n;i>-1;i--)
    {
        s=s*x+k;
        k=k/2.0;
    }
    cout<<s<<endl;
    getchar();
    return 0;
}
2
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
26
27
28
29
30
31
32
33
34
35
36
#include<iostream>
#include<cmath>
 
using namespace std;
 
int main()
{
    int a[50];
    int b[50];
    int i,n,pol,max,j,k;
    cout<<"Enter n:"<<endl;
    cin>>n;
    cout<<"Enter array?:"<<endl;
    for(i=0;i<n;i++) cin>>a[i];
    cout<<endl;
    pol=0;
    max=1;
    for(i=0;i<n;i++)
    {
        if(a[i]>0) pol++;
        else
        {
            if(pol>max)
            {
                max=pol;
                pol=0;
                for(k=-1;k<max;k++) b[k+1]=a[i-max+k];
            }
        }
    }
    cout<<"Maximal positive elem-s count:"<<max<<endl;
    cout<<"Maximal sequence of positive elem-s:"<<endl;
    for(i=0;i<max+1;i++) cout<<b[i]<<" ";
    getchar();
    return 0;
}
Dark_Apple
 Аватар для Dark_Apple
0 / 0 / 0
Регистрация: 29.02.2012
Сообщений: 8
26.05.2012, 15:16  [ТС]     Перевести из Pascal в C++ #3
СПАСИИИИИИБО!!!!ДОБРЫЙ ЧЕЛОВЕК!!^^
Dark_Apple
 Аватар для Dark_Apple
0 / 0 / 0
Регистрация: 29.02.2012
Сообщений: 8
31.05.2012, 21:23  [ТС]     Перевести из Pascal в C++ #4
может вы мне еще поможете вот с этой задачкой?^^ Динамические структуры данных.
Yandex
Объявления
31.05.2012, 21:23     Перевести из Pascal в C++
Ответ Создать тему
Опции темы

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