[NAZE]

Здравствуйте, помогите пожалуйста написать приложение:
Создать приложение, формирующее ввод данных по опросу студентов группы на 10 вопросов. Ответы могут быть Да, Нет, Не владею информацией. Выполните подсчет ответов по каждой из категорий опроса. Выполните организацию через двумерный массив.подскажите как все это реализовать, а то я вообще не понимаю

[XTen]

ICQ: 410691984 пиши

[lmikle]

Тебе нужен массив размером 11 колонок (ФИО студента + 10 вопросов) на [кол-во студентов в группе] строк. Тип данных - String. Сначала данные вводяться в массив (например, с помощью флажков на форме) + кнопочки подсчета разной статистики. Все зависит от конкретных пожеланий.

Вот тебе описание типов данных и функции подсчета кол-ва ответов на конкретный вопрос из 10:

Код:

type
  TRec = Array [0..10] Of String; // Это одна строка
  TData = Array Of TRec; // динамический массив для ответов 1 студента

procedure GetYNForQuestion(A : TData; ANum : Integer; var AYes, ANo, ATotal : Integer);
var
  I : Integer;
begin
  AYes := 0;
  ATotal := Length(A);
  For I := Low(A) To High(A) Do
    If A[i][ANum] = 'Yes' Then Inc(AYes);
  ANo := ATotal - AYes;
end;