Спрограммной на паскале, ) используя следующий фрагмент программы, опишите перечисленные ниже функции: type name = (аня, валя, женя, петя, саша, таня, шура, юра); information = record pol : (man, woman); height : 140..200 end; group = array [name] of information; а) функция средрост( гр ) определяет средний рост женщин из группы гр; б) функция высокий( гр ) определяет имя самого высокого мужчины из группы гр; в) логическая функция одинрост( гр ) проверяет, есть ли в группе гр хотя бы два человека одинакового роста.

148

443

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

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

Nastenka5738

Информатика

4,6(56 оценок)

Type name=(anya,valya,zhenya,petya,sasha,tanya,shura,yura); gender=(man,woman); information=record pol: gender; height: 140..200 end; group=array[anya..yura] of information; function srrost(var gr: group): single; var i: name; s: single; n: integer; begin s: =0; n: =0; for i: =anya to yura do begin s: =s+gr[i].height; inc(n) end; srrost: =s/n end; function vysokiy(var gr: group): string; var i,j: name; h: integer; begin h: =gr[anya].height; j: =anya; for i: =valya to yura do begin if gr[i].height> h then begin h: =gr[i].height; j: =i end end; vysokiy: =j.tostring end; function odinrost(var gr: group): boolean; var i,j: name; flag: boolean; begin i: =anya; flag: =false; repeat j: =succ(i); while (not flag) and (j< =yura) do begin flag: =(gr[i].height< > gr[j].height); inc(j) end; flag: =(gr[i].height< > gr[j].height); if not flag then inc(i); until flag or (i=yura); odinrost: =flag end; var grp: group; i: name; g: 0..1; begin { ввод данных } for i: =anya to yura do begin write(i.tostring+': укажите пол м/ж числом 0/1 '); readln(g); if g=0 then grp[i].pol: =man else grp[i].pol: =woman; write(i.tostring+': укажите рост, см (140-200) '); readln(grp[i].height) end; { вычисления } writeln('средний рост равен ',srrost(grp): 0: 1); writeln('наиболее высокий человек - ',vysokiy(grp)); if odinrost(grp) then writeln('есть минимум два человека одного роста') else writeln('у всех в группе разный рост'); end. тестовое решение: anya: укажите пол м/ж числом 0/1 1 anya: укажите рост, см (140-200) 165 valya: укажите пол м/ж числом 0/1 1 valya: укажите рост, см (140-200) 170 zhenya: укажите пол м/ж числом 0/1 0 zhenya: укажите рост, см (140-200) 173 petya: укажите пол м/ж числом 0/1 0 petya: укажите рост, см (140-200) 178 sasha: укажите пол м/ж числом 0/1 0 sasha: укажите рост, см (140-200) 176 tanya: укажите пол м/ж числом 0/1 1 tanya: укажите рост, см (140-200) 170 shura: укажите пол м/ж числом 0/1 1 shura: укажите рост, см (140-200) 168 yura: укажите пол м/ж числом 0/1 0 yura: укажите рост, см (140-200) 175 средний рост равен 171.9 наиболее высокий человек - petya есть минимум два человека одного роста

nikitaursu11

Информатика

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

1.найти площадь каждой комнаты(длину умножить на ширину) 2.сложить площади всех комнат

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.