Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 08.12.2013
Сообщений: 6

Задача о пациентах

14.06.2015, 14:08. Показов 1591. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В исследовательской лаборатории тестируется набор противоаллергических препаратов, пронумерованных числами 1,2,…,N. Каждый препарат тестируется на M добровольцах (1<M,N<20). Данные о времени, необходимом для исчезновения аллергических симптомов записываются в двухмерный массив A с N строками и M столбцами. Элемент A[i,j] (0 < A[i,j]<100) указывает время (в часах) за которое исчезают аллергические симптомы у добровольца j , которого лечили препаратом с номером i. Эффективность препарата i измеряется как среднее время необходимое для исчезновения аллергических симптомов у добровольцев , которых лечили препаратом i. Эффективность препарата тем выше, чем меньше среднее время необходимое для исчезновения аллергических симптомов при лечении данным препаратом. Задание: Напишите программу, которая определит противоаллергические препараты с максимальной эффективностью. Для определения эффективности препарата i (i=1,..,n) напишите подпрограмму, которая получает в качестве параметра номер строки i и возвращает в вызывающую программу среднее арифметическое элементов строки i массива A. Ввод: Текстовый файл date.in содержит в первой строке два натуральных числа N и M – количество препаратов и количество добровольцев, которых лечили экспериментальными препаратами. Числа разделены пробелом. Следует N строк, которые содержат по M целых чисел, разделенных пробелами – элементы массива A. Строки массива появляются в файле в порядке нумерации препаратов: от 1 до N.
Вывод: Текстовый файл date.out содержит в первой строке номера препаратов с максимальной эффективностью, разделенные пробелами.
Пример
date.in
3 4
4 5 6 5
1 2 1 3
2 3 4 7

date.out
2
Препарат 1:
(4+5+6+5)/4 =5.
Препарат 2:
(1+2+1+3)/4 =1,75.
Препарат 3:
(2+3+4+7)/4 =4
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
14.06.2015, 14:08
Ответы с готовыми решениями:

Задача с исп. структур: массив со сведениями о пациентах клиники.
Очень прошу помочь с задачей: Сформировать массив, содержащий сведения о пациентах глазной клиники. Структурный тип содержит поля:...

Запрос в БД : информацию о пациентах
не понимаю как написать эти запросы 1)Вывести информацию о пациентах, которые обращались к врачам большее количество раз, чем среднее...

Массив записей о пациентах больницы
Помогите пожалуйста еще одну задачу решить)) Ввести массив записей о пациентах больницы. Каждая запись массива содержит следующую...

1
7 / 7 / 13
Регистрация: 01.04.2015
Сообщений: 34
18.06.2015, 12:35
Лучший ответ Сообщение было отмечено Addington как решение

Решение

Pascal
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
var i,j,a,c,n,m:longint;
b,x:real;
begin
assign(input,'date.in');
reset(input);
assign(output,'date.out');
rewrite(output);
read(n,m);
for i:=1 to n do begin
        x:=0;
        for j:=1 to m do begin
                read(a);
                x:=x+a;
        end;
        x:=x/m;
        if i=1 then begin
                b:=x;
                c:=i;
        end else
                if x<b then begin
                        b:=x;
                        c:=i;
                end;
end;
write(c);
end.
если будет ошибка, попытайся найти контр пример в котором ответы не сходятся
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
18.06.2015, 12:35
Помогаю со студенческими работами здесь

База данных о врачах и пациентах
Уважаемые форумчане, это моя первая и последняя задача на этом языке. 150-летняя преподавательница даже не собирается нам давать малейшие...

Сведения о пациентах - найти недочеты в коде
Здравствуйте. Появилась такая проблема. Задача программы, чтобы пользователь вводил данные о пациенте в программу и программа это сохраняла...

Создать файл, содержащий сведения о пациентах поликлинники.
Приветствую! прошу решить следующую задачку: Создать файл, содержащий сведения о пациентах поликлинники. Структура записи ...

Организовать файл записей, содержащий сведения о пациентах больницы
Ребят, кто рубит в этом, помогите. Буду благодарен :D Организовать файл записей, содержащий сведения о пациентах больницы (фамилия,...

Создать типизированный файл, содержащий сведения о пациентах поликлиники
Создать файл, содержащий сведения о пациентах поликлиники. Структура записи: ФИО пациента, год рождения, адрес, диагноз. Выбрать информацию...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru