Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.06.2015, 01:32   #1
Гарри
Пользователь
 
Регистрация: 11.06.2015
Сообщений: 30
По умолчанию Записи

Опишите, используя структуру записи, расписание учителя (номер урока, время начала урока, класс, предмет, номер кабинета). Составить программу, выводящую на экран расписание занятий в заданном кабинете.
Гарри вне форума Ответить с цитированием
Старый 25.06.2015, 08:38   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Опишите, используя структуру записи, расписание учителя (номер урока, время начала урока, класс, предмет, номер кабинета)
Код:
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.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Записи. Записи с вариантами. Turbo Pascal Marksman_SwAt Помощь студентам 7 07.05.2014 19:27
Машина Тьюринга: Постройте функциональную схему машины, реализующей переход от десятичной записи числа n к десятичной записи (n-1) Елешечка Помощь студентам 0 02.04.2014 21:43
Как обновить последние записи за определенный срок не обновляя не законченные записи? SotGEGDS SQL, базы данных 3 11.06.2013 14:39
Удалить записи из таблицы, если дата в записи старше 30 дней Aleksandr БД в Delphi 10 28.03.2013 21:33
Оцените математической формулой, насколько больше цифр в двоичной записи большого числа, чем в его десятичной записи. Анюта.Хом Помощь студентам 1 02.12.2011 23:13