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

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

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

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

23.05.2012, 22:39. Просмотров 438. Ответов 3
Метки нет (Все метки)

Ребят, помогите пожалуйста перевести программы на С++!

Задача №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++
Посмотрите здесь:

Перевести с pascal в C++ - C++
Помогите кто знает, вот код program pop; uses crt; label 10; var y,xn,xk,dx:real; begin clrscr; xn:=6;

Перевести из Pascal в С++ - C++
Заранее благодарен var s, a, x :real;i,j, fac: integer; begin cls; readln(x); begin for j:=1 to 15 do fac:=fac*(j*2+1); ...

Перевести с Pascal в С++ - C++
var a,b:string; c,d,i:integer; begin readln(a); for i:=1 to pos(' ',a) do delete(a,1,1); for i:= length(a) downto pos(' ',a)...

Перевести с pascal на c++ - C++
Помогите тоже перевести из Pascal в с+ visual studio 6.0 Нашел тут похожую на свою задачу, хочу разобраться, но учу только с++ (( ...

Перевести с Pascal на C++ - C++
Перевести с Pascal на C++ Var i,j,n : Longint; Fl : Boolean; Begin For n:=5 to 100 do Begin fl:=false;

Перевести с Pascal на С++ - C++
Помогите пожалуйста Дано натуральное число n, переставить местами первую и последнию цифру местами uses crt; var...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
HighPredator
5474 / 1840 / 342
Регистрация: 10.12.2010
Сообщений: 5,431
Записей в блоге: 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
0 / 0 / 0
Регистрация: 29.02.2012
Сообщений: 8
26.05.2012, 15:16  [ТС]     Перевести из Pascal в C++ #3
СПАСИИИИИИБО!!!!ДОБРЫЙ ЧЕЛОВЕК!!^^
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2012, 21:23     Перевести из Pascal в C++
Еще ссылки по теме:

Перевести из Pascal в C++ - C++
procedure RectPS(x1,x2,y1,y2: real); var p,s: real; begin begin P := (abs(x2-x1) + abs(y2-y1)) * 2; S := abs(x2-x1) *...

Перевести с pascal на С++ - C++
const n=30; var c,a:array of integer; i,k,max:integer; begin {ввод массива c} for i:=1 to n do read(c); ...

Перевести с Pascal на С++ - C++
помогите пожалуйста с переводом на язык с++ Procedure ReadLong(Var A : Tlong); Var ch : char; i : Integer; Begin FillChar(A,...

Перевести из Pascal на C++ - C++
Var n,p1,p2,i,k,j:integer; Begin write('Введите N: ');readln(n); For i:=n-1 downto 2 do Begin k:=0; For...

Перевести с Pascal на C++ - C++
Была цепь длиной L, N рыбин. Зная координаты головы и хвоста каждой из них, подсчитайте, на какие сутки у собаки появится голод, если он...

Перевести с pascal на с++ - C++
uses crt; var i_put,o_put:string; i,s_ch,n:byte; flag:boolean; Begin ClrScr; writeln('Vvedite stroku:'); ...


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

Или воспользуйтесь поиском по форуму:
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++
Ответ Создать тему
Опции темы

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