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

перевод программы - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Бинарные файлы. Получить значения функции , вычисленной с заданной точностью e, для каждого числа, имеющегося в файле http://www.cyberforum.ru/cpp-beginners/thread836029.html
В бинарном файле записаны вещественные числа. Получить значения функции , вычисленной с заданной точностью e, для каждого числа, имеющегося в файле.
C++ Написать рекурсивную функцию для нахождения n-го члена и суммы n первых членов прогрессии помогите пожалуйста разобраться с задачей: Даны первый член и разность арифметической прогрессии. Написать рекурсивную функцию для нахождения n-го члена и суммы n первых членов прогрессии. http://www.cyberforum.ru/cpp-beginners/thread836025.html
C++ использование функций шаблонов (выяснить является ли матрица симметричной относительно главной диагонали)
выяснить является ли матрица симметричной относительно главной диагонали. помогите плииз, не получается разобраться.
Найти строку матрицы с максимальной суммой элементов C++
Дано двумерный массив целых чисел, найти строку с максимальной суммой элементов. Помогите сделать, или хотя бы напишите часть как найти строку с максимальной суммой элементов...
C++ Решение уравнений - последовательность действий http://www.cyberforum.ru/cpp-beginners/thread835997.html
Дано 3 числа. Между ними можно ставить знаки математических операций: сложение, вычитание, умножение, деление. Сколько различных значений может образоваться в результате вычисления полученных таким образом выражений? Пример: 2 + 2 + 8 = 12 2 + 2 - 8 = -4 2 + 2 * 8 = 18 2 + 2 / 8 = 2.25 2 - 2 + 8 = 8 2 - 2 - 8 = -8 2 - 2 * 8 = -14 2 - 2 / 8 = 1.75
C++ Разработать рекурсивную функцию, возвращающую значение Разработать рекурсивную функцию, возвращающую значение: для вычисления значения функции: подробнее

Показать сообщение отдельно
леха94
0 / 0 / 0
Регистрация: 12.04.2013
Сообщений: 3
12.04.2013, 19:16     перевод программы
помогите перевести с pascal в c++


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program a; 
uses crt; 
var m,m1,d,d1:Integer; 
begin 
clrscr; 
write('vvesti mes i den -->'); readln(m,d); 
case m of 
1,3,5,7,8,10: if d=31 then begin m1:=m+1; d1:=1 end 
else begin m1:=m; d1:=d+1 end ; 
2:if d=28 then begin m1:=3; d1:=1 end 
else begin m1:=m; d1:=d+1 end ; 
4,6,9,11: if d=30 then begin m1:=m+1; d1:=1 end 
else begin m1:=m; d1:=d+1 end ; 
12 : if d=31then begin m1:=1; d1:=1 end 
else begin m1:=m; d1:=d+1 end ; 
end; 
writeln(m1,d1:4); 
writeln('konec zadachi'); 
readkey; 
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 12:14. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru