Во в алгоритме, записанном
мо, записанном ниже, используются целочисленные переменные ки m.
Релите значение переменной k после исполнения данного алгоритма:
m := -1
k:= 2 * m – 2
m := k + 2
k:= k * m +5

Question

Информатика: Во в алгоритме, записанном мо, записанном ниже, используются целочисленные переменные ки m. Релите значение переменной k после исполнения данного алгоритма: m := -1 k:= 2 * m – 2 m := k + 2 k:= k * m +5​

ЕгорМаксимов · Accepted Answer

Procedure TForm1.Button1Click(Sender: TObject);
var
x1,y1,x2,y2 : double;
d1,d2 : double;
begin
x1:= StrToFloat( Edit1.Text);
y1:= StrToFloat( Edit2.Text);
x2:= StrToFloat( Edit3.Text);
y2:= StrToFloat( Edit4.Text);

d1:=Sqrt(x1*x1+y1*y1); //Теорема Пифагора
d2:=Sqrt(x2*x2+y2*y2); //Теорема Пифагора

if (d1<d2) then
Label1.Caption := 'Ближе точка с координатами X1,Y1'
else
if (d1>d2) then
Label1.Caption := 'Ближе точка с координатами X2,Y2'
else
Label1.Caption := 'Точки находятся на одинаковом расстоянии'
end;

Для увеличения быстродействия алгоритма можно d1 и d2 рассчитывать так:
d1:= x1*x1+y1*y1;
d2:= x2*x2+y2*y2;

MOGZ ответил