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

Перевод из Pascal в C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Дерево турнира с выбыванием http://www.cyberforum.ru/cpp-beginners/thread697603.html
Не совсем понимаю, как осуществить процедуру заполнения дерева. Точнее, не понимаю, как поместить в корень максимальный элемент. Имеется вот такое дерево с симметричным обходом. Нужно с помощью...
C++ Сколько есть способов выплатить сумму В Эстонии в обращении находятся 1,2,5,10,25,50,100 и 500 - кроновые купюры. Написать программу, которая сможет найти сколько есть различных способов выплатить данную сумму. На единственной строке... http://www.cyberforum.ru/cpp-beginners/thread697600.html
C++ Конструктор копирования в c++
Добрый день, такая задача по с++ Какая ошибка в следующей реализации конструктора копирования по умолчанию и деструктора?? Какой еще оператор необходимо перегрузить для данного класса?? typedef...
C++ Не работает код
Дан файл zzz.txt В нем подсчитать кол-во букв «а»(латинская) с разбивкой по строчкам. В другом файле (qqq.txt) вывести результаты Всего вхождений: 3 (т.е. общее количествол букв а) Строка 1:...
C++ Необходимо перевести из паскаля в с++ http://www.cyberforum.ru/cpp-beginners/thread697573.html
Имеется программа на Паскале: uses crt; var a: array of string; i,j,k,l: byte; s,sl: string; begin write('s='); readln(s); s:=s+' '; sl:=''; j:=0; for i:=1 to length(s) do if...
C++ Выставить цифры в числе 1234567890 таким образом, чтобы новое число делилось без остатка на все числа от 2 до 18 включительно. Дана задача. Выставить цифры в числе 1234567890 таким образом, чтобы новое число делилось без остатка на все числа от 2 до 18 включительно. Я написал нижеследующее, но программа выводит почему то... подробнее

Показать сообщение отдельно
SoulCub
0 / 0 / 0
Регистрация: 11.11.2012
Сообщений: 7

Перевод из Pascal в C++ - C++

14.11.2012, 17:58. Просмотров 622. Ответов 2
Метки (Все метки)

Пж помогите перевести

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program SoulCub;
Var
  A,B,C:Real;
Begin
  WriteLn('Введите числa A,B и C: ');
  ReadLn(A,B,C);
  If (A < B) And (B < C) Then
    Begin
      A := A * 2;
      B := B * 2;
      C := C * 2;
    End
  Else
    Begin
      A := -A;
      B := -B;
      C := -C;
    End;
  WriteLn('A = ',A,' B = ',B,' C = ',C);
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru