- Создание записей. - Создание массивов записей - Создание процедур - Создание функций - Создание меню
Введение
{ Контрольная работа. Работа с изданиями журналов 29/03/2007 } program program10; uses crt;
// обявденеи консатнт const Kol = 5; // Количество изданий const KolKlient=12; // Количество клиентов
// Обьявление новых типа данных - записей type Name = string[25];
// Обьявление записи "Днные" Data = record Nazvanie : string[25]; Vid : string[7]; Index: integer; KolPodp : integer; Price : real; end;
// Обьявление записи "Клиенты" Klient = record Name : string[25]; Age : byte; IndexJournal: integer; end;
// Обьявление переменных var AllData : array [1..Kol] of Data;// Масив Данных AllKlient : array [1..KolKlient] of Klient; // Масив клиен var n : byte;
// ========================================== // Процедура ввода данных по изданию
procedure vvod; var i:integer; izd : integer; begin writeln('Ввод данных по изданию'); for i:=1 to Kol do begin clrscr; writeln('Номер Издания: ',i:2); writeln; write('Название издания:'); readln(AllData[i].Nazvanie ); writeln('Выберите тип издания:'); write('Введите 1 - Газета, или 2 - Журнал '); readln(izd); if (izd=1) then AllData[i].Vid:='Газета' else AllData[i].Vid:='Журнал';