<u>1. Программа, которая создает файл</u>
<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
Ответ: (в начале текст испорчен, непонятно из какой системы перевоить)
36₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ = 100100₂
197₁₀ = 5*8⁰ + 0*8¹ + 3*8² = 305₈
681₁₀ = 9*16⁰ + 10*16¹ + 2*16² = 2A9₁₆
100100110101₂ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1*2⁵ + 0*2⁶ + 0*2⁷ + 1*2⁸ + 0*2⁹ + 0*2¹⁰ + 1*2¹¹ = 2357₁₀
2357₁₀ = 5*8⁰ + 6*8¹ + 4*8² + 4*8³ = 4465₈
1011011₂ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ = 91₁₀
91₁₀ = 3*8⁰ + 3*8¹ + 1*8² = 133₈
245₈ = 5*8⁰ + 4*8¹ + 2*8² = 165₁₀
165₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10100101₂
573₈ = 3*8⁰ + 7*8¹ + 5*8² = 379₁₀
379₁₀ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ + 1*2⁴ + 1*2⁵ + 1*2⁶ + 0*2⁷ + 1*2⁸ = 101111011₂
1BA7₁₆ = 7*16⁰ + A*16¹ + B*16² + 1*16³ = 7079₁₀
7079₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ + 1*2⁸ + 1*2⁹ + 0*2¹⁰ + 1*2¹¹ + 1*2¹² = 1101110100111₂
ACE₁₆ = E*16⁰ + C*16¹ + A*16² = 2766₁₀
2766₁₀ = 0*2⁰ + 1*2¹ + 1*2² + 1*2³ + 0*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ + 0*2⁸ + 1*2⁹ + 0*2¹⁰ + 1*2¹¹ = 101011001110₂
B68₁₆ = 8*16⁰ + 6*16¹ + B*16² = 2920₁₀
2920₁₀ = 0*8⁰ + 5*8¹ + 5*8² + 5*8³ = 5550₈
FE8₁₆ = 8*16⁰ + E*16¹ + F*16² = 4072₁₀
4072₁₀ = 0*8⁰ + 5*8¹ + 7*8² + 7*8³ = 7750₈
655₈ = 5*8⁰ + 5*8¹ + 6*8² = 429₁₀
429₁₀ = 13*16⁰ + 10*16¹ + 1*16² = 1AD₁₆
743₈ = 3*8⁰ + 4*8¹ + 7*8² = 483₁₀
483₁₀ = 3*16⁰ + 14*16¹ + 1*16² = 1E3₁₆
Ответ:
1) Шестиричная. Ибо максимальная цифра 5
2) Третичная. То же обоснование
3) Шестиричная.То же обоснование
4) Одиннадцатиричная. А - это 10
5) Триннадцатиричная. С - это 12
6) Восьмиричная. То же обоснование
1.<span>Что из ниже перечисленного имеет свойство передавать информацию?<span>
Верный ответ: </span></span><span>г) световой луч
2.</span><span>Выберете событие, которое можно отнести к информационным процессам...
Верный ответ: </span><span>б) перекличка присутствующих на уроке</span>
