Напечатать все фамилии людей из группы, начинающиеся с заданной буквы

@Katomary · Регистрация: 28.06.2016

Author24 — интернет-сервис помощи студентам

Прошу помощи с заданием, заранее спасибо! Смог разобраться с процедурой нахождения старшего мужчины в группе, но тут встрял.

Используя следующий фрагмент программы, опишите перечисленные ниже процедуры:

Pascal

Type
  data = record
           number : 1..31;
           month  : 1..12;
           year   : 1901..1997
         end;
  form = record
           last_name : string[20];
           pol : (man, woman);
           birthday : data
         end;
  group = array[1..25] of form;

1). Процедура Печать(Гр, Бук) печатает все фамилии людей из группы Гр, начинающиеся с литеры Бук, и даты рождения этих людей.

@bormant · 29.06.2016, 08:49

Pascal

procedure Print(const g: group; c: Char);
var i: Integer;
begin
  for i:=Low(g) to High(g) do with g[i], g[i].birthday do
    if c=Copy(last_name,1,1) then
      WriteLn(last_name,' ',number,'.',month,'.',year);
end;

	29.06.2016, 08:49