Пример готовой контрольной работы по предмету: Программирование
Содержание
Язык Pascal
Решенная задача.
Содержание:
- — Создание записей.
- Создание массивов записей
- Создание процедур
- Создание функций
- Создание меню
Выдержка из текста
{ Контрольная работа.
Работа с изданиями журналов
29/03/2007
}
program program 10;
- 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;
Список использованной литературы
«Turbo Pascal 7.0», Фаронов
«Turbo Pascal для школьников», Б.Б. Попов
