Диалог с компьютером - Turbo Pascal
Формулировка задачи:
Диалог с компьютером.
На выходе имеем:
А вопрос такой: как я не старался вставить слово "лет"
в строку "Мне 16" – не получилось.
Может у вас получится?
(Решение вопроса очень нужное. Впереди будет программа
примерно на эту тему, только с двумя именами)
Решение задачи: «Диалог с компьютером»
textual
Листинг программы
uses Crt; Var Imaj: String; c:char; Vozrast,i: Integer; begin ClrScr; WriteLn(' Здравствуй, я компьютер, а тебя как звать?'); Write(' Меня зовут '); ReadLn(Imaj); WriteLn(' Очень приятно ' , Imaj, ' . Сколько тебе лет? '); Write(' Мне '); vozrast:=0; while c<>#13 do begin c:=readkey; if c in ['0'..'9'] then begin write(c); val(c,i); vozrast:=(vozrast*10)+i; end; {Read(Vozrast);} end; Writeln(' лет '); WriteLn(' Ого! Целых ' , Vozrast, ' лет. Да ты совсем взрослый!'); ReadLn end.
Объяснение кода листинга программы
- Объявлены переменные: Imaj (строка), c (символ), Vozrast, i (целое число).
- Вывод приветствия и вопроса о имени.
- Ввод имени с клавиатуры и сохранение его в переменной Imaj.
- Вывод вопроса о возрасте и ввод возраста с клавиатуры (с использованием цикла while и условного оператора if).
- Вычисление возраста на основе введенных цифр.
- Вывод сообщения с возрастом.
- Завершение диалога с помощью функции ReadLn.