Использование типа-record, Формирование записи и её обработка Опции

[Гость_anka]

--------------------------------------------
Сформировать запись "Операторы Турбо Паскаля":оператор, действие.
Подсчитать их количество и количество операторов имеющих повторяющиеся ключевые слова.
---------------------------------------------

Код

Program xxx;
Uses crt;
Type
   operators=record
         oper:string;
         deis:string;
         end;
Var
  z:array [1..24] of operators;
  i:byte;
  f1:text;
  n:string;
Begin
CLRSCR;
assign(f1,'c:\ttp\db.dat');
reset(f1);
{*}
for i:=1 to 12 do
begin
readln(f1,z[i].oper);
readln(f1,z[i].deis);
end;
{**}
writeln('Введите оператор:');
readln(n);
for i:=1 to 12 do
if n=z[i].oper then write('Оператор ',n,'-',z[i].deis,'');
readln
end.

Файл db.dat-содержит 24 строки, где 1строка -оператор,2-действие оператора.
Как сделать чтоб программа подсчитывала кол-во операторов, и кол-во операторов имеющих повторяющиеся ключевые слова?

Сообщение отредактировано: Oleg_Z - 10.04.2004 14:09

[Altair]

Файл db.dat-содержит 24 строки, где 1строка -оператор,2-действие оператора.
Как сделать чтоб программа подсчитывала кол-во операторов, и кол-во операторов имеющих повторяющиеся ключевые слова?

====Количество операторов====

1) файл точно текстовый? (может он типизированный- file of operators ?) или это без разницы?
2) если есть 12 строк с операторами, то зачем их подсчитывать???
А если там максимум может быть 12 операторов, то считаем их так:
сначала считываем их в массив (у вас это есть - стоит между * и ** )
потом проверяем, пуста ли строка (если нет, значит оператор есть, иначе больше нет операторов)

Код

{вставить этот код после ** }
{от 1 до 12 - если строка не пуста, значит увеличить кол-во операторов, иначе - выйти из цикла}
for i:=1 to 12 do If z[i].oper<>'' then inc(maxoperators) else exit;
{теперь в пер. maxoperators- кол-во операторов}

3) Зачем вам массив z из 24 элементов? надо 12 элементов (ведь у вас массив записей, а их максимум 12)
4) не очень понимаю, что значит "действие оператора" -поясните пожалуйста на примере
5) что такое повторяющиеся ключевые слова? (или ключ. слова- это тоже, что и действия)
6) сколько у 1 оператора может быть действий (1 или нет? )
====
пожалуйста ответьте на эти вопросы, и мы попробуем сделать 2 часть задания (кол-во повтор. ключ. слов)