Задачи на языке Паскаль 8 класс

Задачи на языке Паскаль 8 класс

1. Известны длины сторон треугольника a, b, c. Напишите программу, вычисляющую площадь этого треугольника.

Найти площадь треугольника можно различными способами. 

В основном, для нахождения площади треугольника применяется формула Герона.

где:

• p – полупериметр треугольника,

• a, b, c – длины сторон треугольника.

Периметр – это сумма длин всех сторон треугольника. Соответственно полупериметр – это сумма длин всех сторон разделенная на 2.

Программа:

program n_s;

Var a, b, c: Integer; p, s: real;

Begin

writeln('Вычисление площади треугольника по трем сторонам');

write('введите значения a, b, c');

readln(a, b, c);

p:= (a+b+c)/2;

s:= sqrt(p*(p-a)*(p-b)*(p-c));

writeln ('s=', s:2:1);

end.

(Если мы введем данные a=3,b=4,c=5, то ответ должен получиться S=16.0)

2)Известны координаты вершин. А, В, С треугольника. Напишите программу, вычисляющую площади этого треугольника.

Если треугольник задан координатами вершин (x₁,y₁), (x₂,y₂), (x₃,y₃), его площадь можно найти по формуле:

Программа:

program n_s;

Var xa, ya, xb, yb, xc, yc: Integer; s: real;

Begin

writeln('Вычисление площади треугольника по координатам вершин');

write('введите значения xa, ya, xb, yb, xc, yc');

readln(xa, ya, xb, yb, xc, yc);

s:= abs((xb-xa)*(yc-ya)-(xc-xa)*(yb-ya))/2;

writeln ('s=', s:2:1);

end.

(Если мы введем xa=2, ya=1, xb=6, yb=5, xc=10, yc=1, то ответ должен быть S= 16.0)

3)По заданным координатам точек А и В вычислите длину отрезка АВ

Подсказка: Расстояние d между точками А (xa, ya) и В (xb, yb) выражается формулой d=

Программа:

program n_s;

Var xa, ya, xb, yb: Integer; d: real;

Begin

writeln('Вычисление длины отрезка по заданным координатам');

write('введите значения xa, ya, xb, yb');

readln(xa, ya, xb, yb);

d:= sqrt((sqr(xb-xa))+(sqr(yb-ya)));

writeln ('|AB|=', d:2:1);

end.

(Если введем xa=2, ya=1, xb=10, yb=7, то ответ будет |АВ|=10.0)