Схема страницы, на которой представлены основные элементы, имеющиеся на страницах сайта.

1.План
2.Главная страница
3.Беб-страница
4.Шаблон

Показать ответ

Ответ:

ellaakobyan

14.05.2023 14:43

Var a: byte; b:integer;
Begin
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');
Readln(a);
  Case a of
1: writeln(b,' янавря');
2: writeln(b,' февраля');
3: writeln(b,' марта ');
4: writeln(b,' апреля ');
5: writeln(b,' мая');
6: writeln(b,' июня ');
7: writeln(b,' июля');
8: writeln(b,' августа');
9: writeln(b,' сентября');
10: writeln(b,' октября');
11: writeln(b,' ноября');
12: writeln(b,' декабря');
else writeln('Месяца №', a,'нет');
end;
end.

0,0(0 оценок)

Ответ:

ukraina3

14.11.2021 18:34

Function Otr(Ax, Ay, Bx, By: real): real;
begin
Otr := sqrt(sqr(Ax - Bx) + sqr(Ay - By))
end;

function Perim(Ax, Ay, Bx, By, Cx, Cy: real): real;
begin
Perim := Otr(Ax, Ay, Bx, By) + Otr(Bx, By, Cx, Cy) + Otr(aX, aY, Cx, Cy);
end;

function Area(Ax, Ay, Bx, By, Cx, Cy: real): real;
var
pp: real;
begin
pp := Perim(Ax, Ay, Bx, By, Cx, Cy) / 2;
Area := sqrt(pp * (pp - Otr(Ax, Ay, Bx, By)) * (pp - Otr(Bx, By, Cx, Cy)) *
(pp - Otr(Ax, Ay, Cx, Cy)))
end;

procedure Dist(Px, Py, Ax, Ay, Bx, By: real; var D: real);
begin
D := 2 * Area(Px, Py, Ax, Ay, Bx, By) / Otr(Ax, Ay, Bx, By)
end;

var
Px, Py, Ax, Ay, Bx, By, Cx, Cy: real;
d: real;

begin
writeln('Вводите координаты точкек парами чисел: ');
write('P-> ');
readln(Px, Py);
write('A-> ');
readln(Ax, Ay);
write('B-> ');
readln(Bx, By);
write('C-> ');
readln(Cx, Cy);
writeln;
Dist(Px, Py, Ax, Ay, Bx, By, d);
writeln('Расстояние от Р до АВ равно ', d);
Dist(Px, Py, Cx, Cy, Bx, By, d);
writeln('Расстояние от Р до ВC равно ', d);
Dist(Px, Py, Ax, Ay, Cx, Cy, d);
writeln('Расстояние от Р до АC равно ', d)
end.

Тестовое решение:
Вводите координаты точкек парами чисел:
P-> -3 6
A-> 5 8
B-> 9 -4
C-> 8 -2.5

Расстояние от Р до АВ равно 8.22192191643778
Расстояние от Р до ВC равно 4.43760156980184
Расстояние от Р до АC равно 8.24163383692135

0,0(0 оценок)

Популярные вопросы: Информатика