Программирование. Записи


Чтобы посмотреть презентацию с оформлением и слайдами, скачайте ее файл и откройте в PowerPoint на своем компьютере.
Текстовое содержимое слайдов:

Записи План:Определение записей.Ввод и вывод записей.Записи с вариантами. Определение записей type <Имя типа>=record <имя поля 1> : <тип поля 1>; <имя поля 2> : <тип поля 2>; ………….. <имя поля N> : <тип поля N>;end Пример type karta=record family: string[20]; name: string[15]; age: integer; end; Формат записи: <имя переменной-записи>.<имя поля>Пример.karta.family:=‘Иванов’;karta.name:=‘Иван’;karta.age:=20; Оператор присоединения with<запись>do<оператор>Пример.with karta do begin family:=‘Иванов’; name:=‘Иван’; age:=20; end; Структурированные типы Пример.var z: record; pole1: string; pole2: array[1..10] of byte; end;Begin for i:=1 to 10 do read (z.pole2[i]);End. Begin with student do begin fam:=‘Иванов’; with data do begin day:=30; mes:=4; year:=1987; end; with adres do begin street:=‘Туполева’; dom:=22; kvart:=154; end; end;End. Объявите запись, содержащую сведения о фамилии, дате рождения и адреса студента var student: record; fam: string[15]; data: record day: 1..31; mes: 1..12; year: integer; end; adress: record street: string[15]; dom: byte; kvart: byte; end; end; Записи с вариантами Пример. Определить тип Person2, добавив к Person поле Pol, и в зависимости от того, мужчина это или женщина, определить(а) для мужчин: (1) рост; (2) курит или нет;(б) для женщин: (1) цвет глаз; (2) любимые цветы.type Person = record Name: string[15]; SurName: string[20]; bd: date; end;type PersonPol=(M, F); Person2=record p:person; case Pol: PersonPol of M: (r: word; Smoking: boolean); F: (EyesColor: (blue, brown, gray, green); Flowers: string[20]) end; var x, y: Person; Полный формат записи с вариантами type <Имя типа>=record <имя поля1> : <тип поля1>; <имя поля2> : <тип поля2>; ………….. <имя поляN> : <тип поляN>; case <поле признака>:<имя типа признака> of <константа выбора 1>: (<поле 11>:<тип 11>; <поле 12>:<тип 12>; ….. <константа выбора 2>: (<поле 21>:<тип 21>; <поле 22>:<тип 22>; ….. <поле N2>:<тип N2>; ………………….. end Пример. Обработка ведомости. Program pr; const m=15; type t = record name: string[m]; ball: integer; end;var spisok: t; i, k: integer summa1: integer; summa2: integer; n: integer;Begin summa1:=0; summa2:=0; writeln(‘Введите число учащихся:’); readln(n); writeln(‘Введите фамилию и имя, затем нажмите клавишу «Ввод»; далее введите оценку’); for i:=1 to n do begin readln(spisok.name); readln(spisok.ball); if spisok.ball=5 then summa1:=summa1+1; if spisok.name[1]=‘A’ then summa2:=summa2+1; end; writeln(‘Количество учащихся, занимающихся на 5 = ’, summa1); writeln(‘Количество учащихся с фамилией на букву «А» = ’, summa2);End. Пример. Определить, находятся ли школьные классы в параллели Program p; type klass = Record year: integer; index: char end; var x, y: klass;Begin writeln (‘Вводите исходные данные через пробел: вначале год обучения, а затем букву.’); readln (x.year,x.index,y.year,y.index); if (x.year=y.year) and (x.index<>y.index) then writeln (‘Данные классы находятся в параллели’) else writeln (‘Увы! Нас постигла неудача’)End.

Приложенные файлы

  • ppt ZapisiPascal
    Презентация
    Размер файла: 49 kB Загрузок: 2