Содержание
Язык Pascal
Решенная задача.
Содержание:
— Создание записей.
— Создание массивов записей
— Создание процедур
— Создание функций
— Создание меню
Выдержка из текста
{ Контрольная работа.
Работа с изданиями журналов
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;
Список использованной литературы
«Turbo Pascal 7.0», Фаронов
«Turbo Pascal для школьников», Б.Б. Попов
С этим материалом также изучают
... документами на протяжении всего жизненного цикла: от создания, до их уничтожения. СПИСОК ЛИТЕРАТУРЫ 1.Коноплев Б. ... 32, 33, 34) «Звуковой постпродакшн».5.Севашко А.В. Звукорежиссура и запись фонограмм. Профессиональное руководство – М.: «Альтекс-А», ...
... В работе рассматриваются аспекты работы звукорежиссёра по записи чистового звука к фильму формата HDCAM-SR с ... обзор системы видеосъемки, анализ особенностей формата и способов записи звука в этом формате. Произведен анализ характеристик оборудования ...
... SR 62.1.2. Выбранное видеооборудование 72.2. Выбор аппаратуры записи звука 92.3. Синхронизация 103. СХЕМА РАСПОЛОЖЕНИЯ СЪЕМОЧНОГО ... системы видеосъемки, анализ особенностей формата и способов записи звука в этом формате.Сделаны выводы, насколько ...
... издания 332.1. История создания издания «Завтра» 332.2. Идеология издания «Завтра» 412.3. Черты оппозиционного мышления в издании 43Выводы ... порождаемое СМИ. Газета Коммерсант как тип издания: предметно-тематическое и жанровое своеобразие Теоретической ...
... Глава 2. Специфика газеты «Завтра» как оппозиционного издания 33 2.1. История создания издания «Завтра» 33 2.2. Идеология издания «Завтра» 41 2.3. Черты оппозиционного мышления ...
... журнал широкого профиля www.relga.ru 51.1 История создания издания 51.2 Кадровый состав редакции 51.3 Организация ... 12Глава 2. Характеристика типового текста статьи издания 132.1 Тематическая направленность 132.2 Актуальность 132.3 ...
Ищете образец курсовой работы по Visual Basic? Наше руководство поможет пошагово создать приложение с пользовательским интерфейсом и базой данных, детально разбирая ключевые концепции языка и принципы работы.
... различных классов.Главной целью курсового проекта является создание и тестирование класса, который бы мог ... name), findfileR(string ras) и findfile(string name, string ras)132.4.2.Метод findfile(double &date, bool foundation)142.5.Методы выделения ...
... бизнес-плане, под названием «Создание компьютерного клуба «Эксклюзив», ... 5. Работа с книжными изданиями. Для клиентов данного ... компьютерах, предоставление услуг Internet, запись CD-R. Учредителями клуба ... Business Plans. How to Write Them, How to Pitch ...
... разделе приведены библиографические записи изданий, отражающих практический опыт ... запись документа/ сост. Л.Р. Вахрушева. – Ижевск: Удмуртский университет, 2011. – 68 с.2. Колкова Н.И., Скипор Л.И. Моделирование интегрированной технологии создания ...
