Задать вопрос
23 октября, 19:26

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

+1
Ответы (1)
  1. 23 октября, 23:24
    0
    Если условие задачи перевести на математику, то имеем три числа (три расстояния), среди которых нужно найти самое маленькое (минимум), и самое большое (максимум). Другими словами, найти минимальное и максимальное из трех заданных чисел.

    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
    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
    readln (z) ; {ввести третье число}

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

    if z
    writeln ('min=', min) ; {вывод минимума}

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

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Решите в Pascal: известно расстояние до каждого из трёх сёл от районного центра. Определить, какое из них находится ближе всего к районному ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы