Работа 3.9 Упр.5 ГДЗ Семакин 10 класс (Информатика)

Задача

Получить список тех учителей школы, которые преподают математику и информатику, указать стаж их работы и недельную нагрузку.

Подробный ответ

Нужно вывести сведения о тех учителях, у которых предмет — математика или информатика. Для этого удобно использовать запись с полями: фамилия, предмет, стаж и недельная нагрузка.

Type
book = Record
  fam: String;
  pred: String;
  st: Byte;
  nagr: Byte;
end;
Var
  x: Array [1..20] of book;
  i, n: Integer;
BEGIN
  Clrscr;
  Writeln(‘Введите кол-во учителей: ‘); Readln(n);
  For i:=1 to n do
  begin
    Write(‘Фамилия учителя: ‘); Readln(x[i].fam);
    Write(‘Предмет: ‘); Readln(x[i].pred);
    Write(‘Стаж: ‘); Readln(x[i].st);
    Write(‘Нагрузка: ‘); Readln(x[i].nagr);
  end;
  Writeln(‘Список тех учителей школы, которые преподают математику и информатику:’);
  For i:=1 to n do
    If (x[i].pred=’Математика’) or (x[i].pred=’Информатика’) Then
    begin
      Writeln(x[i].fam);
      Writeln(x[i].st);
      Writeln(x[i].nagr);
      Writeln(‘—‘);
    end;
  Readln
END.

Программа сначала вводит список учителей, затем просматривает все записи и выводит только тех, у кого предмет равен «Математика» или «Информатика». Для каждого подходящего учителя печатаются фамилия, стаж и нагрузка.