При написании квадрат, круг, треугольник чтобы программа выдавала соответствующие фигуры - Pascal
Формулировка задачи:
При написании квадрат, круг, треугольник чтобы программа выдавала соответствующие фигуры.
Не получается присвоить к тексту фигуру.
Решение задачи: «При написании квадрат, круг, треугольник чтобы программа выдавала соответствующие фигуры»
textual
Листинг программы
Repeat
write('Фигура: ');readln(s);
if s='квадрат' then
Begin
//рисуем квадрат
End;
//аналогично для других фигур
Until s='выход';
Объяснение кода листинга программы
- В цикле Repeat-Until считывается строка от пользователя.
- Строка сохраняется в переменной s.
- Если значение переменной s равно 'квадрат', то выполняется блок кода внутри блока Begin-End.
- В блоке кода рисуется квадрат.
- После выполнения блока кода, условие if проверяется снова.
- Если значение переменной s все еще равно 'квадрат', то цикл повторяется.
- Если значение переменной s равно 'выход', то цикл завершается.