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

Переведите с Паскаля - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Как нарисовать на С++ 3D пистолет... http://www.cyberforum.ru/cpp-beginners/thread398237.html
Нарисовать на С++ 3D пистолет, который можно вращать(проверка на трехмерность), и за компанию , чтоб стрелял. Как это написать на Visual C++? Да, это снова я =)
C++ Можно ли как-то инициализировать массив? Можно ли как-то инициализировать массив ar? class digit { int a, b; public: digit (int a_, int b_) { a=a_; b=b_; } http://www.cyberforum.ru/cpp-beginners/thread398235.html
C++ Ошибки в программе
Всем здравствуйте!!! Не так давно начала изучать С++ и вот делая очередную практическую наткнулась на ошибки и незнаю как исправить. Задание расписанно очень подробно, поэтому прикрепляю файл с ним... Вот что я понаделала, кстати работаю в C++Builber: class TPoint {public: double x,y;
Чтение сложной строки из файла с помощью fwscanf C++
Здравствуйте. Используя функцию fwscanf(inFileData, L"%20s", str); , обнаружил, что считывание происходит до первой запятой, а хотелось-бы перекачивать в str всю строку целиком. (Текст вводился в русской раскладке)
C++ база данных С++ http://www.cyberforum.ru/cpp-beginners/thread398205.html
задание: Написать программу учета подписчиков на периодические издания в почтовом отделении Каждая запись содержит: • Фамилия И.О. подписчика. • Адрес подписчика. • Вид издания. • Наименование издания. • Срок подписки. • Дата начала доставки издания.
C++ Запись и считывание с позиции в файле! Нужно лабу накатать, ищу информацию по этой теме! Пока не очень успешно! Если кто может подкиньте информацию или где хоть искать!^^ Буду очень благодарен!=) Добавлено через 29 минут Желательно в варианте C++! подробнее

Показать сообщение отдельно
zago-vlad
13 / 8 / 1
Регистрация: 12.01.2010
Сообщений: 106
03.12.2011, 23:27     Переведите с Паскаля
Всем привет!

Нарыл в инете прогу на Паскале (прога определяет день недели по дате). Нужно перевести ее на С++

Pascal
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
28
29
30
31
32
33
34
35
36
37
38
39
program denned;                                                           
 
const                                                                    
 
  YEARS  : array[0.. 3] of byte = (0, 2, 3, 4);                        
  MONTHS : array[1..12] of byte = (0, 3, 3, 6, 1, 4, 6, 2, 5, 0, 3, 5);  
  DAYOFWEEKS  : array[0..6] of string =                                  
    ('Воскресенье', 'Понедельник', 'Вторник', 'Среда', 'Четверг',        
     'Пятница', 'Суббота');                                                
 
var       
                                                                
  a, b, c, d, e, f, tmp : byte;                                          
  day, month, year      : word;                                            
 
begin                                                                     
 
  repeat                                                                  
 
    write('Число XX -> ');
    readln(day);                                                         
    if day = 0 then break; { выход }                                      
    write('Месяц XX -> ');                                               
    readln(month);                                                        
    write('Год XXXX -> ');                                               
    readln(year);                                                       
    tmp := year - 1996;                                                  
    a := tmp and 3;                                                       
    b := (tmp shr 2) + (tmp and $FC);                                     
    c := MONTHS[month];                                                 
    if (a = 0) and (month > 2) then inc(c);                             
    a := YEARS[a];                                                      
    e := (a + b + c + day) mod 7;                                      
    writeln('Результат: ', DAYOFWEEKS[e]);                           
    writeln;                                                           
 
  until false;                                                         
 
end.
Заранее ОГРОМНОЕ спасибо!
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 17:50. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru