Нужен код программы, не могу сам разобраться

@Uther · Регистрация: 25.02.2021

Студворк — интернет-сервис помощи студентам

Сведения о пассажире состоят из номера рейса, его фамилии, кол-ва вещей и общего веса вещей. Дан массив, содержащий сведения о некоторых пассажирах. Создать массив сведений о пассажирах, для которых средний вес одной вещи отличается не более, чем на 0,3 кг от общего среднего веса вещи всех пассажиров.

Вот что я попытался сделать сам, дальше я не знаю, что писать в код.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Type TReysP = Record
      Number:integer;
      FIO:String[25];
       Things:Record
       Kol_vo:integer;
       Ves:extended;
       end;
     end;
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var P,R : Array of TReysP;
    i,j:integer;
    V,M1:extended;
begin
n:=SpinEdit1.Value;
SetLength(P,n);
  for i:=0 to n-1 do
   with P[i], StringGrid1 do
    begin
     Number:=StrToInt(Cells[0,i+1]);
     FIO:=Cells[1,i+1];
     with Things do
      begin
       Kol_vo:=StrToInt(Cells[2,i+1];
       Ves:=StrToInt(Cells[3,i+1];
     end;
  end;
V:=0;
 V:=V+P[i]; //всего вещей

@krapotkin · 02.04.2021, 14:39

Не по теме:

как следствие "такого рода программы" должны писаться только на старом инструментарии
отсюда и берется "забудьте все чему вас учили"

конечно, тоже в рамках абсолютного имхо

@northener · 03.04.2021, 02:03

Не по теме:

Сообщение от krapotkin

как следствие "такого рода программы" должны писаться только на старом инструментарии
отсюда и берется "забудьте все чему вас учили"

Да я вот как-то и на работе и в быту до сих пор пользуюсь старым инструментарием. Простыми гаечными ключами, простыми отвертками, простым паяльником. И всё нормально работает! И зачем мне что-то новое и накрученное, если и так всё в лучшем виде?
P.S. Ну и ещё. Это старый спор о том как и чему нужно учить студентов. Нужно ли их в первую очередь учить азам программирования, способам хранения информации и т.д. и т.п.? Или сразу их нужно учить работать с готовыми инструментами без понимания как они "внутре" работают?

@Constcat · 03.04.2021, 02:50

Не по теме:

Сообщение от northener

Это старый спор о том как и чему нужно учить студентов. Нужно ли их в первую очередь учить азам программирования, способам хранения информации и т.д. и т.п.? Или сразу их нужно учить работать с готовыми инструментами без понимания как они "внутре" работают?

Я считаю, что обучать нужно принципам. А инструменты осваиваются по факту. Тем более, что инструменты и сами горазды устаревать, так что я бы их использовал в учебном процессе постольку поскольку, не акцентируя внимание на какую-либо догматичность.

@krapotkin · 03.04.2021, 10:35

Не по теме:

непонятно, как вы выбираете, что является азами, а что - нет
почему недооценен программинг в DOS ?
почему массивы лучше алгоритмируют молодежь, чем списки? (которые используются ИМЕННО потому, что алгоритмы на массивах громоздкие и ущербные)
почему работа с памятью в динамике и создание объектов во всех языках - это азы, а в делфи - "вырастешь - поймешь"?
столько вопросов...
а потом контора, из которой я уволился скоро год как, не может найти нормального программера на делфи на мое место...

@Constcat · 03.04.2021, 20:46

Не по теме:

Сообщение от krapotkin

почему работа с памятью в динамике и создание объектов во всех языках - это азы, а в делфи - "вырастешь - поймешь"?
столько вопросов...

Ну, во-первых, очень часто Делфи изучают при помощи Турбо Паскаля, считая, что особой разницы в рамках учебной программы нет. Почему в Паскале уделяется мало внимания работы с динамикой - хз. Это вопрос к тем, кто учебники составляет.

Сообщение от krapotkin

а потом контора, из которой я уволился скоро год как, не может найти нормального программера на делфи на мое место...

Думаю, дело в том, что нормальные программеры свои усилия сейчас прилагают совсем в других направлениях.

@northener · 04.04.2021, 02:21

Не по теме:

Сообщение от krapotkin

непонятно, как вы выбираете, что является азами, а что - нет
почему недооценен программинг в DOS ?
почему массивы лучше алгоритмируют молодежь, чем списки? (которые используются ИМЕННО потому, что алгоритмы на массивах громоздкие и ущербные)
почему работа с памятью в динамике и создание объектов во всех языках - это азы, а в делфи - "вырастешь - поймешь"?
столько вопросов...

И все это тот самый старый спор, о котором я и вспоминал имея в виду то с чего и начинался этот спор в стародавние времена. С уроков ЮЗ и АП на королевстве. С тех пор этот спор ни разу не прекращался и стороны так и не смогли прийти к общему согласию.

Сообщение от krapotkin

а потом контора, из которой я уволился скоро год как, не может найти нормального программера на делфи на мое место...

Не зная всей требухи этой конторы мне трудно что-то точно сказать. Как вариант возможно "инженеров-программистов" не устраивает зарплата, а техники-программисты не справляются.

Добавлено через 17 минут

Не по теме:

Сообщение от krapotkin

почему недооценен программинг в DOS ?

И кстати да. DOS насколько я знаю далеко ещё не умер и умирать пока не собирается.

Добавлено через 3 минуты

Не по теме:

Сообщение от Constcat

Я считаю, что обучать нужно принципам.

"Обучение принципам" слишком туманное понятие.

@Constcat · 04.04.2021, 16:50

Не по теме:

Сообщение от northener

"Обучение принципам" слишком туманное понятие.

Под "принципами" я понимаю те основы, которые не зависят от конкретного языка. Навыки формализации задачи и пр.

@Puporev · 04.04.2021, 16:52

Комментарий модератора

Может хорош уже флудить? Карточки всем выписать?

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@krapotkin
	02.04.2021, 14:39
	Не по теме: как следствие "такого рода программы" должны писаться только на старом инструментарии отсюда и берется "забудьте все чему вас учили" конечно, тоже в рамках абсолютного имхо 0

@krapotkin
	03.04.2021, 10:35
	Не по теме: непонятно, как вы выбираете, что является азами, а что - нет почему недооценен программинг в DOS ? почему массивы лучше алгоритмируют молодежь, чем списки? (которые используются ИМЕННО потому, что алгоритмы на массивах громоздкие и ущербные) почему работа с памятью в динамике и создание объектов во всех языках - это азы, а в делфи - "вырастешь - поймешь"? столько вопросов... а потом контора, из которой я уволился скоро год как, не может найти нормального программера на делфи на мое место... 0