Опять про старое, изжитое, но очень хорошо известное старое. Ко мне когда-то обращались за помощью с такой задачей:
Напишите программу, которая принимает номер дня в году а выводит название месяца и номер дня в этом месяце. Использовать циклы. Реализация на Pascal.
Оформлена как программа.
[pascal]
program perevod;
var
num : integer;
month : integer;
day : integer;
i: integer;
begin
month := 1;
writeln(‘Enter Integer Value: ‘);
readln(num);
if num begin
for i:= 1 to num do
begin
if (month = 2) and (day = 28) then
begin
inc(month);
day:= 0;
end;
if ((month = 4)
or (month = 6)
or (month = 9)
or (month = 11)) and (day = 30) then
begin
inc(month);
day:= 0;
end;
if ((month = 1)
or (month = 3)
or (month = 5)
or (month = 7)
or (month = 8)
or (month = 10)
or (month = 12)) and (day = 31) then
Сортировка дней рождений по месяцам
begin
inc(month);
day:= 0;
end;
inc(day);
end;
if (month = 1) then writeln(day, ‘ Января’);
if (month = 2) then writeln(day, ‘ Февраля’);
if (month = 3) then writeln(day, ‘ Марта’);
if (month = 4) then writeln(day, ‘ Апреля’);
if (month = 5) then writeln(day, ‘ Мая’);
if (month = 6) then writeln(day, ‘ Июня’);
if (month = 7) then writeln(day, ‘ Июля’);
if (month = 8) then writeln(day, ‘ Августа’);
if (month = 9) then writeln(day, ‘ Сентября’);
if (month = 10) then writeln(day, ‘ Октября’);
if (month = 11) then writeln(day, ‘ Ноября’);
if (month = 12) then writeln(day, ‘ Декабря’);
end
else
writeln(‘incorrect Value’);
readln;
end.
[/pascal]
Что тут происходит:
- Начинаем с первого месяца
- выводим сообщение пользователю и считываем в переменную, что он ввел.
- после этого проверяем, какое число он ввел? 400 дней в году не бывает 🙂 Так что если число нормальное, то работа продолжится, иначе-выдача сообщения о том, что мол данные кривые
- Дальше самое интересное. Цикл, который перебирает дни и раз в определенное количество дней прибавляет количество месяцев и обнуляет количество дней в этом месяце.
- И последнее. Перевод численного представления месяца в его название и приписывание числа в этом месяце. Всё просто
- Pascal, Си/C++, C# Определение совершенного числа
- Pascal: в двумерном массиве поменять местами максимальный и минимальный элементы
- Pascal. Найти значение выражения
- Задачки на Pascal
- Pascal: Сумма некоторых элементов массива
Источник: pyatnitsev.ru
Напишите программу, которая вводит номер месяца и выводит название времени года
Необходимо, чтоб программка выводила заглавие месяца либо время года?
Автоматический календарь-планировщик смен в Excel
- Тавкин Олежка
- Информатика
- 2019-04-28 04:00:40
- 2
- 1
Денис 2019-04-28 04:02:22
// тут кусочек кода, в котором считываем введённый месяц в переменную
//month
char getTime(int month)
switch (month)
case ‘1’ : return ‘winter’; break;
case ‘2’ : return ‘winter’; break;
case ’12’ : return ‘winter’; break;
case ‘3’ : return ‘spring’; break;
case ‘4’ : return ‘spring’; break;
case ‘5’ : return ‘spring’; break;
case ‘6’ : return ‘summer’; break;
case ‘7’ : return ‘summer’; break;
case ‘8’ : return ‘summer’; break;
case ‘9’ : return ‘autumn’; break;
case ’10’ : return ‘autumn’; break;
case ’11’ : return ‘autumn’; break;
default : ‘NO’; break;
Источник: obrazovalka.com
Напишите программу которая получает номер месяца и выводит соответствующее ему время года или ошибку
Презентация на тему: » Составить программу, которая запрашивает номер месяца и выводит соответствующее название времени года. В случае, если введено недопустимое число, программа.» — Транскрипт:
3 Оператор выбора одно из нескольких ключ выбора Оператор выбора позволяет выбрать одно из нескольких возможных продолжений программы. Параметром, по которому осуществляется выбор, служит так называемый ключ выбора (или селектор) — выражение любого типа (кроме типов REAL и STRING) case выражение of значение 1 : оператор (группа операторов); значение 2 : оператор (группа операторов); значениеN : оператор (группа операторов) else оператор (группа операторов); end; Перебор из возможных значений выражения
4 Оператор Case работает следующим образом: вычисляется значение ключа R отыскивается такой оператор, которому предшествует константа, равная значению ключа выбора после того, как выбранный оператор выполнится, Case завершает свою работу. Иногда используют Case с ключевым словом Else, после которого может стоять любой оператор. При отсутствии в списке выбора нужной константы осуществляется переход к оператору, следующему за Case, или управление передается оператору, стоящему за ключевым словом Else. Для каждой альтернативы предполагается один оператор (простой или составной).
5 Сначала вычисляется значение выражения, стоящее после зарезервированного слова CASE, а затем выполняется оператор (или составной оператор), соответствующий результату вычисления выражения Case (N mod 2) of 0 : writeln (N, — число четное) else writeln (N, — число нечетное); end;
6 Если один оператор выполняется при нескольких значениях, то их можно перечислить через запятую Case N of 1, 2, 3 : writeln (Первый квартал); 4, 5, 6 : writeln (Второй квартал); 7, 8, 9 : writeln (Третий квартал); 10, 11, 12 : writeln (Четвёртый квартал); end;
7 Если оператор должен выполняться при нескольких значениях селектора следующих друг за другом, образуя некоторый промежуток, то это можно записать в более сжатой форме Case N of 0..9 : write (Это число является цифрой); end;
8 Блок-схема конструкции выбора Начало Ввод числа В В? Вывод «Лето» Вывод «Осень» Вывод «Зима» Вывод «Весна» Вывод «Ошибка ввода данных – число должно быть от 1 до 12» Конец 6, 7, 8 9, 10, 11 1, 2, 12 3, 4, 5
9 Program Pr; Var m: Integer; Begin Writeln (Введите номер месяца); Read (m); Case m of 6, 7, 8: Writeln (Лето); 9, 10, 11: Writeln (Осень); 1, 2, 12: Writeln (Зима); 3, 4, 5: Writeln (Весна); Else Writeln (Ошибка ввода данных – число должно быть от 1 до 12); End; End. Решение задачи
10 Задачи 1. Составить алгоритм и написать программу преобразования цифр в слова. 2. Составить алгоритм и написать программу вывода по номеру дня недели его название. 3. Составить алгоритм и написать программу вывода по номеру дня недели количества уроков в классе в соответствующий день. 4. Составить алгоритм и написать программу определения количества дней в месяце с указанным номером. 5. Составить алгоритм и написать программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово «Копейка» в правильной форме. Например, 5 копеек, 41 копейка и т. д.
- Формат cws чем открыть
- Как сделать массив в автокад
- Как в paint сделать формат а4
- Линия сноски в ворде редактировать
- Получить значение доп реквизита 1с ут 11
Источник: kompyutery-programmy.ru