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

Перевести код с Pascal в С++

20.05.2015, 20:56. Показов 956. Ответов 1
Метки нет (Все метки)

Program fun1;
Var m: integer;
a,b,h,x,y : real;
begin

read (a,b,m);
Writeln ('Таблиця:');
h:=(b-a)/m;
x:=a;
while x<=b
do
begin
if x<0 then y:=sqrt((exp(2/3)*ln(a) - exp(2/3)*ln(x)))
else y:=a+sqrt((exp(2)*ln(x)/(2*a-x)));
writeln(x,'':2,1-x);
x:=x+h;
end;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2015, 20:56
Ответы с готовыми решениями:

Перевести код из Pascal на C++
Нужно произвести удаление узла из сбалансированного дерева. В С++ я не бум-бум, помогите...

Перевести код с Pascal
var a,b,c:real; begin clrscr; writeln('Vvedite A='); readln(a); writeln('Vvedite...

Перевести код из Pascal в C++
доброго времени суток. Надо перевести код паскаля в с++ чтоб выполняло тоже самое и выдавало тот...

Перевести код из Pascal в С++
Всем привет! Нужно срочно сделать задачку, условие такое: &quot;Вычислить приближенное значение...

1
15 / 15 / 21
Регистрация: 18.04.2015
Сообщений: 73
20.05.2015, 21:59 2
Лучший ответ Сообщение было отмечено slientme как решение

Решение

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include <iostream>
#include <cmath>
#include <iomanip>
using namespace std;
int main()
{
    int m;
    double a,b,h,x,y;
    cout<<"Vvedite a,b,m ";
    cin>>a>>b>>m;
    cout<<"Tablicya:\n";
    h = (b - a) / m;
    x = a;
    while (x <= b)
    {
        if (x < 0) y = sqrt(exp(2/3)*log(a) - exp(2/3)*log(x));
        else y = a + sqrt( exp(2) * log(x) / (2 * a - x));
        cout<<setprecision(2)<<x;
        x = x + h;
    }
}
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2015, 21:59
Помогаю со студенческими работами здесь

Перевести код с Pascal на С++
Ребята,помогите преобразовать код,представленный по этой ссылке...

Перевести код с Pascal
№1 var s1,s2,n: longint; f: integer; begin write('vvedite natural chislo '); ...

Перевести код c Pascal в C++
uses Crt; function Fun(a,b,c:integer):boolean; begin if a&lt;(b+c) then Fun:=true ...

Перевести код с Pascal
есть код на Pascale,перевести на СИ


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

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

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