Определить сколько в тексте символов ‘*’ - 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.

Объяснение кода листинга программы

  1. Создаются переменные i, k, x, F, C, S и S[63] типа Integer, Char и String[63].
  2. Устанавливается файл 'text.txt' в переменную F.
  3. Переменная F переназначается в переменную Rewrite(F).
  4. Выводится сообщение 'введите текст :'.
  5. В цикле for с x=1 до 11 происходит чтение текста из файла 'text.txt' в переменную S с помощью функции Readln(S).
  6. Выводится содержимое файла 'text.txt'.
  7. Цикл прерывается командой close(f).
  8. Переменная f сбрасывается в начальное состояние с помощью функции Reset(f).
  9. Переменная k инициализируется значением 0.
  10. Запускается цикл while, который выполняется до тех пор, пока не будет достигнут конец файла 'text.txt' с помощью функции EOF(F).
  11. В каждой итерации цикла считывается символ из файла 'text.txt' в переменную C с помощью функции Read(F, C).
  12. Если считанный символ равен '*', то значение переменной k увеличивается на 1.
  13. По завершении цикла выводится сообщение 'количество * в тексте : ',k.
  14. Закрывается файл 'text.txt' с помощью функции Close(f).

Оцени полезность:

13   голосов , оценка 4 из 5
Похожие ответы