Определить сколько в тексте символов ‘*’ - Turbo Pascal
Формулировка задачи:
Формулировка задачи: Создать текстовый файл из х=11 строк. В каждой строке до у=63 символов. Определить сколько в тексте символов ‘*’
Я сделал программку, но что-то она все слова считает, помогите пожалуйста
Решение задачи: «Определить сколько в тексте символов ‘*’»
textual
Листинг программы
var i,k,x:integer; F:TEXT; c:char; S:string[63]; begin Assign(F,'text.txt'); Rewrite(f); writeln('введите текст :'); for x:=1 to 11 do begin readln(S); writeln(F,S); end; close(f); reset(f); k:=0; while NOT EOF(F) do begin read(F,c); if c='*' then k:=k+1; end; writeln('количество * в тексте : ',k); close(f); end.
Объяснение кода листинга программы
- Создаются переменные i, k, x, F, C, S и S[63] типа Integer, Char и String[63].
- Устанавливается файл 'text.txt' в переменную F.
- Переменная F переназначается в переменную Rewrite(F).
- Выводится сообщение 'введите текст :'.
- В цикле for с x=1 до 11 происходит чтение текста из файла 'text.txt' в переменную S с помощью функции Readln(S).
- Выводится содержимое файла 'text.txt'.
- Цикл прерывается командой close(f).
- Переменная f сбрасывается в начальное состояние с помощью функции Reset(f).
- Переменная k инициализируется значением 0.
- Запускается цикл while, который выполняется до тех пор, пока не будет достигнут конец файла 'text.txt' с помощью функции EOF(F).
- В каждой итерации цикла считывается символ из файла 'text.txt' в переменную C с помощью функции Read(F, C).
- Если считанный символ равен '*', то значение переменной k увеличивается на 1.
- По завершении цикла выводится сообщение 'количество * в тексте : ',k.
- Закрывается файл 'text.txt' с помощью функции Close(f).