10. постройте гистограмму по заданной таблице «мнения учащихся о прочитанной
книге»
таблица
диаграмма
мнения учащихся о прочитанной книге
не понравилась
не понравилась
понравилась
понравилась
10%
15%)
30%
45%
209
407
Ответы на вопрос:
Если условие перевести на , то имеем три числа (три расстояния), среди которых нужно найти самое маленькое (минимум), и самое большое (максимум). другими словами, найти минимальное и максимальное из трех заданных чисел. 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.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Камелек21.11.2020 02:02
-
vipccccvip26.06.2022 01:41
-
McMamon11.10.2020 18:25
-
AA7777AA07.06.2023 09:04
-
aygul08107112.12.2022 04:15
-
margoschka0223.05.2023 14:02
-
Елдиор22.05.2021 11:03
-
sashaaaa521.08.2021 02:09
-
weri812.11.2021 22:35
-
gesse9914.02.2020 03:23
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.