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

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

Восстановить пароль Регистрация
 
леха94
0 / 0 / 0
Регистрация: 12.04.2013
Сообщений: 3
12.04.2013, 19:16     перевод программы #1
помогите перевести с 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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.04.2013, 19:16     перевод программы
Посмотрите здесь:

Перевод программы C++
перевод программы C++
Перевод программы C++
Перевод программы C++
C++ Перевод программы на С++ с Паскаля
C++ Перевод программы на C++
Перевод программы на С++ C++
C++ Перевод программы на С++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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