Question

Решите в Pascal: известно расстояние до каждого из трёх сёл от районного центра. Определить, какое из них находится ближе всего к районному центру, а какое дальше всего от него

Answer 1

Если условие задачи перевести на математику, то имеем три числа (три расстояния), среди которых нужно найти самое маленькое (минимум), и самое большое (максимум). Другими словами, найти минимальное и максимальное из трех заданных чисел.
program z;
var min,max,x:real;
    i:integer;
begin
readln(x);  {ввод первого числа}
min:=x;     {принять первое число за минимум на начало счета}
max:=x;     {принять первое число за максимум на начало счета}
for i:=2 to 3 do    {считать остальные два числа}
begin
  readln(x);        {ввести очередное число}
  if x>max then max:=x;  {если введенное число больше текущего максимума, считать его максимумом}
  if x<min then min:=x;  {если введенное число меньше текущего минимума, считать его минимумом}
end;
writeln('min=',min);     {вывод минимума}
writeln('max=',max);     {вывод максимума}
end.

Замечание. Программа не использует массив, т.к. чисел всего три. В более общем случае лучше ввести числа в массив и выполнить его сортировку.

Вариант без цикла и с отдельными переменными для каждого числа
program z1;
var min,max,x,y,z:real;
begin
readln(x);  {ввод первого числа}
min:=x;     {принять первое число за минимум на начало счета}
max:=x;     {принять первое число за максимум на начало счета}

readln(y);        {ввести второе число}
if y>max then max:=y;  {если введенное число больше текущего максимума, считать его максимумом}
if y<min then min:=y;  {если введенное число меньше текущего минимума, считать его минимумом}

readln(z);        {ввести третье число}
if z>max then max:=z;  {если введенное число больше текущего максимума, считать его максимумом}
if z<min then min:=z;  {если введенное число меньше текущего минимума, считать его минимумом}

writeln('min=',min);     {вывод минимума}
writeln('max=',max);     {вывод максимума}
end.

Answer 2

Для решения этой задачи в Pascal, можно использовать следующий код:

pascalCopy code
program VillageDistance;

const
  NUM_VILLAGES = 3;

var
  distances: array[1..NUM_VILLAGES] of Real;
  closestVillage, farthestVillage: Integer;
  i: Integer;

procedure FindClosestAndFarthestVillages;
begin
  closestVillage := 1;
  farthestVillage := 1;

  for i := 2 to NUM_VILLAGES do
  begin
    if distances[i] < distances[closestVillage] then
      closestVillage := i;
      
    if distances[i] > distances[farthestVillage] then
      farthestVillage := i;
  end;
end;

begin
  writeln('Введите расстояние до каждого из трёх сёл:');
  
  for i := 1 to NUM_VILLAGES do
  begin
    write('Село ', i, ': ');
    readln(distances[i]);
  end;

  FindClosestAndFarthestVillages;

  writeln('Село, ближайшее к районному центру: ', closestVillage);
  writeln('Село, дальше всего от районного центра: ', farthestVillage);
end.

Этот код позволяет ввести расстояние до каждого из трех сел и определяет, какое из них ближе всего к районному центру, а какое дальше всего от него. Номера сел хранятся в массиве distances, а процедура FindClosestAndFarthestVillages определяет индексы ближайшего и дальнего сел. Затем результаты выводятся на экран.