IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> Люди в чём ошибка?
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 17

Репутация: -  0  +


uses wincrt;
type name = (Mary, Jane, Kim, Bob, Jan, Pit, Tom, Sara, Bill, Pol);
data = record
      male : boolean; {муж: true - , false - жен}
      height: 140..220;
      l:name;
      end;
group = array[name] of data;
var g:group; n:byte;
function d(g:group;k:byte ):name;
var c:name;
w:name;
begin
    for c:=Mary to Pol do
        if  g[c].male=true then
            if g[c].height=k then
                 w:=g[c].l;
                 d:=w;
end;
begin
    with g[Mary] do begin
         male:=false;
         height:=150
    end;
    with g[Kim] do begin
         male:=true;
         height:=170;
    end;
    readln(n);
 writeln(d(g,n));{ - здесь ошибка!! в чём?}
   end.
Нужно выбрать мужчину из группы с ростом N
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 23:32
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name