Напишите программу для 2. на плоскости дан треугольник abc, задаваемый координатами своих вершин (вводятся три пары чисел). определить, является ли треугольник abc прямоугольным. дополнительно: определить координаты центра треугольника.
begin for i: byte := 0 to 2 do readln(a[i * 2 + 1], a[i * 2 + 2]); q := sqrt(sqr(a[1] - a[3]) + sqr(a[2] - a[4])); b := sqrt(sqr(a[5] - a[3]) + sqr(a[6] - a[4])); c := sqrt(sqr(a[5] - a[1]) + sqr(a[6] - a[2])); if ((q + b > c) and (q + c > b) and (b + c > q)) then begin if (max(q, max(b, c)) = sqrt(sqr(min(q, min(b, c))) + sqr(min(q, max(b, c then writeln('Прямоугольный!'); writeln(String.Format('Геом. центр - ({0}; {1})', (a[1] + a[3] + a[5]) / 3, (a[2] + a[4] + a[6]) / 3)); end else writeln('Нет такого ▲'); end.
Сочетание Ctrl + --> это прыжок на начало следующего слова. Сочетание Ctrl + Del это удалить часть слова от курсора до пробела. Если курсор стоит перед 1 буквой - удалится всё слово. 1) Нажимаем 2 раза Ctrl + --> и попадаем на скобку "(". 2) Нажимаем 6 раз Ctrl + Del и удаляем: скобку "(", 4 слова в скобках, и скобку ")". 3) Получили "словможно". Теперь нужно нажать пробел, чтобы разделить слова: "слов можно" ответ: 3) 1 клавишу и 8 сочетаний. Как вы за компьютером работаете, если MS Word не знаете?
1. Вероятность вынуть первым красный карандаш определяется отношением количества красных карандашей к их общему числу, т.е. 2/4 или 1/2. 2. Теперь в коробке остался один красный карандаш, а всего карандашей - три. Вероятность вынуть красный карандаш равна 1/3. 3. Вероятность наступления обоих событий определяется произведением обоих вероятностей и составляет 1/2 × 1/3 = 1/6 Итак, два красных (а также два синих) карандаша можно вынуть с вероятностью 1/6. Сумма всех вероятностей равна 1, с вероятностью 1/6 оба карандаша будут красные, 1/6 - синие, значит на долю события, когда карандаши будут разного цвета остается 1 - 1/6 - 1/6 = 2/3
a: array [1..6] of real;
q, b, c: real;
begin
for i: byte := 0 to 2 do
readln(a[i * 2 + 1], a[i * 2 + 2]);
q := sqrt(sqr(a[1] - a[3]) + sqr(a[2] - a[4]));
b := sqrt(sqr(a[5] - a[3]) + sqr(a[6] - a[4]));
c := sqrt(sqr(a[5] - a[1]) + sqr(a[6] - a[2]));
if ((q + b > c) and (q + c > b) and (b + c > q)) then
begin
if (max(q, max(b, c)) = sqrt(sqr(min(q, min(b, c))) + sqr(min(q, max(b, c then
writeln('Прямоугольный!');
writeln(String.Format('Геом. центр - ({0}; {1})', (a[1] + a[3] + a[5]) / 3, (a[2] + a[4] + a[6]) / 3));
end
else
writeln('Нет такого ▲');
end.