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

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

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

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

11.11.2013, 16:15. Просмотров 282. Ответов 5
Метки нет (Все метки)

Нужно написать программу на 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.11.2013, 16:15
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод с С++ на Паскаль (C++):

Перевод из с++ в паскаль - C++
прошу помощи в переводе данного кода в паскаль... всё более-менее ясно, но та же самая последняя фигня в мэйне типо 'case'... я не понимаю...

Перевод из Паскаль в C++ - C++
uses crt; const nmax=100;{при 100 считает довольно долго, ждите} e=0.01; type Point=record {точка} ...

Перевод с Паскаль на С++ - C++
Привет всем.Помогите перевести с паскаля на C++ этот код: const n = 100; var arr: array of integer; i, m, qty: byte;...

Перевод з С++ в Паскаль)) - C++
#include "stdafx.h" #include <iomanip> #include <iostream> using namespace std; #define n 67 void main() { int p,q, a,i=0; ...

Перевод с Паскаль на С++ - C++
Помогите перевести с паскаля на C++ этот код: var s:string; i,c:integer; begin readln(s); c:=0; for i:=1 to...

перевод из си++ в паскаль - C++
for (int j = max(0, i - (n - m)); j <= i && j <= m; ++j) Как перевести эту строчку, а именно "j <= i && j <=...

5
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;
}
1
Arh173
0 / 0 / 0
Регистрация: 23.09.2013
Сообщений: 21
11.11.2013, 16:32  [ТС] #3
metaluga145, большое спасибо, но можно ли сделать это же, но без <iomanip>?
0
Ryuk
179 / 177 / 33
Регистрация: 10.06.2011
Сообщений: 871
11.11.2013, 16:34 #4
Arh173, можно, но решение естественно будет уже другое
0
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;
}
1
Arh173
0 / 0 / 0
Регистрация: 23.09.2013
Сообщений: 21
11.11.2013, 16:44  [ТС] #6
metaluga145, всё равно спасибо.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.11.2013, 16:44
Привет! Вот еще темы с ответами:

Перевод из паскаль в С++ - C++
Ребята, очень срочно, кто сможет выручайте, нужно перевести данную программу на с++! Данная задача нужна для зачета завтра! Если кто сможет...

Перевод с Паскаль на С++ - C++
var S,x,i:integer; begin x:=1; S:=0; for i:=1 to 10 do begin S:=S+x; x:=x*2; end; write(S div 100, ',', S mod 100,'...

Перевод с Паскаль на С++ - C++
uses crt; var m, k: byte; begin write('m = '); readln(m); write('k = '); readln(k);

Перевод программы паскаль в с++ - C++
Нужна помощь, в переводе с языка программирования паскаля в си Вот задание :Дано действительное число х, натуральное число n. Вычислить ...


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

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

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