1 / 1 / 0
Регистрация: 22.05.2015
Сообщений: 15
1

Ошибка в переводе программы с паскаля на с++

25.05.2015, 13:51. Показов 435. Ответов 4
Метки нет (Все метки)

вот код паскаля. я перевел эти коды в с++. но в с++ не работает помогите найти ошибку пожалуйста
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
1.  program desicion1;                                   {Название программы}                          
2.  uses crt;                                                      {Подключение библиотеки}
3.  var k,N:integer;                                         
4.  F,S,x,zn:real;                                              
5.  begin                                                          
6.  clrscr;                                                          
7.  writeln('Входные данные задачи'
8.  writeln('---------------------');                       
9.  writeln;                                                          
10. write('Введите количество членов              
11. ряда N= ');
12. readln(N
13. write('Введите значeние   аргумента x= ');  
14. readln(x);                                                        
15. F:=1;                                                                S:=exp(0*ln(1))*(F+1)*exp(k*ln(x))/exp(k*ln(3)); }  
16. zn:=1;                                                               
17. for k:=1 to N do                                               
18. begin                                                                
19. F:=F*k;                                                         
20. zn:=zn*(-1);                                                      
21. S:=S+zn*(F+1)*exp(k*ln(x)) /exp(k*ln(3));    
22. end;                                                                  
23. writeln;writeln;                                                
24. writeln('Решение задачи');                              
25. writeln('--------------');                                       
26. writeln;                                                            
writeln('Сумма ряда  равна S=',S:10:3);       
27. writeln;                                                             
28. writeln;                                                            
29. 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
26
27
28
29
30
31
#include "stdafx.h"
#include <iostream>
#include <conio.h>
#include <iomanip>
using namespace std;
 
int main()
{
    setlocale(LC_ALL, "Russian");
    int N,k;
    double a,b,F,S,x,zn;
    cout<<"Введите количество членов ряда N=";
    cin>>N;
    cout<<"Введите значение аргумента x=";
    cin>>x;
    a=(-1); b=3;
    k=1;
    S=(pow(k,a))*(F+1)*pow(k,x)/pow(k,x);
    zn=1;  
    cout<<"S(1)=" <<S<<endl;
    for (k = 1; k <= N; k++)
    {
        F=F*k;
        zn=(-zn);                                                      
        S=S+zn*(F+1)*pow(k,x)/pow(k,b);
        cout<<"S("<<k<<")=" <<S<<fixed<<setprecision(4)<<endl;
    }                                                                 
    cout<<"Сумма ряда равна:"<<fixed<<setprecision(4)<<S;
    system("pause");
    return 0;
}
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.05.2015, 13:51
Ответы с готовыми решениями:

Ошибка при переводе программы с языка Pascal
Задание гласит: Вычислить 18 значений функции a{x}^{2}+bx+c на отрезке , сохранив их в массиве Y...

Пожалуйста найдите ошибку в переводе из паскаля на с++
uses crt; var m:arrayof integer; i,n,min,k:integer; begin clrscr; write('Введиту кол-во...

Не могу найти ошибку при переводе с Паскаля на Си
пытался перевести с помощью транслятора программу с паскаля на си, но выдает ошибку... почему не...

Нужна помощь в переводе кода программы из VB.NET в VB 6.0
Здравствуйте.У меня есть код к задаче (решения задачи методом Ньютона ) только для VB.NET,а в 6.0...

4
35 / 35 / 47
Регистрация: 20.04.2015
Сообщений: 198
25.05.2015, 14:19 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
#include "stdafx.h"
#include <iostream>
#include <conio.h>
#include <iomanip>
using namespace std;
 
int main()
{
setlocale(LC_ALL, "Russian");
int N,k;
double a,b,F,S,x,zn;
cout<<"Введите количество членов ряда N=";
cin>>N;
cout<<"Введите значение аргумента x=";
cin>>x;
a=(-1); b=3;
k=1;
S=(pow(k,a))*(F+1)*pow(k,x)/pow(k,x);
zn=1; 
cout<<"S(1)=" <<S<<endl;
for (k = 1; k <= N; k++)
{
F=F*k;
zn=(-zn); 
S=S+zn*(F+1)*pow(k,x)/pow(k,b);
cout<<"S("<<k<<")=" <<S<<fixed<<setprecision(4)<<endl;
} 
cout<<"Сумма ряда равна:"<<fixed<<setprecision(4)<<S;
system("pause");
return 0;
}


Possible use of 'F' before definition in function main()
F чему у тебя равно?
0
2548 / 1207 / 358
Регистрация: 30.11.2013
Сообщений: 3,826
25.05.2015, 14:46 3
каждый раз, когда вы создаете тему с таким названием, где-то в мире плачет один Страуструп
1
1 / 1 / 0
Регистрация: 22.05.2015
Сообщений: 15
25.05.2015, 15:02  [ТС] 4
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
#include "stdafx.h"
#include <iostream>
#include <conio.h>
#include <iomanip>
using namespace std;
 
int main()
{
    setlocale(LC_ALL, "Russian");
    long int N,k;
    long double F,S,x,zn;
    cout<<"Введите количество членов ряда N=";
    cin>>N;
    cout<<"Введите значение аргумента x=";
    cin>>x;
    F=1;
    S=pow(k,double(-1))*pow(k,x)*(F+1)/pow(k,double (3));
    zn=1;  
    cout<<"S(1)=" <<S<<endl;
    for (k = 1; k <= N; k++)
    {
        F=F*k;
        zn=zn*(-1);                                                      
        S=S+zn*(F+1)*pow(k,x)/pow(k,double(3));
        cout<<"S("<<k<<")=" <<S<<fixed<<setprecision(4)<<endl;
    }                                                                 
    cout<<"Сумма ряда равна:"<<fixed<<setprecision(4)<<S;
    system("pause");
    return 0;
}
Добавлено через 1 минуту
вот переделал но ответ как в паскале не выходить...

 Комментарий модератора 
Пользуйтесь тегами форматирования кода.
0
1 / 1 / 0
Регистрация: 22.05.2015
Сообщений: 15
25.05.2015, 15:22  [ТС] 5
вот сама формула
https://www.cyberforum.ru/cgi-bin/latex.cgi?S=\sum_{k = 1}^{k}\frac{{\left(-1 \right)}^{k} \left(k! + 1 \right) {x}^{k}  }{{3}^{k}}
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.05.2015, 15:22
Помогаю со студенческими работами здесь

Ошибка в переводе...
Фсё. Последний вопрос. Просьба откликнуться увидевшим ошибку: listb.Name = &quot;button_&quot;+...

Ошибка в переводе выражения
Не могу понять, что я не так сделал, вот что у меня получилось return (sqrt(exp(x) +...

Ошибка в переводе из Delphi в C++
Я перевожу программу из языка Delphi в С++. Вроде, всё переделал, а она всё равно не хочет работать...

При переводе программы с VS c++ 6.0 на VS c++ 2010 express выходят ошибки, как их исправить?
На Vusial Studio c++ 6.0 все прекрасно работало, но стоило мне все это перевести на visual c++ 2010...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru