Программа отгадывания чисел - Turbo Pascal
Формулировка задачи:
Напишите программу, которая запрашивает у пользователя число от 1 до 10 (в случае несоответствия всплывает соответствующее сообщение), после чего умножает это число на 3000, прибавляет 111 и делит на 16, после этого запрашивает ФИО и выводит на экран следующее сообщение: "ИОФ, ваш результат - "
Решение задачи: «Программа отгадывания чисел»
textual
Листинг программы
var n:integer; //число
f,i,o:string;
c:char;
BEGIN
f:=''; i:=''; o:=''; //обнуляем ФИО
Write ('Введите число от 1 до 10: ');
Readln (n);
n:=(n*3000+111) div 16;
Write ('Введите ФИО: ');
Repeat //читаем Фамилию
Read (c);
f:=f+c;
Until c=' ';
Delete (f,Length(f),1); //удаляем ненужный пробел
Repeat //читаем Имя
Read (c);
i:=i+c;
Until c=' ';
Readln (o); //читаем Отчество
Writeln (i,o,' ',f,', ваш результат - ',n);
END.
Объяснение кода листинга программы
- Объявляются переменные: n, f, i, o, c.
- Задается начальное значение для переменной n.
- Задаются начальные значения для переменных f, i, o, c.
- Выводится сообщение для ввода числа от 1 до 10.
- Число с клавиатуры записывается в переменную n.
- Вычисляется значение n, умноженное на 3000 и деленное на 16.
- Выводится сообщение для ввода ФИО.
- В цикле читается по одной букве из ФИО, пока не будет введен пробел.
- Каждая прочитанная буква добавляется к переменной f.
- После окончания ввода ФИО удаляется лишний пробел в конце строки.
- Повторяется шаг 8 для ввода Имени.
- Повторяется шаг 9 для ввода Отчества.
- Выводится результат, объединяющий введенные данные: ФИО, Имя, Отчество, число.