'a': (I, j: byte);
end;
begin
R.rem: = 'запис з ваpиант ';
R.n: = 25000;
write (R.i, R.x, R.j, R.y); {168і97a}
{ord ('і') = 168, ord ('a') = 97, 168 +97 * 256 = 25000}
end.
Завдання 7. Приклад оголошення типу запис
type Men = Record
FIO, Adress: string;
Year: byte;
End;
var A, B: Men;
begin
A.FIO: = 'Іванов І.І. ';
A.Adress: = 'пp. Леніна, буд 40, кв. 10 ';
A.Year: = 1981;
end.
Завдання 8. Скласти програму в якій відомі Прізвище, адресу та номери Телефонів 15 осіб, організувати пошук номера телефону на прізвище абонента
Program as;
Type
person = record
surname: string [40]
adres: string [20]
nomer: integer
var
mas: array [1 .. 15] of person;
i: integer; poisk: string;
procedure Input.date;
var
begin
writeln ('Введи дані ', I,' абонента ');
writeln ('Прізвище');
readln (mas [i]. surname);
writeln ('адреса');
readln (mas [i]. adres);
writeln ('Номер телефону ');
readln (mas [i]. nomer),
end;
Procedure write date;
Begin
With mas [i] do
Begin
Writeln ('прізвище', surname);
Writeln ('адреса', adres);
Writeln ('номер', nomer);
End;
End;
Begin
For i: = 1 to 15 do Input.date;
Writeln ('Введи прізвище абонента ');
Readln (poisk),
For i: = 1 to 15 do
If mas [i] nomer = poisk then write date;
End.
Завдання 9. Створити список учнів класу і вивести на екран Прізвища та Імена у вигляді таблиці
Program as;
Uses crt;
Type
Klass = record
Surname: string [15];
Name: string [10];
End;
Var A: array [1 .. 10] of klass;
I: integer;
Begin clrscr;
For i: = 1 to 10 do begin
Writeln ('введи прізвище ');
Readln (a [i]. surname);
Writeln ('введи ім'я ');
Readln (a [i]. name);
End;
Writeln;
Clrscr;
For i: = 1 to 10 do writeln (a [i]. Surname, '', a [i]. Name);
End.
Заданіе10. Відомі дані про 6 співробітниках фірми Прізвище, вік, і ставлення до воен.службе. Вивести на екран прізвища всіх військовозобов'язаних співробітників
Program as;
Uses crt;
Type
S = record
N: string [10]; voz: integer;
V: string [8];
End;
Var a: array [1 .. 6] of s;
I: integer;
Begin clrscr;
For i: = 1 to 6 do begin
Writeln ('яка у тебе прізвище ');
Readln (a [i]. s);
Writeln ('скільки тобі років ');
Readln (a [i]. voz);
Writeln ('ти относешся до військової частини ');
Readln (a [i]. v);
End; Writeln; Clrscr;
For i: = 1 to 6 do if a [i]. v = 'DA' then writeln (a [i]. s);
End.
Заданіе11. Дано назви 6 міст та країн, серед них є місто знаходиться в Італії надрукувати їх назва
Program as;
Uses crt;
Type
S = record
strana: string [10]; p> gorod: string [8]; p> End;
Var a: array [1 .. 6] of s;
I: integer;
Begin clrscr;
For i: = 1 to 6 do begin
Writeln ('країна?');
Readln (a [i]. strana);
Writeln ('місто'); p> Readln (a [i]. gorod);
End; Writeln; Clrscr;
For i: = 1 to 6 do if a [i]. strana = 'italia' then writeln (a [i]. gorod);
End.
Заданіе12. Дано назви 10 країн і частин світу. Надрукувати на екрані всі країни знаходяться в Азії
Program as;
Uses crt;
Type
S = record
strana: string [10];
ch: string [8]; p> End;
Var a: array [1 .. 10] of s;
I: integer;
Begin clrscr;
For i: = 1 to 10 do begin
Writeln ('країна');
Readln (a [i]. strana);
Writeln ('частина світла ');
Readln (a [i]. ch);
End; Writeln; Clrscr;
For i: = 1 to 10 do if a [i]. ch = 'Azia' then writeln (a [i]. strana);
End.
Заданіе13. З відомості 3-х студентів з їх оцінками (порядковий номер, П.І.Б. та три оцінки) визначити кількість відмінників і середній бал кожного студента
Program Spic;
Type wed = record {Тип wed включає 3 поля: n, fio, bal}
n: integer;
fio: string [40];
ba...
