1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Использование типа-record, Формирование записи и её обработка
-------------------------------------------- Сформировать запись "Операторы Турбо Паскаля":оператор, действие. Подсчитать их количество и количество операторов имеющих повторяющиеся ключевые слова. ---------------------------------------------
Код
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-действие оператора. Как сделать чтоб программа подсчитывала кол-во операторов, и кол-во операторов имеющих повторяющиеся ключевые слова?
Begin CLRSCR; assign(f1,'C:\DB.DAT'); reset(f1); for i:=1 to 12 do begin readln(f1,z[i].oper); readln(f1,z[i].deis); If z[i].oper<>'' then inc(MaxOperators); end; writeln('Љ®«ЁзҐбвў® ®ЇҐа в®а®ў = ',MaxOperators); {Є®«-ў® ®ЇҐа в®а®ў б Ї®ўв®а. Є«оз. б«®ў ¬Ё} KluchSlova(z,MaxOperators,n1,n2); Writeln('Љ®«ЁзҐбвў® ®ЇҐа в®а®ў, Ё¬ҐойЁе Ї®ўв®апой. б«®ў® DO :',n1); Writeln('Љ®«ЁзҐбвў® ®ЇҐа в®а®ў, Ё¬ҐойЁе Ї®ўв®апой. б«®ў® END:',n2); write('‚ўҐ¤ЁвҐ ®ЇҐа в®а: '); readln(n); for i:=1 to 12 do if n=z[i].oper then write('ЋЇҐа в®а ',n,'-',z[i].deis,'')
end.
Что-то довольно странно. Задача на записи, а просят найти слова. Если что-то не так, то пожалуйста напишите все задание, так , как оно вам было заданно (слово в слово)