Отпишитесь если будут ошибки, т. к. кодил на мобилке.
Тело программы:
public static void Main (string[] args)
{
int man = 0;
int woman = 0;
String file = File. ReadAllText ("persons. txt");
List persons = StringToPersons (file);
foreach (Person p in persons)
if (p. Sex = = "Мужской")
man++;
else if (p. Sex = = "Женский")
woman++;
Console. WriteLine ("Женщин: {0}/nМужчин: {1}", woman, man);
persons = persons. OrderBy (p = > p. LastName). ToList ();
for (int i = 0; i
{
Person p = persons[i];
Console. WriteLine ("Пациент # {0}/nФИО: {1} {2} {3}, Пол: {4}, Возраст: {5} лет, Место проживания: {6}, Диагноз: {7}.", i+1, p. LastName, p. FirstName, p. Patronymic, p. Sex, p. Age, p. City, p. Main);
}
}
public static List StringToPersons (String FileContent)
{
List persons = new List ();
String[] lines = FileContent. Split ('; ');
foreach (String line in lines)
{
String[] data = line. Split (':');
if (data. Length>7)
{
throw new Exception ("Error read persons file");
}
Person person = new Person (data[0], data[1], data[2], data[3], data[4], data[5], data[6]);
persons. Add (person);
}
return persons;
}
}
public class Person
{
public String LastName;
public String FirstName;
public String Patronymic;
public String Sex;
public String Age;
public String City;
public String Main;
public Person (String LastName, String FirstName, String Patronymic, String Sex, String Age, String City, String Main)
{
this. LastName = LastName;
this. FirstName = FirstName;
this. Patronymic = Patronymic;
this. Sex = Sex;
this. Age = Age;
this. City = City;
this. Main = Main;
}
}
Текстовый файл:
Сергеев: Иван: Алексеевич: Мужской: 34:Санкт-Петербург: Кариес;
Белоусова: Элина: Станислава: Женщина: 27:Москва: Ангина;
Павлов: Николай: Дмитриевич: Мужской: 89:Астрахань: Сахарный диабет
P. s. я не доктор, соответственно в плане диагноза я написал чушь.
Чтобы понять, что такое CSS, разберем простой пример. Когда сотрудник редакции газеты или журнала производит верстку издания, он делает пометки, по которым затем разрабатывается внешний вид готового материала. Например: «выделить заголовок красным», «сделать отступ», «увеличить расстояние между информационными блоками» и так далее. При работе с сайтами нельзя прописать подобные заметки обычным языком, браузер не сможет их прочитать. Чтобы он учел отметки, необходимо прописать их на языке CSS.
Объяснение:
print "program Project1;
type
//Тип, задающий основания систем счисления.
TBase = 2..20;
//Переводит запись числа в системе счисления по основанию aBase - в число.
function XToNum(const aStr : String; aBase : TBase) : Longint;
var
StrBin : String;
i, Sign : Integer;
Res, Weight : Longint;
begin
XToNum := 0;
if aStr = '' then Exit;
Res := 0;
//Определяем знак и получаем запись числа без знака.
if aStr[1] = '-' then begin
Sign := -1;
StrBin := Copy(aStr, 2, Length(aStr) - 1);
end else begin
Sign := 1;
StrBin := aStr;
end;
Weight := 1;
//Движемся по разрядам беззнакового числа справа-налево.
for i := Length(StrBin) downto 1 do begin
case StrBin[i] of
'0' : Res := Res + 0 * Weight;
'1' : Res := Res + 1 * Weight;
'2' : Res := Res + 2 * Weight;
'3' : Res := Res + 3 * Weight;
'4' : Res := Res + 4 * Weight;
'5' : Res := Res + 5 * Weight;
'6' : Res := Res + 6 * Weight;
'7' : Res := Res + 7 * Weight;
'8' : Res := Res + 8 * Weight;
'9' : Res := Res + 9 * Weight;
'A', 'a' : Res := Res + 10 * Weight;
'B', 'b' : Res := Res + 11 * Weight;
'C', 'c' : Res := Res + 12 * Weight;
'D', 'd' : Res := Res + 13 * Weight;
'E', 'e' : Res := Res + 14 * Weight;
'F', 'f' : Res := Res + 15 * Weight;
'G', 'g' : Res := Res + 16 * Weight;
'H', 'h' : Res := Res + 17 * Weight;
'I', 'i' : Res := Res + 18 * Weight;
'J', 'j' : Res := Res + 19 * Weight;
else
raise Exception.Create('Ошибка! Незарегистрированная цифра!');
end;
//Вес следующего разряда.
Weight := Weight * aBase;
end;
//Учитываем знак.
XToNum := Sign * Res;
end;
//Переводит число в систему счисления по основанию aBase.
function NumToX(const aNum : Longint; const aBase : TBase) : String;
var
Num : Longint;
Dig : Byte;
Res : String;
begin
Res := '';
Num := Abs(aNum);
repeat
//Определяем очередной младший разряд числа.
Dig := Num mod aBase;
case Dig of
0 : Res := '0' + Res;
1 : Res := '1' + Res;
2 : Res := '2' + Res;
3 : Res := '3' + Res;
4 : Res := '4' + Res;
5 : Res := '5' + Res;
6 : Res := '6' + Res;
7 : Res := '7' + Res;
8 : Res := '8' + Res;
9 : Res := '9' + Res;
10 : Res := 'A' + Res;
11 : Res := 'B' + Res;
12 : Res := 'C' + Res;
13 : Res := 'D' + Res;
14 : Res := 'E' + Res;
15 : Res := 'F' + Res;
16 : Res := 'G' + Res;
17 : Res := 'H' + Res;
18 : Res := 'I' + Res;
19 : Res := 'J' + Res;
end;
//Удаляем из числа очередной младший разряд.
Num := Num div aBase;
until Num = 0;
//Учитываем знак.
if aNum < 0 then Res := '-' + Res;
NumToX := Res;
end;
//Переводит число, представленное в системе счисления по основанию aBase1,
//в систему счисления по основанию aBase2.
function XToY(const aStr : String; const aBase1, aBase2 : TBase) : String;
begin
XToY := NumToX( XToNum(aStr, aBase1), aBase2 );
end;
var
S : String;
begin
repeat
Writeln('Задайте целое число в шестнадцатиричной системе счисления:');
Readln(S);
S := XToY(S, 16, 20);
Writeln('Это же число, представленное в двадцатиричной системе счисления:');
Writeln(S);
Writeln('Повторить - Enter, выход - любой символ + Enter.');
Readln(S);
until S <> '';
end.\n";