Question

4.28 Описать переменную расписание, содержащую:
день недели;
количество пар в этот день;
время начала и конца пары;
название предмета;
фамилию преподавателя

Answer 1

Ну например так:
Type
  tTime = Record
            Hour    : Byte;
            Minutes : Byte;
          end;
  tRas = Record
           DayOfWeek : Byte;
           Npar      : Byte;
           TimeBegin,TimeEnd : tTime;
           Predmet   : String;
           FIO       : String;
         end;

Var Raspisanie : tRas;

Answer 2

Он и не должен работать - в условии этого нет!

Answer 3

Он на отдыхе.... повремените писать.

Answer 4

Мне нужно сделать как в этом примере, помогите пожалуйста

Answer 5

type
 spisok=record
        Fam, Pred:string;
        ocenka:2..5;
        end;
var
 sp:array[1..5] of spisok;
 i:integer;
begin
 for i:=1 to 5 do
   with sp[i] do
   begin
      write('fam[',i,']=');
      readln(fam);
      write('pred[',i,']=');
      readln(pred);
      write('оценка[',i,']=');
      readln(ocenka);
   end;
writeln('Фамилии отличников');
for i:=1 to 5 do
   if sp[i].ocenka=5 then writeln(sp[i].fam);
readln;
end.

Answer 6

Вы опять не поняли написанного выше? На Ваш вопрос ответ дан в строгом соответствии с его формулировкой. Вы просили ОПИСАТЬ переменную. И Вам дали описание. А теперь Вы пытаетесь "выцыганить" уже целую программу. Это совсем другой вопрос, если Вам надо, задавайте новый и там формулируйте все как положено.