- Учителю
- Презентация по информатике на тему 'Тип данных Record'
Презентация по информатике на тему 'Тип данных Record'
ПРИЛОЖЕНИЕ 7
Тип RECORD
1. Проблема телефонного справочника:
Ф. И. О. Адрес № телефона
String String longint
Можно завести 3 массива и параллельно их обрабатывать. Громоздко и неудобно!!!
ЗАДАЧА: Создать ведомость на начисление премии лучшим ученикам.
№ п/п ФИО Сумма
1 Иванов 1000.22
2 Петров 1239.75
3 Сидоров 957.43
4 Котя 100.00
Каждую строчку можно рассматривать как запись. Вводим обозначения:
С - список . F - ФИО, S- сумма
Уточнённые номера: C.N, C.F, C.S
-
ОПИСАНИЕ ЗАПИСИ
-
Type t=record
-
N:array[1..4] of byte;
F:array[1..4] of string;
S;array[1..4] of real;
End;
Var c:t;
-
Var C:record
N:array[1..4] of byte;
F:array[1..4] of string;
S;array[1..4] of real;
End;
-
Ввод/вывод
For i:=1 to n do Begin
C.N[i]:=I;
Write('FIO: ');readln(C.F[i]);
Write('SUMMA: ');readln(C.S[i]); End;
-----------------------------------------------------
Writeln('N':10;'FIO':10;'SUMMA':10);
For i:=1 to n do Writeln(C.N[i]:10;C.F[i]:10;C.S[i];10:2);
-
Компоновка фрагментов:
Program premii;
Uses crt;
Var C:record
N:array[1..4] of byte;
F:array[1..4] of string;
S:array[1..4] of real;
End;
I: byte;
n:integer;
Begin
Clrscr;
Write ('Введите кол-во учеников');
Read(n);
For i:=1 to n do
Begin
C.N[i]:=I;
Write('FIO: ');readln(C.F[i]);
Write('SUMMA: ');readln(C.S[i]);
End;
Writeln('N':10,'FIO':10,'SUMMA':10);
For i:=1 to n do
Writeln(C.N[i]:10,C.F[i]:10,C.S[i]:10:2);
Readkey
End.
-
Программа поиска фамилии в списке
Program POISK_FAM;
Uses crt;
Var C:record
N:array[1..4] of byte;
F:array[1..4] of string;
S:array[1..4] of real;
End;
I: byte; NAME: string; N:INTEGER;
Begin
Clrscr;
writeln('введите кол - во учеников');
read(n);
For i:=1 to n do
Begin
C.N[i]:=I;
Write('FIO: ');readln(C.F[i]);
Write('SUMMA: ');readln(C.S[i]);
End;
Writeln('N':10,'FIO':10,'SUMMA':10);
For i:=1 to n do Writeln(C.N[i]:10,C.F[i]:10,C.S[i],10:2);
Write(' требуемая фамилия? '); readln(NAME);
For i:=1 to n do
If NAME=C.F[i] then
Begin
Writeln(C.N[i]:10,C.F[i]:10,C.S[i]:10:2);
End;
Readkey
End.