Решите в pascal: известно расстояние до каждого из трёх сёл от районного центра. определить, какое из них находится ближе всего к районному центру, а какое дальше всего от него
271
482
Ответы на вопрос:
Если условие перевести на , то имеем три числа (три расстояния), среди которых нужно найти самое маленькое (минимум), и самое большое (максимум). другими словами, найти минимальное и максимальное из трех заданных чисел. 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.
Популярно: Информатика
-
Marshall12322.09.2021 01:51
-
TheRidGames15.03.2021 05:18
-
cfr120.02.2020 00:08
-
lisacat200013.07.2021 15:26
-
aydarsadikov22.05.2022 13:00
-
konybekrauan29.02.2020 21:26
-
элина33214.12.2022 10:55
-
sibuna109.04.2021 21:16
-
akzhanovarnai225.07.2021 13:25
-
mrsexobeat30828.03.2021 22:47