Предмет: Информатика, автор: Аноним

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

Ответы

Автор ответа: APALoff
0
Ну например так:
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;

Автор ответа: APALoff
0
Он и не должен работать - в условии этого нет!
Автор ответа: Аноним
0
Он на отдыхе.... повремените писать.
Автор ответа: Аноним
0
Мне нужно сделать как в этом примере, помогите пожалуйста
Автор ответа: Аноним
0
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.
Автор ответа: Аноним
0
Вы опять не поняли написанного выше? На Ваш вопрос ответ дан в строгом соответствии с его формулировкой. Вы просили ОПИСАТЬ переменную. И Вам дали описание. А теперь Вы пытаетесь "выцыганить" уже целую программу. Это совсем другой вопрос, если Вам надо, задавайте новый и там формулируйте все как положено.
Похожие вопросы