|
Цитата: |
|
|
|
|
|
|
|
|
У меня есть одна маленькая,простенькая задачка.Нужно решить ее до завтра,но голова щас плохо, устал Я очень.
Вот и задачка:
Станция А,В, и С расположены на n-ом, m-ом и p-м километрах железной дороги, соответственно. Какие из этих станций расположены наиболее близко друг к другу.
Вы хотя бы дайте направление,Я там сначала нужно найти минимум,а дальше как?Помогите плиз!!! |
|
|
|
|
|
Внизу есть кнопка СПАСИБО. Будь добр нажать ее.
Код:
PROGRAM Bill_G;
var a,b,c,h1,h2,h3:real;
BEGIN
write (' введите на каком км расположена станция A, B, C: ');
read (a,b,c);
h1:=abs(b-a);
h2:=abs(c-a);
h3:=abs(c-b);
if (h1<h2) and (h1<h3) then
begin
if h1=0 then writeln ('станция А и В вместе')
else writeln ('станции А и В и r=',h1:4:1);
end;
if (h2<h1) and (h2<h3) then
begin
if h2=0 then writeln ('станция А и С вместе')
else writeln ('станции А и С и r=',h2:4:1);
end;
if (h3<h1) and (h3<h2) then
begin
if h3=0 then writeln ('станция В и С вместе')
else writeln ('станции В и С и r=',h3:4:1);
end;
if h1=h2 then
writeln ('станции А и В, А и С находятся на одном расстоянии и r=',h1:4:1);
if h1=h3 then
writeln ('станции А и В, В и С находятся на одном расстоянии и r=',h1:4:1);
if h2=h3 then
writeln ('станции А и С, В и С находятся на одном расстоянии и r=',h2:4:1);
END.