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

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

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

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

23.05.2012, 22:39. Просмотров 441. Ответов 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.
Обе задачи работают и на паскале уже сданы. прошу...переведите их на С++
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2012, 22:39
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести из Pascal в C++ (C++):

Перевести с 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...

Перевести с Pascal на C++ - C++
Каково содержание задачи? var a:array of integer; i,j,k,l,q,w,e:integer; begin // Randomize; for i:=1 to 10 do begin...

Перевести с Pascal на C++ - C++
Здравствуйте! Помогите пожалуйста перевести вот эти программы с языка Pascal на C++ Сам я очень плохо знаю C++ поэтому был бы крайне...

Перевести с Pascal на C++ - C++
Здравствуйте! Помогите пожалуйста перевести вот эти программы с языка Pascal на C++ Сам я очень плохо знаю C++ поэтому был бы крайне...

Перевести с Pascal на C++ - C++
uses crt; var a,y:extended; i:longint; begin clrscr; write('a=');readln(a); if a<1 then begin writeln('1'); ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
HighPredator
5542 / 1848 / 345
Регистрация: 10.12.2010
Сообщений: 5,450
Записей в блоге: 3
24.05.2012, 00:07 #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;
}
0
Dark_Apple
0 / 0 / 0
Регистрация: 29.02.2012
Сообщений: 8
26.05.2012, 15:16  [ТС] #3
СПАСИИИИИИБО!!!!ДОБРЫЙ ЧЕЛОВЕК!!^^
0
Dark_Apple
0 / 0 / 0
Регистрация: 29.02.2012
Сообщений: 8
31.05.2012, 21:23  [ТС] #4
может вы мне еще поможете вот с этой задачкой?^^ Динамические структуры данных.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2012, 21:23
Привет! Вот еще темы с ответами:

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

Перевести с 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); ...

Перевести на C++ из Pascal - C++
Буду очень рад тому, кто переведет из Pascal на C++ :) procedure ChangeToInc(var st:string); var f:boolean; begin f:=true;...

Перевести с Pascal на C++ - C++
Есть код на Паскале, хотел бы сам перевести его в С++, но подчистую забыл, что такое Паскаль. Помоги, люди добрые) procedure sort(var...


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

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
31.05.2012, 21:23
Ответ Создать тему
Опции темы

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