Показать сообщение отдельно
Старый 15.03.2007, 19:28   #69
 
Статус: Гость
Сообщений: n/a
По умолчанию Re: Решебник (turbo pascal, Delphi)

Цитата:
У меня есть одна маленькая,простенькая задачка.Нужно решить ее до завтра,но голова щас плохо, устал Я очень.
Вот и задачка:
Станция А,В, и С расположены на 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.
  ЦИТИРОВАТЬ
Этот пользователь сказал Спасибо за это полезное сообщение: