Var
S, a, h: real;
begin
write('Введите длину основания --->');read(a);
write('Введите высоту --->');read(h);
S := (a * h) / 2;
writeln('Площадь треугольника равна', ' ', S);
writeln('Целая часть - ', Trunc(S));
writeln('Дробная часть - ', Frac(S));
end.
Начало:1.подойти к телефону,2.поднять трубку телефона,3.набрать номер друга,4.подождать пока друг поднимет трубку,5.поговорить с другом,6.поставить трубку на место,7.отойти от телефона. конец это линейный алгоритм.в линейном алгоритме шаги выполняются в той последовательности,в которой они записаны
Ответ:
Если забить на указания к решению, можно сделать так:
записываешь уравнение прямой для каждой из сторон
для каждой из сторон можно по формуле вычислить расстояние от данной точки до этой прямой и
взять минимальное значение.
Канонической уравнение прямой на плоскости:
A*x+B*y+C=0
Уравнение прямой через точки A и B:
Параметрической (в векторном виде) :
P=A+(B-A)*t
В скалярной форме:
x=x0+ax*t
y=y0+bx*t
Из этой системы, избавляясь от t, получим каноническое уравнение прямой.
Формула расстояния от точки (x0; y0) до прямой A*x+B*y+C=0:
ro=abs(A*x0+B*y0+C)/sqrt(A^2+B^2)
Объяснение:
«Statistical Psychology for the Social Sciences» – «статистический пакет для психологов и социологов»
var
a: array[1..50] of integer;
i,f, n: integer;
begin
write('n=');
readln(n);
for i := 1 to n do
begin
write('a', i, '=');
readln(a[i]);
end;
f := 0;
writeln;
for i := 1 to n - 1 do
if (a[i] mod 2 <> 0) and (a[i + 1] mod 2 = 0) then f := 1;
if f = 0 then
begin
for i := 1 to n do
if a[i] < 0 then write(a[i]:4);
end
else
for i := 1 to n do
if a[i] > 0 then write(a[i]:4);
end.