Запись математических выражений. - Pascal
Формулировка задачи:
как записать мат. модель к задачам:
1)По последней цифре данного натурального числа определить
последнюю цифру квадрата этого числа.
2)Если у данного натурального четырехзначного числа есть хотя бы две
одинаковые цифры, то найти сумму всех цифр этого числа, в противном
случае произведение всех его цифр.
3)По заданным трем углам (в градусах) определить вид треугольника
(тупоугольный, прямоугольный или остроугольный).
Решение задачи: «Запись математических выражений.»
textual
Листинг программы
uses crt; var u1,u2,u3:real; begin clrscr; writeln('Введите углы '); readln(u1,u2,u3); if (u1>90)or(u2>90)or(u3>90) then writeln('Тупоугольный') else if (u1=90)or(u2=90)or(u3=90) then writeln('Прямоугольный') else writeln('Остроугольный'); readln; end.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая предоставляет функции для работы с консолью.
- Затем объявляются три переменные типа real, которые будут использоваться для хранения введенных углов.
- С помощью функции clrscr() очищается экран.
- С помощью функции writeln() выводится сообщение 'Введите углы '.
- С помощью функции readln() пользователю предлагается ввести три числа, которые будут представлять углы.
- Далее, с помощью условного оператора if проверяется, что все введенные углы меньше или равны 90 градусам.
- Если это условие выполняется, то выводится сообщение 'Тупоугольный'.
- Если условие не выполняется, то проверяется, что хотя бы один из углов равен 90 градусам.
- Если это условие выполняется, то выводится сообщение 'Прямоугольный'.
- Если ни одно из условий не выполняется, то выводится сообщение 'Остроугольный'.
- В конце программы выводится символ новой строки с помощью функции readln().