Информатика. Шевелев Г.Е. - 75 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

75
{Расчет полупериметра и площади треугольника}
p:= 0.5*(a+b+c);
S:=sqrt(p*(p-a)*(p-b)*(p-c));
{Вывод результата расчета}
Writeln(‘Площадь треугольника = ’, S:5:3)
End.
2. Откомпилируйте программу и исправьте возможные ошибки. Затем
запустите программу на счет (см. пп. 4-5, Лабораторная работа № 1).
3. Проведите тестовый расчет, чтобы убедиться в правильности работы
программы.
Введите значения сторон: a=1, b=1, c=1. Должен получиться результат
S=0.433.
4. Проведите серию расчетов для различных значений сторон
треугольника.
5. Если значения сторон являются константами (например, все равны 1), то
в данную программу можно ввести следующие изменения:
перед разделом Var надо добавить раздел констант – Const a=1;b=1;c=1;
из раздела Var убрать a,b,c – Var p,S:Real;
убрать ввод исходных данных – удалить операторы
Writeln(‘Введите…’); Readln(a,b,c);
6. Сделайте указанные исправления и повторите пп. 1-3 данной работы.
Задания для самостоятельной работы
Составить программу на языке Паскаль для нахождения значения
выражения.
Константы A, B, C вводятся с клавиатуры. Сложные аргументы функций
вычислять отдельно, tan(x) вычислять как sin(x)/cos(x), ctan(x) → cos(x)/sin(x),
x
y
→ exp(y*ln(x)).
Вариант 1
)
)
sin
sin
tan(
)ln(
ln()
)
cos
sinsin
tan(
)
)2ln(
)(
tan(
tan(
2
B
C
c
BC
CA
AC
BA
C
BActg
.
при A=4, B=2, C=5 ответ: -0.867393.

Страницы