Подмогните с лабой) компонент TstringList нельзя брать((((

[SanekWK]

Анкета для опроса населения содержит две группы вопросов. Первая группа содержит сведения о респонденте:
- возраст;
- пол;
- образование (начальное, среднее, высшее).
Вторая группа содержит собственно вопрос анкеты, ответ на который либо ДА, либо НЕТ.
Составить программу, которая:
- обеспечивает начальный ввод анкет и формирует из них линейный список;
- на основе анализа анкет выдает ответы на следующие вопросы:
- сколько мужчин старше 40 лет, имеющих высшее образование, ответили ДА на вопрос анкеты;
- сколько женщин моложе 30 лет, имеющих среднее образование, ответили НЕТ на вопрос анкеты; сколько мужчин моложе 25 лет, имеющих начальное образование, ответили ДА на вопрос анкеты
- производит вывод всех анкет и ответов на вопросы.
Программа должна обеспечивать диалог с помощью меню и контроль ошибок при вводе.

[GreenWizard]

Собственно говоря, а где вообще тут TStringList? тут для ввода проще всего создать отдельную форму, а вывод результатов анализа - куда-угодно

[SanekWK]

Сообщение от GreenWizard

Скорее всего, ScrollBox + фреймы.... но это вряд ли уровень студента

малооблачно со ScrollBox знаком, но его тоже нельзя брать. как я понял преподавателя в основу ложится обычный односвязный список
type
pnode=^node;
node=record
d:word;
s:string;
pnode;

Сообщение от GreenWizard

Собственно говоря, а где вообще тут TStringList? тут для ввода проще всего создать отдельную форму, а вывод результатов анализа - куда-угодно

Просто со StringList'ом проще. забил его на добавление и всё. Я ей со стрингом в этот же день работу послал, написала вот что нельзя его

на кибер форуме хрень все пишут, может тут чего ясного подскажут

Вот примерный скрин внешнего вида.

[GreenWizard]

Сообщение от SanekWK

малооблачно со ScrollBox знаком, но его тоже нельзя брать. как я понял преподавателя в основу ложится обычный односвязный список
type
pnode=^node;
node=record
d:word;
s:string;
pnode;

ну реализуй список, в чём беда?

type 
  pnode=^node;
  node=record
    isWoman: boolean;
    Age: integer;
    Education: Byte;
    Next: pnode;
  end;

и далее функция добавления, уничтожения и "анализа"

[SanekWK]

Сообщение от GreenWizard

ну реализуй список, в чём беда?

type 
  pnode=^node;
  node=record
    isWoman: boolean;
    Age: integer;
    Education: Byte;
    Next: pnode;
  end;

и далее функция добавления, уничтожения и "анализа"

воот это то да. а как анализировать его можно, в учебнике по паскалю нет(
???

[GreenWizard]

Например, это:

Сообщение от SanekWK

- сколько мужчин старше 40 лет, имеющих высшее образование, ответили ДА на вопрос анкеты;

Будет как-то так:

N := 0;
tmp := Head;
while tmp <> nil do
begin
  if (tmp^.Age > 40) and (tmp^.Education = 3) and (tmp^.Aswer = true) than
    N := N + 1;
  tmp := tmp^.Next;
end;

проходимся от начала до конца и считаем сколько людей подпадает под условие выборки

[SanekWK]

Сообщение от GreenWizard

Например, это:

Будет как-то так:

N := 0;
tmp := Head;
while tmp <> nil do
begin
  if (tmp^.Age > 40) and (tmp^.Education = 3) and (tmp^.Aswer = true) than
    N := N + 1;
  tmp := tmp^.Next;
end;

проходимся от начала до конца и считаем сколько людей подпадает под условие выборки

блин огромное спасибо тебе. я вот щас химичу. подскажи вот как записать что либо в этот список

[GreenWizard]

Сообщение от SanekWK

блин огромное спасибо тебе. я вот щас химичу. подскажи вот как записать что либо в этот список

1) это реально лучше изучить самостоятельно по книгам т. к. основы основ
2) общая схема: создали узел с инфой -> если список пуст (head = nil), то заменяем новым узлом head, иначе мы идём по списку и ищем первый попавшийся (он единственный) элемент с Next = nil и заменяем nil на новый узел наш т. к. добавляем всё в конец
Есть вариант с добавлением в начало, он проще, но его редко используют и препод может забраковать его

[SanekWK]

Сообщение от GreenWizard

1) это реально лучше изучить самостоятельно по книгам т. к. основы основ
2) общая схема: создали узел с инфой -> если список пуст (head = nil), то заменяем новым узлом head, иначе мы идём по списку и ищем первый попавшийся (он единственный) элемент с Next = nil и заменяем nil на новый узел наш т. к. добавляем всё в конец
Есть вариант с добавлением в начало, он проще, но его редко используют и препод может забраковать его

Вот к примеру, я хочу записать значение возраста в список.

begin
 Val(Edit1.Text,q,code);
 if code=0 then
 begin
 New(next);
 next^.age:=StrToInt(Edit1.text);
 end
else ShowMessage('Çàïîëíèòå âñå ïîëÿ!');

[Stilet]

я хочу записать значение возраста в список.

И у тебя это получилось. Твой код записывает значение в список. По крайней мере этот участок кода, что ты выложил.