Китайский календарь (Паскаль -> C++)

@1nk0gniTToO · Регистрация: 17.10.2013

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program korova;
uses crt;
var a:integer;
begin
clrscr;
writeln('введите год:');
readln(a);
case a mod 12 of
1:writeln('курица');
2:writeln('собака');
3:writeln('свинья');
4:writeln('мышь');
5:writeln('корова');
6:writeln('тигр');
7:writeln('заяц');
8:writeln('улитка');
9:writeln('змея');
10:writeln('лошадь');
11:writeln('овца');
12:writeln('обезьяна');
end;
end.

вот в паскале нужно в с++

@recoder · 13.03.2014, 17:36

C++
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
#include <iostream>
#include <windows.h>
 
int main() {
 
    int a;
    system("cls");
 
    std::cout << "Введите год: ";
    std::cin >> a;
    switch(a % 12) { 
        case 1: std::cout << "курица"; break;
        case 2: std::cout << "собака"; break;
        case 3: std::cout << "свинья"; break;
        case 4: std::cout << "мышь"; break;
        case 5: std::cout << "корова"; break;
        case 6: std::cout << "тигр"; break;
        case 7: std::cout << "заяц"; break;
        case 8: std::cout << "улитка"; break;
        case 9: std::cout << "змея"; break;
        case 10: std::cout << "лошадь"; break;
        case 11: std::cout << "овца"; break;
        case 12: std::cout << "обезьяна"; break;
    }
 
    system("pause");
    return 0;
}

@Тамика · 13.03.2014, 17:38

C++
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
#include <iostream>
 
int main()
{
    int a = 0;
    std::cout << "Enter year: \n";
    std::cin >> a;
    switch(a)
    {
        case 1: std::cout << "chicken\n"; break;
        case 2: std::cout << "dog\n"; break;
        case 3: std::cout << "pig\n"; break;
        case 4: std::cout << "mouse\n"; break;
        case 5: std::cout << "cow\n"; break;
        case 6: std::cout << "tiger\n"; break;
        case 7: std::cout << "rabbit\n"; break;
        case 8: std::cout << "snail\n"; break;
        case 9: std::cout << "snake\n"; break;
        case 10: std::cout << "horse\n"; break;
        case 11: std::cout << "sheep\n"; break;
        case 12: std::cout << "monkey\n"; break;
        default: break;
    }
    system("pause>>null");
 
}

@recoder · 13.03.2014, 17:40

Тамика, a mod 12 вы забыли.

@Тамика · 13.03.2014, 17:42

Да, не обратила внимания. Спасибо.

C++
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
#include <iostream>
 
int main()
{
    int a = 0;
    setlocale (LC_CTYPE, "Russian");
    std::cout << "Введите год: \n";
    std::cin >> a;
    switch(a % 2)
    {
        case 1: std::cout << "курица\n"; break;
        case 2: std::cout << "собака\n"; break;
        case 3: std::cout << "свинья\n"; break;
        case 4: std::cout << "мышь\n"; break;
        case 5: std::cout << "корова\n"; break;
        case 6: std::cout << "тигр\n"; break;
        case 7: std::cout << "заяц\n"; break;
        case 8: std::cout << "улитка\n"; break;
        case 9: std::cout << "змея\n"; break;
        case 10: std::cout << "лошадь\n"; break;
        case 11: std::cout << "овца\n"; break;
        case 12: std::cout << "обезьяна\n"; break;
        default: break;
    }
    system("pause>>null");
 
}

@1nk0gniTToO · 13.03.2014, 17:44 **[ТС]**

спасибо всем)

@volvo · 13.03.2014, 18:32

Остаток от деления на 12 никогда не будет равен 12-ти. Эта программа и на Паскале неправильно написана, если что...

@Тамика · 13.03.2014, 18:46

Эта программа и на Паскале неправильно написана, если что...

"Заказчик" всегда прав.

@volvo · 13.03.2014, 18:49

Это кому как. Один раз ему уже "впарили" неправильный код, не надо усугублять...

Если не хочется менять все числа в Case - то быстрое исправление проблемы:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program korova;
uses crt;
var a:integer;
begin
  clrscr;
  writeln('введите год:');
  readln(a);
  case Succ(a mod 12) of
    1:writeln('курица');
    2:writeln('собака');
    3:writeln('свинья');
    4:writeln('мышь');
    5:writeln('корова');
    6:writeln('тигр');
    7:writeln('заяц');
    8:writeln('улитка');
    9:writeln('змея');
    10:writeln('лошадь');
    11:writeln('овца');
    12:writeln('обезьяна');
  end;
end.

переносим в

C++
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
#include <iostream>
int main()
{
    int a = 0;
    setlocale (LC_CTYPE, "Russian");
    std::cout << "Введите год: \n";
    std::cin >> a;
    switch((a % 12) + 1)
    {
        case 1: std::cout << "курица\n"; break;
        case 2: std::cout << "собака\n"; break;
        case 3: std::cout << "свинья\n"; break;
        case 4: std::cout << "мышь\n"; break;
        case 5: std::cout << "корова\n"; break;
        case 6: std::cout << "тигр\n"; break;
        case 7: std::cout << "заяц\n"; break;
        case 8: std::cout << "улитка\n"; break;
        case 9: std::cout << "змея\n"; break;
        case 10: std::cout << "лошадь\n"; break;
        case 11: std::cout << "овца\n"; break;
        case 12: std::cout << "обезьяна\n"; break;
        default: break;
    }
    system("pause>>null");
 
}

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@recoder 135 / 134 / 53 Регистрация: 13.09.2013 Сообщений: 260 Записей в блоге: 2
	13.03.2014, 17:40
	Тамика, a mod 12 вы забыли. 1

@1nk0gniTToO 0 / 0 / 0 Регистрация: 17.10.2013 Сообщений: 49
	13.03.2014, 17:44 [ТС]
	спасибо всем) 0

@volvo Супер-модератор 33187 / 21484 / 8232 Регистрация: 22.10.2011 Сообщений: 36,862 Записей в блоге: 12
	13.03.2014, 18:32
	Остаток от деления на 12 никогда не будет равен 12-ти. Эта программа и на Паскале неправильно написана, если что... 0