#include <iostream>
#include <vector>
#include <fstream>
#include <algorithm>
using namespace std;
class pacient {
private:
string lastName_m, mOrFM_m, adress_m, diagnosis_m;
public:
pacient(string lastName = "", string mOrFM = "", string adress = " ", string diagnosis = " ") {
lastName_m = lastName;
mOrFM_m = mOrFM;
adress_m = adress;
diagnosis_m = diagnosis;
}
string getLastName() {
return lastName_m;
}
string getAll() {
return lastName_m + ", " + mOrFM_m + ", " + adress_m + ", " + diagnosis_m + ".";
}
};
int main() {
fstream out("output.txt");
setlocale(LC_ALL, "Russian");
vector<pacient> arr;
for(int i = 0;;++i) {
string a[4];
for(int j = 0; j<4; ++j) {
switch(j) {
case 0: cout << "Last name: "; break;
case 1: cout << "Male or FeMale: "; break;
case 2: cout << "Adress: "; break;
case 3: cout << "Diagnosis: "; break;
}
getline(cin, a[j]);
}
pacient temp(a[0], a[1], a[2], a[3]);
cout << "Для окончания ввода введите 1: ";
arr.push_back(temp);
string temp1;
getline(cin, temp1);
if(temp1=="1") {
break;
}
}
for(int j = 0; j<1000; ++j) {
for(int i = 0; i<arr.size()-1; ++i) {
if(arr[i].getLastName()[0]>arr[i+1].getLastName()[0]) {
swap(arr[i], arr[i+1]);
}
} }
for(int i = 0; i<arr.size(); ++i) {
cout << arr[i].getLastName() << endl;
out << arr[i].getAll();
out << "\n";
}
out.close();
}
//PascalABC.NET версия 3.4.2.1991 от 03.03.19
//Если программа не запускается, то обновите версию
const
handsfree = true;
nmax = 100;
random_min = -50;
random_max = 50;
var
a: array[1..nmax] of real;
i, n, count: integer;
procedure QuickSort(first, last: Integer);{ Быстрая сортировка массива A[] , использует массив как глобальную переменную}
var
i, j: integer;
x, y: real;
begin
i := first;
j := last;
x := a[(first + last) div 2];
repeat
while (A[i] < x) do inc(i);
while (x < A[j]) do dec(j);
if (i <= j) then
begin
y := A[i]; a[i] := a[j]; a[j] := y;
inc(i); dec(j);
end;
until (i > j);
if (first < j) then QuickSort(first, j);
if (i < last) then QuickSort(i, last);
end;
begin
{ввод массива}
n := nmax;
if handsfree then begin
n := random(nmax - 5) + 5;
for i := 1 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
write('n = ');
readln(n);
for i := 1 to n do
readln(a[i]);
end;
writeln();
QuickSort(1, n);
{вывод массива}
writeln('Вывод массива[', n, ']:');
for i := 1 to n do
write(a[i], ' ');
writeln();
{подсчет разных}
count := 1; {первый элемент точно разный}
for i := 2 to n do
if a[i] <> a[i - 1] then
count := count + 1;
writeln('Разных элементов = ', count);
end.