Для студентов МГТУ им. Н.Э.Баумана по предмету Информатика"Записи" - Описать функцию sredrost(gr), определяющую средний рост женщин из группы gr."Записи" - Описать функцию sredrost(gr), определяющую средний рост женщин из группы gr.
4,9959452
2023-04-182023-04-18СтудИзба
Лабораторная работа: "Записи" - Описать функцию sredrost(gr), определяющую средний рост женщин из группы gr.
Описание
Лабораторная работа программа в Lazarus. В архиве также файл с объяснениями работы программы.
Условие:
![]()
![]()
Данная программа вычисляет средний рост женщин в заданной группе, используя данные, введенные пользователем в таблицу на форме.
Показать/скрыть дополнительное описание
Условие:
type imy = (any, valy, geny, pety, sasha, tany, shura, ura);
dannye = record pol: (mug, gen);
rost: 140..200;
end;
gruppa = array[imy] of dannye;
Описать функцию sredrost(gr), определяющую средний рост женщин из группы gr.
Вот так выглядит форма в сделанном виде:
Данная программа вычисляет средний рост женщин в заданной группе, используя данные, введенные пользователем в таблицу на форме.
Показать/скрыть дополнительное описание
Лабораторная работа программа в Lazarus. В архиве также файл с объяснениями работы программы. Условие: type imy = (any, valy, geny, pety, sasha, tany, shura, ura); dannye = record pol: (mug, gen); rost: 140..200; end; gruppa = array[imy] of dannye; Описать функцию sredrost(gr), определяющую средний рост женщин из группы gr. Вот так выглядит форма в сделанном виде: .
Характеристики лабораторной работы
Предмет
Учебное заведение
МГТУ им. Н.Э.БауманаПрограммы
Просмотров
9
Качество
Идеальное компьютерное
Размер
5,02 Mb
Список файлов
backup
project1.lpi
project1.lps
lib
x86_64-win64
project1.compiled
project1.o
project1.obj
project1.res
unit1.lfm
unit1.o
unit1.ppu
project1.exe
project1.ico
project1.lpi
project1.lpr
project1.lps
project1.res
unit1.lfm
unit1.pas
БОНУС решение этой проги на Pascal ABC.pas
Как работает программа.docx
код программы.docx
![Картинка-подпись](https://s.studizba.com/z.php?f=/uploads/fotos/podpt_26206_18498.png&w=1632&h=400&t=1")
Ваше экономие времени является моей ГЛАВНОЙ задачей! Если я Вам хоть чуть-чуть помог, пожалуйста, сделайте и мне приятное, оставьте 5 ЗВЁЗД и позитивный комментарий. Большое спасибо!
EcoTime Inc.
18 апреля 2023 в 23:42
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
