Предмет: Информатика,
автор: Аноним
4.28 Описать переменную расписание, содержащую:
день недели;
количество пар в этот день;
время начала и конца пары;
название предмета;
фамилию преподавателя
Ответы
Автор ответа:
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;
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;
Автор ответа:
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.
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
Вы опять не поняли написанного выше? На Ваш вопрос ответ дан в строгом соответствии с его формулировкой. Вы просили ОПИСАТЬ переменную. И Вам дали описание. А теперь Вы пытаетесь "выцыганить" уже целую программу. Это совсем другой вопрос, если Вам надо, задавайте новый и там формулируйте все как положено.
Похожие вопросы
Предмет: Биология,
автор: gqpwf
Предмет: Математика,
автор: fhaydarov93
Предмет: Другие предметы,
автор: missaulymgmailcom
Предмет: Математика,
автор: solavra
Предмет: История,
автор: FFlight