VPF::[Pascal] задача на тему Тип Записи

ISTka

Дата 29.11.2010, 23:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 29.11.2010
Где: Россия

Репутация: нет
Всего: нет

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

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 не увидела, извиняйте)

Это сообщение отредактировал(а) ISTka - 29.11.2010, 23:38

t_gran

Дата 30.11.2010, 08:33 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 621
Регистрация: 13.11.2007
Где: г.Усть-Илимск

Репутация: 33
Всего: 37

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

Код


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;

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

Присоединённый файл ( Кол-во скачиваний: 3 )

male_small.zip 15,61 Kb

--------------------

Я знаю, что ничего не знаю© Сократ
user posted image

ISTka

Дата 30.11.2010, 13:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 29.11.2010
Где: Россия

Репутация: нет
Всего: нет

t_gran, спасибо)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »