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

• 1 слайд

  Тип данных Record -Запись
  

• 2 слайд

  Назначение записей.
  Тип данных Запись (Record) используется в тех случаях, когда необходимо обрабатывать структурированные данные, которые описывают несколько различных свойств объекта.
  
  Например, нам надо использовать следующие данные про наших друзей:
  
  Фамилия
  Имя
  Адрес
  Телефон
  
  Эти данные имеют разный тип. Но из них можно составить структурированный тип данных – запись.
  

• 3 слайд

  Описание типа данных Record
  
  type имя записи = record
  имя поля 1 : тип поля1;
  - - -
  имя поля n : тип поля n ;
  end;
  Например:
  type friends = record
  Fam : string [ 12 ]; Name : string [ 12 ]; Adress : string [ 25 ]; Telef : string [ 9 ]; end;
  Структура Друзья
  
  Фамилия : строка [ 12 ] Имя : строка [ 12 ] Адрес : строка [ 25 ] Телефон : строка [ 9 ]
  
  

• 4 слайд

  Составные имена полей
  С полями, входящими в запись, можно выполнять те же действия, что и с обычными переменными соответствующего типа.
  Для обращения к полям записи используют составные имена, части которых разделены точкой:
  имя записи.имя поля
  
  Friends.Fam - фамилия друга
  Friends. Telef - телефон друга
  
  Составные имена могут участвовать в выражениях как обычные переменные:
  Friends.Telef:=‘123-45-67’;
  

• 5 слайд

• 6 слайд

  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.
  
  

• 7 слайд

  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.
  
  

• 8 слайд

  Задачи на урок:
  
  1) Написать программу, которая создаёт запись, по ученикам: фамилия и сумму.
  
  2, а) Написать программу, которая используя предыдущие описания выводит на экран данные по самой большой сумме.
  
  

• 9 слайд

  Создания типа данных Record с данными про учеников. Поля записей в файле: фамилия, имя, рост и вес.
  Используя oописание из первой программы, определите самого высокого и самого легкого учеников. Выведите их фамилии, имя, вес и рост.
  Домашнее задание
  

Ц1 Познакомить учеников с основными принципами структурного программирования;      Ц2 Рассказать о реализации этих принципов в ПАСКАЛЬ - использовании данных типа Record;      Ц3 Формировать навыки и умения работы с данными типа Record .