Запись математических выражений. - 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.

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

  1. В начале кода подключается библиотека crt, которая предоставляет функции для работы с консолью.
  2. Затем объявляются три переменные типа real, которые будут использоваться для хранения введенных углов.
  3. С помощью функции clrscr() очищается экран.
  4. С помощью функции writeln() выводится сообщение 'Введите углы '.
  5. С помощью функции readln() пользователю предлагается ввести три числа, которые будут представлять углы.
  6. Далее, с помощью условного оператора if проверяется, что все введенные углы меньше или равны 90 градусам.
  7. Если это условие выполняется, то выводится сообщение 'Тупоугольный'.
  8. Если условие не выполняется, то проверяется, что хотя бы один из углов равен 90 градусам.
  9. Если это условие выполняется, то выводится сообщение 'Прямоугольный'.
  10. Если ни одно из условий не выполняется, то выводится сообщение 'Остроугольный'.
  11. В конце программы выводится символ новой строки с помощью функции readln().

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

5   голосов , оценка 4.2 из 5