Pascal: известны координаты вершин некоторого четырехугольника a(x1, y1), b(x2, y2), c(x3, y3), d(x4, y4 найти длины диагоналей этого четырехугольника.

Если считать, что координаты вершин даны последовательно, то диагоналями являются прямые AC и BD. Формула для нахождения длины прямой, заданной координатами её концов, известна:


var
  xa,ya,xb,yb,xc,yc,xd,yd:real;
begin
  Write('Введите координаты точки А: '); Read(xa,ya);
  Write('Введите координаты точки B: '); Read(xb,yb);
  Write('Введите координаты точки C: '); Read(xc,yc);
  Write('Введите координаты точки D: '); Read(xd,yd);
  Writeln('Длина диагонали AC равна ',sqrt(sqr(xc-xa)+sqr(yc-ya)));
  Writeln('Длина диагонали BD равна ',sqrt(sqr(xd-xb)+sqr(yd-yb)))
end.

Пример
Введите координаты точки А: -8.5 -2
Введите координаты точки B: -5 3.15
Введите координаты точки C: 1.2 5.8
Введите координаты точки D: 11 -4
Длина диагонали AC равна 12.4470880128647
Длина диагонали BD равна 17.524910841428

Hi mister,

1. В итоге у нас выйдет: 412030 (это будет единственный т.к  нет значений, когда  41 и 0

Следовательно, получается: 4 -1 - 20 - 30 = ГАТЬ

2. Правильный - 3 вариант = НОС

3. Правильный ответ: УАЖАТУ = 6 букв.

4. Каждая буква и проблел = 16 бит ( по условию ) считаем все предложение и понимаем что у нас: 42(считая пробелы и точку) * 2 байта (т.к 8 бит = 1 байт, т.е 16 бит = 2 байта.) = 42*2= 84 байт.

5.  Суммарное кол-во: 2*32*64 = 4096.

Далее, по условию умножаем и переводим в биты: 4096 символов* 16 бит = 65536 бит.

Ну и переводим в Кбайты: 65536 бит / 8 = 8192 байта / 1024 = 8 Кбайт.  

ответ: 8 Кб

Источник: Мозг.

1.

а)

var a, b: integer;

read(a, b);

writeln((a + b) / 2);

б)

var a, b, c, d, e: integer;

read(a, b,c, d, e);

writeln(a*a, b*b, c*c, d*d, e*e);

в) Не знаю это.

д) Решето Эратосфена.

2)

а)

array [1..n] of integer;

var c: integer;

c := 1;

read(n);

while //запускаем цикл для ввода значений массива и подсчёта произведения

read(a[n]);

c = c * a[n];

end;

writeln(c);

б)

array [1..n] of integer;

var c: integer;

read(a[0]);

c := a[0];

while //запускаем цикл для ввода значений массива и определения максимального элемента

read(a[n]);

if {

c > a[n];

} then c := a[n];

end;

writeln(c);

в)

array [1..n] of integer;

var c: integer; //переменная-счётчик

while //запускаем цикл для ввода значений массива и определения количества отрицательных чисел

if {

a[n] < 0;

} then c := c + 1;

end;

writeln(c);

г)

array [1..n] of integer;

var c: integer; //переменная-счётчик

while //запускаем цикл с позиции a[1] для ввода значений массива и определения количества искомых элементов

if {

a[n] = a[0];

} then c := c + 1;

end;

writeln(c);