Перечисляемый тип - Turbo Pascal (29226)

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, есть список, существует ли возможность присваивать значения mes переменной a[i] не используя операторы case или if?

Решение задачи: «Перечисляемый тип»

textual
Листинг программы
type mesjaz = (jan, fevr, mart, apr, mai, ijun, ijul, avg, sent, okt, noj, dek);
type
data=record
god:1900..3000;
mes:mesjaz;
den:1..30;
End;
var
i,t:integer;
 
a:array [1..100] of data;
 
begin
i:=0;
for i:=1 to 3 do
    begin
    begin
    write('год: ');
    readln(a[i].god);
    write('den: ');
    readln(a[i].den);
    write('mes: ');
    readln(t); //t in [1..12]
    a[i].mes:=mesjaz(t-1); //ord(mesaz) in [0..11]
    end;
  end;
for i:=1 to 3 do
  begin
  writeln('год=',a[i].god,' День=',a[i].den,' mes=',a[i].mes)
  end;
readln
end.

Объяснение кода листинга программы

  1. Создается перечисленый тип mesjaz, который содержит 12 элементов, представляющих месяцы года.
  2. Создается тип данных data с полями god (год), mes (месяц) и den (день).
  3. Создается переменная i типа integer для индексации массива данных.
  4. Создается переменная t типа integer для хранения номера месяца.
  5. Создается массив a типа array с размером 100 элементов, каждый из которых является объектом типа data.
  6. Задается начальное значение переменной i равным 0.
  7. Запускается цикл for, который выполняется 3 раза.
  8. Внутри цикла создается вложенный блок begin для каждого месяца.
  9. Внутри вложенного блока begin выполняются следующие действия:
    • Выводится запрос на ввод года.
    • Год сохраняется в поле god объекта типа data.
    • Выводится запрос на ввод дня месяца.
    • День сохраняется в поле den объекта типа data.
    • Выводится запрос на ввод месяца.
    • Месяц сохраняется в поле mes объекта типа data.
    • Значение месяца преобразуется в соответствующий номер месяца.
  10. После завершения вложенного блока begin выводится сообщение о годе, дне и месяце.
  11. Цикл for завершается.
  12. Выводится сообщение с информацией о каждом объекте типа data в массиве a.
  13. Программа завершается.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы