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

Перевод с С++ на Паскаль - C++

Восстановить пароль Регистрация
 
Arh173
0 / 0 / 0
Регистрация: 23.09.2013
Сообщений: 21
11.11.2013, 16:15     Перевод с С++ на Паскаль #1
Нужно написать программу на C++, но мне удалось найти только вариант на паскале, его мы не изучали, помогите перевести.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var a,b:real;
begin
writeln('Enter price: ');
readln(a);
b:=10;
b:=a/b;
if (a>1000) then
begin
writeln('Discount 10%');
a:=a-b;
write('Price with discount: ',a:2:2);
readln;
end
else
begin
write('Price: ',a:2:2);
readln;
end;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.11.2013, 16:15     Перевод с С++ на Паскаль
Посмотрите здесь:

Перевод из с++ в паскаль C++
Перевод з С++ в Паскаль)) C++
Перевод задачи из Паскаль в С++ C++
C++ Перевод программы паскаль в с++
C++ Перевод с Паскаль на С++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
metaluga145
243 / 244 / 20
Регистрация: 08.04.2013
Сообщений: 927
11.11.2013, 16:25     Перевод с С++ на Паскаль #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
#include <iostream>
#include <iomanip>
using namespace std;
 
 
int main(int argc, char *argv[])
{
    double a, b;
    cout << "Enter price: ";
    cin >> a;
    b = a / 10.;
    if (a > 1000)
    {
        cout << "Discount 10%";
        a -= b;
        cout << "Price with discount: " << setprecision(2) << fixed << a << endl;
    }
    else
    {
        cout <<"Price: " << setprecision(2) << fixed << a << endl;
    }
    system("pause");
    return 0;
}
Arh173
0 / 0 / 0
Регистрация: 23.09.2013
Сообщений: 21
11.11.2013, 16:32  [ТС]     Перевод с С++ на Паскаль #3
metaluga145, большое спасибо, но можно ли сделать это же, но без <iomanip>?
Ryuk
 Аватар для Ryuk
179 / 177 / 33
Регистрация: 10.06.2011
Сообщений: 869
11.11.2013, 16:34     Перевод с С++ на Паскаль #4
Arh173, можно, но решение естественно будет уже другое
metaluga145
243 / 244 / 20
Регистрация: 08.04.2013
Сообщений: 927
11.11.2013, 16:41     Перевод с С++ на Паскаль #5
Arh173, я лентяй, потому тут полу с, полу с++
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
#include "stdafx.h"
#include <iostream>
using namespace std;
 
 
int main(int argc, char *argv[])
{
    double a, b;
    cout << "Enter price: ";
    cin >> a;
    b = a / 10.;
    if (a > 1000)
    {
        cout << "Discount 10%";
        a -= b;
        printf("%2.2f", a);
        cout << endl;
    }
    else
    {
        cout << "Price: ";
        printf("%2.2f", a);
        cout << endl;
    }
    system("pause");
    return 0;
}
Arh173
0 / 0 / 0
Регистрация: 23.09.2013
Сообщений: 21
11.11.2013, 16:44  [ТС]     Перевод с С++ на Паскаль #6
metaluga145, всё равно спасибо.
Yandex
Объявления
11.11.2013, 16:44     Перевод с С++ на Паскаль
Ответ Создать тему
Опции темы

Текущее время: 06:29. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru