ݺߣ

ݺߣShare a Scribd company logo
Использование линейных
алгоритмов для решения задач
Язык программирования: PASCAL

Выполнила:
Димитрова Дарья 11-А кл.
Задача
Составить программу для нахождения площади
треугольника, через радиус описанной окружности.
Значения сторон натуральные числа.
Решение.
program ploschad;
var R,S,a,b,c: real;
begin
writeln (‘введите длины сторон и радиус описанной окружности’);
readln(a,b,c,R);
S:=(a*b*c)/(4*R);
writeln ('площадь треугольника равна',S);
end.
Выполнение.
Alt+F9-компиляция, проверка на ошибки.
Ctrl+F9-выполнение программы.
Вводим переменные, например a=5, b=4, c=8.
Получаем на экране сообщение
периметр треугольника равен 17
Объяснение.
• program ploschad; (указываем название программы)
• var R,S,a,b,c: real; (описываем переменные в программе)
• begin (начало рабочей области)
•
writeln (‘введите длины сторон и радиус описанной
окружности’); (оператор вывода предупреждает
пользователя, что надо ввести значения переменных)
•
readln(a,b,c,R); (считывание значения переменных в
память компьютера)
•
S:=(a*b*c)/(4*R); (присваивание переменной S
значения вычисленной площади треугольника через
радиус описанной окружности)
• writeln ('площадь треугольника равна',S); (выводим
результат на экран)
• end. (конец рабочей области)

More Related Content

использование линейных алгоритмов для решения задач

  • 1. Использование линейных алгоритмов для решения задач Язык программирования: PASCAL Выполнила: Димитрова Дарья 11-А кл.
  • 2. Задача Составить программу для нахождения площади треугольника, через радиус описанной окружности. Значения сторон натуральные числа.
  • 3. Решение. program ploschad; var R,S,a,b,c: real; begin writeln (‘введите длины сторон и радиус описанной окружности’); readln(a,b,c,R); S:=(a*b*c)/(4*R); writeln ('площадь треугольника равна',S); end.
  • 4. Выполнение. Alt+F9-компиляция, проверка на ошибки. Ctrl+F9-выполнение программы. Вводим переменные, например a=5, b=4, c=8. Получаем на экране сообщение периметр треугольника равен 17
  • 5. Объяснение. • program ploschad; (указываем название программы) • var R,S,a,b,c: real; (описываем переменные в программе) • begin (начало рабочей области) • writeln (‘введите длины сторон и радиус описанной окружности’); (оператор вывода предупреждает пользователя, что надо ввести значения переменных) • readln(a,b,c,R); (считывание значения переменных в память компьютера) • S:=(a*b*c)/(4*R); (присваивание переменной S значения вычисленной площади треугольника через радиус описанной окружности) • writeln ('площадь треугольника равна',S); (выводим результат на экран) • end. (конец рабочей области)