Контрольная работа по Паскалю (Pascal) №10

Краткая выдержка из текста работы (Аннотация)

{ Контрольная работа.

Работа с изданиями журналов

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:='Журнал';

write('Индекс идания:'); readln(AllData[i].Index );

write('Количество подписчиков:'); readln(AllData[i].KolPodp);

write('Цена:'); readln(AllData[i].Price );

end;

writeln;

writeln('Ввод закончен, нажмите любую клавишу');

read;

end;

Содержание работы

Язык Pascal

Решенная задача.

Содержание:

- Создание записей.

- Создание массивов записей

- Создание процедур

- Создание функций

- Создание меню

Использованная литература

1. "Turbo Pascal 7.0", Фаронов
2. "Turbo Pascal для школьников", Б.Б. Попов

Другие похожие работы

• Контрольная - Сложение на списках
• Курсовая - Создание автоматизированной системы для расчета себестоимости продукции промышленного предприятия
• Дипломная - Проектирвоание автоматизированной информационной системы отдела продаж интернет-магазина
• Курсовая - Создание класса - Директория
• Курсовая - Исследование эффективности прямых методов обмена на многомерных массивах
• Курсовая - Создание и обработка Баз данных средствами СУБД Access
• Реферат - Реферат на тему: MySQL
• Курсовая - Консольный архиватор
• Курсовая - Развивающая игра для детей
• Курсовая - Информационная система начальника жилищно-эксплуатационной службы