Контрольная работа по Паскалю (Pascal) №10
контрольные работы, Программирование Объем работы: 3 стр. Год сдачи: 2007 Стоимость: 400 руб. Просмотров: 658 | | |
Оглавление
Введение
Литература
Заказать работу
:
- Создание записей.
- Создание массивов записей
- Создание процедур
- Создание функций
- Создание меню
{ Контрольная работа.
Работа с изданиями журналов
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;
IndexJou
al: 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;
"Turbo Pascal 7.0", Фаронов
"Turbo Pascal для школьников", Б.Б. Попов
После офорления заказа Вам будут доступны содержание, введение, список литературы*
*- если автор дал согласие и выложил это описание.