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

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.

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

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

• Canvas как при рисовании линии каждый раз увеличивать координаты х,у по нажатию клавиши?
• Пакет позволяет русифицировать выводимые диалоговые окна для Delphi.
• Рассылка. Выпуск 246
• Как сделать обработчик нажатия комбинации клавиш, например Ctrl + Enter?
• Скрыть панель child окна
• Открыть несколько книг excel из одной папки с одинаковым расширением
• Добавить текст начиная с определенной строки
• Плавные появление и исчезновение формы
• Удалить последнюю строку в StringGrid
• Кириллица в HLP