Перед началом учебного года все школьники проходят медицинский осмотр, каждому измеряют рост и вес. для каждого первоклассника необходимо также определить тип парты (по росту, всего 3 типа). проведите медицинский осмотр 500 школьников. составьте программу, содержащую процедуру, отвечающую за измерение роста и веса, и функцию, отвечающую за определение типа парты первоклассника. шкала типа парт: 140< = 140-150 > =150 программу составить в pascal abc !

138

428

Посмотреть ответы 2

Ответы на вопрос:

MishaBig

Информатика

4,7(95 оценок)

Procedure getrv(var r, v: real; var final: boolean); { организует ввод и возвращает значения роста и веса. значение параметра final=true - сигнал окончить ввод данных, для чего вводят нули } begin write('введите рост (см) и вес (кг) -> '); readln(r, v); final : = ((r > 0) and (v > 0)) end; function defdesk(r: real): string; begin if r < = 140 then defdesk : = 's' else if r < 150 then defdesk : = 'm' else defdesk : = 'l' end; var rost, ves: real; flag: boolean; begin repeat getrv(rost, ves, flag); if flag then writeln('нужна парта типа ', defdesk(rost)) until (not flag) end. тестовое решение: введите рост (см) и вес (кг) -> 135 31 нужна парта типа s введите рост (см) и вес (кг) -> 143 41 нужна парта типа m введите рост (см) и вес (кг) -> 151 48 нужна парта типа l введите рост (см) и вес (кг) -> 0 0