Записи, Паскаль

Posted by obzor under Delphi

Опишите, используя структуру записи, расписание учителя (номер урока, время начала урока, класс, предмет, номер кабинета). Составить программу, выводящую на экран расписание занятий в заданном кабинете.

Stilet

type
 sensei=record
  NUrok,HUrok,MUrok,Klass,Cabinet:integer;
  Predmet:String;
 end;

var s:array[1..0] of sensei;
 i,cab:integer; 
begin
 for i:=Low(s) to High(s) do   
   with s[ i] readln(NUrok,HUrok,MUrok,Klass,Cabinet,Predmet);
 readln(cab);
 for i:=Low(s) to High(s) do  
   with s[ i] if Cabinet=cab then writeln(NUrok,HUrok,MUrok,Klass,Cabinet,Predmet);
 readln;
end.

тема на форуме

Случайные статьи

• Как показывать PopupMenu под кнопкой в FireMonkey?
• Рассылка. Выпуск 150
• Удаление части имени файла при сохранении
• Обмен данными с USB устройством, как лучше реализовать
• Бесплатное электричество
• Как создать vpn-подключение средствами ras?
• Рассылка. Выпуск 139
• Как записать в таблицу Paradox значение из CheckBox?
• TCUI – библиотека графического интерфейса для J2ME
• Ввести данные с помощью cin без перехода на новую строку