1 / 1 / 1
Регистрация: 23.01.2016
Сообщений: 153
1

Перевести код с Паскаля на Си++

03.06.2016, 17:11. Показов 2296. Ответов 2
Метки нет (Все метки)

Добрый всем день! Будьте добры, перепишете пожалуйста данную программу из паскаля на си++. Буду очень благодарен.
Я сам Паскаль не знаю.
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
uses crt;
const e=2.71;
var a,b,c,k:integer;
x,y:real;
begin
clrscr;
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
x:=-2;
k:=2;
writeln('y=a*exp(ln(e)*(b*x+c*sqr(x)))');
writeln('|   x   |     y      |       ');
writeln('----------------------       ');
while x<-1 do
 begin
 y:=a*exp(ln(e)*(b*x+c*sqr(x)));
 gotoXY(1,whereY); write(x:6:1);
 gotoXY(12,whereY); writeln(y:6:2);
 x:=x+0.2;
  end;
while (x>-1) and (x<2.2) do
 begin
  y:=a*exp(ln(e)*(b*x+c*sqr(x)));
 gotoXY(30,k); write(x:6:1);
 gotoXY(43,k); write(y:6:2);
 k:=k+1;
 x:=x+0.2;
 end;
readkey;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.06.2016, 17:11
Ответы с готовыми решениями:

перевести код из паскаля на с++
var i, a, n, s: int64; j, t:longint; procedure out; begin writeln (s); halt; end; ...

Перевести код с Паскаля на С++
Program proga; uses crt; Type gostinica= record FIO:string; nomer:integer; cena:integer;...

Перевести код из Паскаля в С++
Помогите, пожалуйста перевести в с++ uses crt; const nmax=20; var a:array of integer; ...

Перевести код с Паскаля на C++
begin var число := ReadInteger('Введите трехзначное натуральное число:'); var (сотни,...

2
7169 / 6143 / 2803
Регистрация: 14.04.2014
Сообщений: 26,469
04.06.2016, 21:09 2
Лучший ответ Сообщение было отмечено dune777 как решение

Решение

Как-то так. Координаты сам подгони.
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#include <iostream>
#include <iomanip>
#include <cstdlib>
#include <cmath>
#include "windows.h"
 
using namespace std;
 
int main()
{
    const double e = 2.71;
    double x = -2, y;
    int a, b, c, k = 2;
 
    COORD crd;
    crd.X = 30;
    crd.Y = 3;
    HANDLE hStdout = GetStdHandle(STD_OUTPUT_HANDLE);
 
    system("cls");
 
    cout << "a = ";
    cin >> a;
    cout << "b = ";
    cin >> b;
    cout << "c = ";
    cin >> c;
 
    cout << "y=a*exp(ln(e)*(b*x+c*sqr(x)))\n|   x   |     y      |       \n----------------------       \n";
 
    while (x < -1)
    {
        y = a * exp(log(e) * (b * x + c * x * x));
        cout << setw(8) << right << fixed << setprecision(1) << x << endl
                << setw(13) << right << fixed << setprecision(2) << y << endl;
        x += 0.2;
    }
 
    while (x > -1 && x < 2.2)
    {
        SetConsoleCursorPosition(hStdout, crd);
 
        y = a * exp(log(e) * (b * x + c * x * x));
        cout << setw(8) << right << fixed << setprecision(1) << x << endl
                << setw(13) << right << fixed << setprecision(2) << y << endl;
        x += 0.2;
 
        ++crd.Y;
    }
}
0
1 / 1 / 1
Регистрация: 23.01.2016
Сообщений: 153
04.06.2016, 21:10  [ТС] 3
Спасибо огромное!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2016, 21:10
Помогаю со студенческими работами здесь

Перевести код паскаля в с++
Нужно перевести данный код паскаля в с++. Задание: Найти в строке все заданные последовательности...

Перевести код из Паскаля в Си++
Переведите пожалуйста из Паскаля в Си++, кому не сложно.

Перевести код с паскаля на C++
По заданному натуральному числу N необходимо вычислить количество натуральных чисел, которые...

Перевести код с Паскаля на С++
Фирме принадлежат два магазина. Известна стоимость товаров, проданных в каждом магазине за каждый...


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

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

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