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

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

Войти
Регистрация
Восстановить пароль
 
сержи
6 / 6 / 0
Регистрация: 03.07.2010
Сообщений: 222
#1

Из Pascal в C++ программу перевести - C++

11.05.2011, 18:23. Просмотров 575. Ответов 1
Метки нет (Все метки)

Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных A, B, C.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var a,b,c:real;
begin
clrscr;
writeln('введите числа');
readln(a,b,c);
if (c>b)and(b>a) then begin
a:=2*a;b:=2*b;c:=2*c;
end
else begin
a:=-a;b:=-b;c:=-c;
end;
writeln(a,'  ',b,'  ',c);
end.
Помогите в С++ запись сделать!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.05.2011, 18:23
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Из Pascal в C++ программу перевести (C++):

Перевести программу с Pascal на С++ - C++
Program SumCuba; var x, {пробное число} n, {последняя цифра} p, {число без последней цыфры} s:integer; {сумма кубов цифр} ...

Перевести программу с Pascal на С++ - C++
uses crt; var f:text; {переменная для текстового файла} s:string; i:byte; begin clrscr; ...

Перевести программу с Pascal на С++ - C++
нужно код с паскаля подогнать под код с++ var first, second: string; chars: set of char; i: integer; begin ...

Перевести программу с Pascal на С++ - C++
нужно код с паскаля подогнать под код с++ var a,s:integer; begin clrscr; write('vvedite chislo: '); readln(s); repeat a:=s; ...

Нужно Перевести программу с Turbo pascal на C++ - C++
Помогите пожалуйста! Нужно Перевести программу с Turbo pascal на C++ вот этот код: uses crt; const nmax=10; var a:array of...

Как программу на Turbo Pascal перевести на C++?Выручите) - C++
const N=3; var X,Y:array of real;Z:array of real;max,min:real;m,p,i,j,k:integer; Begin for i:=1 to N do Begin Read(X,Y);Readln;end;...

1
soon
2542 / 1307 / 81
Регистрация: 09.05.2011
Сообщений: 3,086
Записей в блоге: 1
11.05.2011, 18:30 #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
#include <iostream>
 
int main()
{
    float a,b,c;
    std::cin >> a;
    std::cin >> b;
    std::cin >> c;
    if ((a<b)&&(b<c)) 
    {
        a*=2;
        b*=2;
        c*=2;
    }
    else
    {
        a*=-1;
        b*=-1;
        c*=-1;
    }
    std::cout << a << " " << b << " " << c;
    return 0;
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.05.2011, 18:30
Привет! Вот еще темы с ответами:

Перевести с Pascal на C++ - C++
Была цепь длиной L, N рыбин. Зная координаты головы и хвоста каждой из них, подсчитайте, на какие сутки у собаки появится голод, если он...

Перевести с Pascal на C++ - C++
Здравствуйте! Переведите пожалуйста данный код с Pascal на C++: var n, i, j, cnt, p, found, best, first, ind : longint; s :...

Перевести с pascal в C++ - C++
Помогите кто знает, вот код program pop; uses crt; label 10; var y,xn,xk,dx:real; begin clrscr; xn:=6;

перевести с Pascal на С++ - C++
переведите пожалуйста на С++ uses crt; var a,s,x:real; i:integer; eps:real; function fct(n:integer): real; var f: real;...


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

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

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