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

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.

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

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

• Динамические массивы Turbo Pascal
• Ограничение логина при регистрации символами AZ-az, А-Я, а-я и цифры
• Объединить 2 первых ячейки по горизонтали в DBgridEh
• Как сделать слежение за буфером обмена в Delphi?
• Библиотека для работы с регэкспами в Delphi
• Посчитать сумму цифр даты
• Печать содержимого окна инструментами WinAPI
• Работа с BlueTooth через WinSock.
• Как изменить ключи в массиве после удаления элемента?
• Замена переменной в тексте из файла (PHP)