Признак конца точка - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

ребят, как сделать, что бы считывался текст до точки? переделайте прогу, знаю что надо
, а реализовать не получается-_-

Решение задачи: «Признак конца точка»

textual
Листинг программы
Var s : string;
    c : char;
Begin
repeat
   read(c);
   s:=s+c;
until (c = '.');
Write(s:3);
End.

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

  1. В начале кода объявлены две переменные: s (строка) и c (символ).
  2. Затем идет цикл repeat, который будет повторяться до тех пор, пока символ, введенный пользователем, не станет точкой.
  3. Внутри цикла переменная c считывается с помощью функции read.
  4. Затем значение переменной c добавляется к строке s с помощью оператора +.
  5. Цикл повторяется до тех пор, пока введенный символ не станет точкой.
  6. После окончания цикла выводится значение переменной s с помощью функции Write.

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

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