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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

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

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


type name = (Mary, Jane, Kim, Bob, Jan, Pit, Tom, Sara, Bill, Pol);
Этот тип перечисляемый, напрямую переменные этого типа вывести процедурой writeln нельзя.
Можно поставить в соответствие строковую константу:
const
namestr : array [name] of string = ('Mary', 'Jane', 'Kim', 'Bob', 'Jan', 'Pit', 'Tom', 'Sara', 'Bill', 'Pol');
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 




- Текстовая версия 18.10.2017 7:12
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"