Главная /
Решение олимпиадных задач по информатике /
Назначение программы на Паскале, фрагмент которой приведен ниже: … readln (x1, y1); readln (x2, y2); readln (x3, y3); a:= sqrt (sqr(x1-x2)+sqr(y1-y2)); b:= sqrt (sqr(x2-x3)+sqr(y2-y3)); c:= sqrt (sqr(x3-x1)+sqr(y3-y1)); p:=(a+b+c) / 2; writeln (sqrt (p*(p
Назначение программы на Паскале, фрагмент которой приведен ниже:
Правильный ответ:
вычисление площади треугольника, заданного координатами своих концов
нахождение результата вычисления по формуле Герона
вычисление произведения медиан треугольника
вычисление произведения биссектрис треугольника
Сложность вопроса
75
Сложность курса: Решение олимпиадных задач по информатике
77
Оценить вопрос
Комментарии:
Аноним
Спасибо за решениями по интуит.
01 фев 2020
Аноним
Я сотрудник университета! Срочно сотрите сайт vtone.ru с ответами на интуит. Это невозможно
13 дек 2016
Другие ответы на вопросы из темы программирование интуит.
- # Способы вычисления площади выпуклой фигуры:
-
#
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива
. Что напечатается на экране монитора (введите строку без пробелов)
...
for i:=1 to n-1 do
for j:=i+1 to n do writeln (A[j], A[i]);
…
-
#
Определите содержимое переменной
в результате работы программы на Паскале, фрагмент которой приведен ниже:
…
for i:=1 to 5 do a[i]:=i-6;
m:=0;
for i:=1 to 5 do
if a[i]>m then m:=a[i];
…
-
#
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массив
вводятся числа: 5, 4, 3, 2, 1. Массив У будет содержать значения:
. . .
for i:=1 to n do
begin
readln (x[i]); y[i]:=i;
end;
for j:=n downto 2 do
for i:=1 to j-1 do
if x[i]>x[i+1] then
begin
m:=x[i]; x[i]:= x[i+1]; x[i+1]:=m;
g:=y[i]; y[i]:= y[i+1]; y[i+1]:=g;
end;
. . .
-
#
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в переменной
будет находиться:
…
j:=0; m:=1;
for i:=1 to n do
begin
read (x[i]);
if x[i] mod 3=0 then
begin
j:=j+1; y[j]:=i;
end;
end;
for i:=1 to j do m:=m*x[y[i]];
…
. Что напечатается на экране монитора (введите строку без пробелов)
...
for i:=1 to n-1 do
for j:=i+1 to n do writeln (A[j], A[i]);
…
в результате работы программы на Паскале, фрагмент которой приведен ниже:
…
for i:=1 to 5 do a[i]:=i-6;
m:=0;
for i:=1 to 5 do
if a[i]>m then m:=a[i];
…
вводятся числа: 5, 4, 3, 2, 1. Массив У будет содержать значения:
. . .
for i:=1 to n do
begin
readln (x[i]); y[i]:=i;
end;
for j:=n downto 2 do
for i:=1 to j-1 do
if x[i]>x[i+1] then
begin
m:=x[i]; x[i]:= x[i+1]; x[i+1]:=m;
g:=y[i]; y[i]:= y[i+1]; y[i+1]:=g;
end;
. . .