1. Создать структуру TPatient с полями, описывающими информацию о пациентах района: код (название) района, ФИО пациента, дата рождения, пол, заболевание, количество заболеваний, дата последнего заболевания, средняя продолжительность болезни.
Создать массив объектов созданной структуры, в который занести данные о пациентах. При отладке данные о пациентах можно вводить при инициализации массива. В окончательном варианте задания массив должен быть динамическим, поэтому данные о пациентах, их количество (количество элементов в массиве) необходимо задавать с клавиатуры.
В отчете привести оба варианта массивов.
2. Составить программы, которые позволяют решить следующие задачи.
2.1. Сформировать список пациентов, которые перенесли одно и то же заболевание. Отсортировать его по количеству данного заболевания у пациента.
2.2. Распечатать ФИО сотрудников возраст которых превышает 33 года, перенесших заданное заболевание.
2.3. Сформировать новый список пациентов, у которых количество заданных заболеваний меньше заданного числа. Разбить этот список на мужчин и женщин.
Функция strlen() возвращает длину строки, то есть strlen(str) - длина строки str. В массиве выделено место для 101 символа, так как по условию максимальная длина введенной строки - 100 символов, но еще одно место в массиве нужно для нуль-терминатора(\0), иначе программа не сможет успешно работать со строкой и для некоторых входных данных будет выдаваться ошибка. Так как str - массив символов типа char, то можно обращаться к каждому элементу массива с индекса, что и происходит в цикле for.
Объяснение:
#include <iostream>
using namespace std;
int main()
{
char str[101];
cin >> str;
for (int i = 0; i < strlen(str); i++) {
cout << str[i];
if (i != strlen(str)-1) cout << '*';
}
}
function Sod(n:integer):integer:=
n.ToString.Select(c->StrToInt(c)).Sum;
begin
var n:=ReadInteger('n=');
var max:=0;
var m,mmax:integer;
for var i:=1 to n do begin
m:=ReadInteger('Число '+IntToStr(i)+': ');
var s:=Sod(m);
if s>max then begin max:=s; mmax:=m end
end;
Writeln('Максимальная сумма ',max,' в числе ',mmax)
end.
Тестовое решение:
n= 5
Число 1: 3243
Число 2: 10000004
Число 3: 23536
Число 4: 9942
Число 5: 43354
Максимальная сумма 24 в числе 9942