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

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

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

Перевести с Pascal на C++ - C++

08.07.2014, 14:31. Просмотров 337. Ответов 11
Метки нет (Все метки)

Здравствуйте! Помогите пожалуйста перевести вот эти программы с языка Pascal на C++ Сам я очень плохо знаю C++ поэтому был бы крайне признателен вам!
2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var s, t: real;
i, n, x: integer;
begin
readln(i);
s:=1;t:=1;
for i:=1 to n do
 begin
  t:=t*x/i;
  s:=s+t;
write('S= ');
writeln(s);
 end;
 end.
Вот только во второй программе возможно содержится ошибка, потому что она ничего не выводит, хотя должна... Если потребуется условие задачи, то я предоставлю.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.07.2014, 14:31
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести с Pascal на C++ (C++):

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

Перевести с Pascal на C++ - C++
Всем привет) есть задачи: 2) Слова, содержащие сочетание ‘кот’, расположить в конце последовательности, сохраняя исходный порядок...

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

Перевести из 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++
Всем привет) есть задачи: 1) Поменять местами в каждом слове первую половину слова со второй. Есть решение этих задач, но нужно мне...

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
SunnyMa
0 / 0 / 0
Регистрация: 08.07.2014
Сообщений: 8
08.07.2014, 14:51 #2
Вторая задачка, что-то вроде того
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
float s,t;
int i,n,x;
printf("Введите i");
scanf("%d",i);
printf("Введите n");
scanf("%d",n);
s=1;
t=1;
for(i=1;i<n;i++)
{
t=t*x/i;
s=s+t;
print("S = ", s);
}
Добавлено через 2 минуты
ошибочка, амперсанды в scanf потерялись)
C++
1
2
scanf("%d", &i);
scanf("%d", &n);
А задачка ничего не выводила, потому что n не определено
0
SatanaXIII
Супер-модератор
Эксперт С++
5616 / 2651 / 246
Регистрация: 01.11.2011
Сообщений: 6,529
Завершенные тесты: 1
08.07.2014, 15:02 #3
aleksch, пункт 5.16 Правил: На каждую задачу создавайте отдельную тему.

Цитата Сообщение от aleksch Посмотреть сообщение
Если потребуется условие задачи, то я предоставлю
Вообще-то лучше всегда так и поступать. Часто по коду непонятно чего он делает.
2
Dax
13 / 13 / 5
Регистрация: 23.03.2014
Сообщений: 91
08.07.2014, 15:14 #4
C++ (Qt)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include<iostream>
using namespace std;
int main()
{
float s;
float t; 
int i;
int n;
int x;
cin>>i;
s=1;
t=1;
for (int i=1; i<n; ++i);
{
 t=t*(x/i);
s=s+t;
cout<<"s="<<endl;
cout<<s;
}
system("pause>>void");
}
мой вариант задача 2(прошу ногами не бить)
1
aleksch
0 / 0 / 0
Регистрация: 03.07.2014
Сообщений: 12
08.07.2014, 15:22  [ТС] #5
Зачем же вас ногами бить? Вот только компилятор ругается, что мол использована неинициализированная локальная переменная "x" и "n"
0
Dax
13 / 13 / 5
Регистрация: 23.03.2014
Сообщений: 91
08.07.2014, 15:26 #6
А какой именно компилятор?
Если какой-нибудь страшный emacs - убираем ключ -Wall и молчит.
А работать должно.
0
aleksch
0 / 0 / 0
Регистрация: 03.07.2014
Сообщений: 12
08.07.2014, 15:30  [ТС] #7
Цитата Сообщение от Dax Посмотреть сообщение
А какой именно компилятор?
Если какой-нибудь страшный emacs - убираем ключ -Wall и молчит
Всё верно, дело в самом компиляторе конечно. Просто по стандарту нужно использовать DevCPP, а я на Microsoft Visual Studio пытаюсь, так как DevCPP не работает на моей системе. Ну короче спасибо вам - помогли, откомпилирую в следующий раз просто.
0
SatanaXIII
Супер-модератор
Эксперт С++
5616 / 2651 / 246
Регистрация: 01.11.2011
Сообщений: 6,529
Завершенные тесты: 1
08.07.2014, 15:32 #8
Технический перевод
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include <iostream>
using namespace std;
 
int main()
{
double s = 1, t = 1;
int n, x;
 
cin >> i;
 
for( int i=0; i<n; i++ )
  {
  t *= x/i;
  s += t;
  cout << "S = " << s;
  }
 
std::cin.ignore();
return 0;
}

Но должно быть наверное как-то так
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include <iostream>
using namespace std;
 
int main()
{
double s = 1, t = 1, x = 1;
unsigned n;
 
cin >> n;
 
for( unsigned i=0; i<n; i++ )
  {
  t *= x/i;
  s += t;
  }
 
cout << "S = " << s;
 
std::cin.ignore();
return 0;
}
2
Dax
13 / 13 / 5
Регистрация: 23.03.2014
Сообщений: 91
08.07.2014, 15:34 #9
Рад Был помочь.
В теме с++ для начинающих Вам стоит посмотреть бесплатные среды.
Visual очень копризная вещь.
1
SatanaXIII
Супер-модератор
Эксперт С++
5616 / 2651 / 246
Регистрация: 01.11.2011
Сообщений: 6,529
Завершенные тесты: 1
08.07.2014, 15:37 #10
Цитата Сообщение от aleksch Посмотреть сообщение
неинициализированная локальная переменная "x" и "n"
Цитата Сообщение от Dax Посмотреть сообщение
for (int i=1; i<n; ++i); { t=t*(x/i);
У вас здесь цикл от единицы до любого произвольного значения в пределах INT_MAX. n то проинициализированно мусором. Уже недурственный такой расчет получается.
Помимо этого при расчете t тоже любой произвольное значение делится на i.
1
Dax
13 / 13 / 5
Регистрация: 23.03.2014
Сообщений: 91
08.07.2014, 15:55 #11
Попытался сделать очень точный перевод с pascal
Цитата Сообщение от aleksch Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var s, t: real;
i, n, x: integer;
begin
readln(i);
s:=1;t:=1;
for i:=1 to n do
begin
 t:=t*x/i;
 s:=s+t;
write('S= ');
writeln(s);
end;
Ну она ж так написана, я просто перевел.
0
SatanaXIII
Супер-модератор
Эксперт С++
5616 / 2651 / 246
Регистрация: 01.11.2011
Сообщений: 6,529
Завершенные тесты: 1
08.07.2014, 16:00 #12
Цитата Сообщение от Dax Посмотреть сообщение
Попытался сделать очень точный перевод с pascal
Получилось.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.07.2014, 16:00
Привет! Вот еще темы с ответами:

Перевести из Pascal на С++ - C++
условие: Данная целочисленные квадратная матрица. Вычислить: 1) сумму элементов в тех строках, которые не содержат отрицательных...

Перевести с Pascal на C++ - C++
var n:longint;max:integer; begin writeln('n='); readln(n); max:=0 ; while n&gt;0 do begin if max&lt;n mod 10...

Перевести из Pascal в C++ - C++
Ребят, помогите пожалуйста перевести программы на С++! :( Задача №1 (Схема горнера) program labblablabla; var x,s,k:real; ...

Перевести из Pascal в С++ - C++
Помогите перевести программу на C++ Исходник Pascal: Program Posled; Uses winCRT; Var Eps, AOld, ANew : Real; N : Integer;...


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

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

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