Признак конца точка - Turbo Pascal
Формулировка задачи:
ребят, как сделать, что бы считывался текст до точки? переделайте прогу, знаю что надо
, а реализовать не получается-_-
Решение задачи: «Признак конца точка»
textual
Листинг программы
Var s : string; c : char; Begin repeat read(c); s:=s+c; until (c = '.'); Write(s:3); End.
Объяснение кода листинга программы
- В начале кода объявлены две переменные: s (строка) и c (символ).
- Затем идет цикл repeat, который будет повторяться до тех пор, пока символ, введенный пользователем, не станет точкой.
- Внутри цикла переменная c считывается с помощью функции read.
- Затем значение переменной c добавляется к строке s с помощью оператора
+
. - Цикл повторяется до тех пор, пока введенный символ не станет точкой.
- После окончания цикла выводится значение переменной s с помощью функции Write.