Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] задача на тему Тип Записи

Автор: ISTka 29.11.2010, 23:37

Задача по теме Тип Записи.
Вот условия:

type name = (Mary, Jane, Kim, Bob, Jan, Pit, Tom, Sara);
    data = record
            male: boolean; {пол: true - мужской, false - женский}
            height:140..200 end; {рост}
             end;
    group = array[name] of data;

Опишите логическую функцию Test(G), проверяющую, есть ли в группе G хотя бы один мужчина, рост которого меньше минимального женского роста.

(кода для pascal не увидела, извиняйте)

Автор: t_gran 30.11.2010, 08:33

Ну что-то на подобии:

Код


function Test(list: group): boolean;
var
   manMinHeight, womanMinHeight: byte;
   i: name;
begin
   manMinHeight := 255;
   womanMinHeight := 255;

   for i := Mary to Sara do
      if (list[i].male) then
      begin
         if (list[i].height < manMinHeight) then
            manMinHeight := list[i].height
      end
      else
         if (list[i].height < womanMinHeight) then
            womanMinHeight := list[i].height;
   Test := manMinHeight < womanMinHeight;
end;

Тестовый код с бинарником:

Автор: ISTka 30.11.2010, 13:18

t_gran, спасибо)