Итак, как я и обещал, пишу об основных командах.
Сегодня мы усложним нашу предыдущую программу. Для этого используем основные команды:
Var - Обьявление переменной. Readln( переменная ) - Запрос значения у пользователя If Then Else - Условие (Еслм То Иначе).
Теперь к делу! Откройте вашу прошлую программу.
Сейчас мы сделаем так, чтобы прога спрашивала у пользователя класный ли он программист.
Если да, то программа отвечает: "Ты класный программист!"
Если нет, то программа отвечает: "Подучись и станешь классным"
Если пользователь делает неправильный ввод, то программа об этом сообщит.
Поскольку в программе используется переменная, то ее нужно обьявить.
Переменные бывают разных типов. Самые распространенные это:
Integer - Целая
Read - Действительная
String - Текстовая
Нам нужна текстовая. Для ее обьявления перед Begin пишем:
Var zapros:string;
Тем самым мы обьявили текстовую переменную zapros.
Далее нам нужнно спросить классный ли пользователь программист.
После Begin появляется:
Write('Ты класный программист [Да/Нет]:');
Readln(zapros);
Программа спрашивает класный ли пользовательпрограммист,
и ожидает ввода ответа. Далее нам надо обработать ответ.
Для этого используем If Then Else.
Вместо строчки Writeln(''Я классный программист ') пишем:
If zapros='Да' Then Writeln('Ты классный программист!')
ElseIf zapros='Нет' Then Writeln('Подучись и станешь класным!')
Else Writeln('Неправильный ввод');
Теперь можно запускать. Весь код:
Program hello;
Var zapros:string;
Begin
Writeln('');
Readln(zapros);
If zapros='Да' Then Writeln('Ты классный программист!')
ElseIf zapros='Нет' Then Writeln('Подучись и станешь класным!')
Else Writeln('Неправильный ввод');
End.
На этом все. В следуюий раз будем работать с переменными!
|