Диалог с компьютером - 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.

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

  1. Объявлены переменные: Imaj (строка), c (символ), Vozrast, i (целое число).
  2. Вывод приветствия и вопроса о имени.
  3. Ввод имени с клавиатуры и сохранение его в переменной Imaj.
  4. Вывод вопроса о возрасте и ввод возраста с клавиатуры (с использованием цикла while и условного оператора if).
  5. Вычисление возраста на основе введенных цифр.
  6. Вывод сообщения с возрастом.
  7. Завершение диалога с помощью функции ReadLn.

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

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