Презентация по информатике на тему Тип данных 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

1. ОПИСАНИЕ ЗАПИСИ

   • 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;

2. Ввод/вывод

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);

3. Компоновка фрагментов:

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.

4. Программа поиска фамилии в списке

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.