<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
type tДатаРождения=record день, месяц, год:integer end; tАдрес=record город:string[16]; улица:string[16]; дом:string[16] end; tСтудент=record ФИО:string[24]; Датарождения:tДатаРождения; Пол:char; // М/Ж Адрес:tАдрес end;
begin Writeln('Вводите данные анкеты, значение * в ФИО - конец ввода'); var Stud:tСтудент; var f:file of tСтудент; Rewrite(f,'Student.bin'); while true do begin Stud.ФИО:=ReadlnString('ФИО студента:'); if Stud.ФИО='*' then break; Writeln('День, месяц и год рождения: '); Readln(Stud.Датарождения.день, Stud.Датарождения.месяц, Stud.Датарождения.год); Stud.Пол:=ReadlnChar('Пол (М/Ж):').ToUpper; Stud.Адрес.город:=ReadlnString('Город:'); Stud.Адрес.улица:=ReadlnString('Улица:'); Stud.Адрес.дом:=ReadlnString('Дом:'); Write(f,Stud); end; f.Close end.
<u>2. Программа, которая выводит существующий файл</u>
type tДатаРождения=record день, месяц, год:integer end; tАдрес=record город:string[16]; улица:string[16]; дом:string[16] end; tСтудент=record ФИО:string[24]; Датарождения:tДатаРождения; Пол:char; // М/Ж Адрес:tАдрес end;
begin var Stud:tСтудент; var f:file of tСтудент; Reset(f,'Student.bin'); while not Eof(f) do begin Read(f,Stud); Writeln(Stud.ФИО,' (',Stud.Пол,'), ',Stud.Датарождения.день,'.', Stud.Датарождения.месяц,'.',Stud.Датарождения.год,', ', Stud.Адрес.город,', ',Stud.Адрес.улица,', ',Stud.Адрес.дом); end; f.Close end.
<u>3. Программа, которая делает все это вместе</u>
type tДатаРождения=record день, месяц, год:integer end; tАдрес=record город:string[16]; улица:string[16]; дом:string[16] end; tСтудент=record ФИО:string[24]; Датарождения:tДатаРождения; Пол:char; // М/Ж Адрес:tАдрес end;
begin Writeln('Вводите данные анкеты, значение * в ФИО - конец ввода'); var Stud:tСтудент; var f:file of tСтудент; Rewrite(f,'Student.bin'); while true do begin Stud.ФИО:=ReadlnString('ФИО студента:'); if Stud.ФИО='*' then break; Writeln('День, месяц и год рождения: '); Readln(Stud.Датарождения.день, Stud.Датарождения.месяц, Stud.Датарождения.год); Stud.Пол:=ReadlnChar('Пол (М/Ж):').ToUpper; Stud.Адрес.город:=ReadlnString('Город:'); Stud.Адрес.улица:=ReadlnString('Улица:'); Stud.Адрес.дом:=ReadlnString('Дом:'); Write(f,Stud); end; Seek(f,0); while not Eof(f) do begin Read(f,Stud); Writeln(Stud.ФИО,' (',Stud.Пол,'), ',Stud.Датарождения.день,'.', Stud.Датарождения.месяц,'.',Stud.Датарождения.год,', ', Stud.Адрес.город,', ',Stud.Адрес.улица,', ',Stud.Адрес.дом); end; f.Close end.
<u>Пример работы программы 3)</u> Вводите данные анкеты, значение * в ФИО - конец ввода ФИО студента: Иванов И.И. День, месяц и год рождения: 24 6 1998 Пол (М/Ж): м Город: Москва Улица: пр.Ленина Дом: 152, кор.3 ФИО студента: Петрова Т.Н. День, месяц и год рождения: 13 11 1999 Пол (М/Ж): ж Город: Тверь Улица: ул.Сиреневая Дом: 18 ФИО студента: * Иванов И.И. (М), 24.6.1998, Москва, пр.Ленина, 152, кор.3 Петрова Т.Н. (Ж), 13.11.1999, Тверь, ул.Сиреневая, 18
Например, возьмем пятое суждение: утверждение Италия-5 - правильно. В четвер-том суждении правильным вариантом есть решение Россия-1. Третье суждение имеет такой правильный ответ - Германия-4. Во первом суждении правильный ответ - Украина-3. Получилось: 1 место - Россия 2 место - Китай 3 место - Украина 4 место - Германия 5 место - Италия
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var s:set of integer:=[]; Writeln('Вводите натуральные числа от 1 до 255, иное число завершит ввод'); repeat var n:=ReadInteger; if not (n in [1..255]) then break else s+=[n] until false; Writeln('-'*10); foreach var k in s do if k.ToString.ToCharArray.Distinct.Count=1 then Print(k) end.
<u>Пример</u> Вводите натуральные числа от 1 до 255, иное число завершит ввод 24 55 68 156 222 77 8 140 500 ---------- 77 8 55 222