Главная - IT - Программирование - Контрольная работа по Паскалю (Pascal) №10

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

  • Тема: Контрольная работа по Паскалю (Pascal) №10
  • Автор: Александр Александрович
  • Тип работы: Контрольная
  • Предмет: Программирование
  • Страниц: 3
  • Год сдачи: 2007
  • ВУЗ, город: Город Москва
  • Цена(руб.): 500 рублей

Купить
Заказать оригинальную работу


Выдержка

{ Контрольная работа.
Работа с изданиями журналов
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
Решенная задача.

Содержание:

- Создание записей.
- Создание массивов записей
- Создание процедур
- Создание функций
- Создание меню

Литература

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

Купить
Заказать оригинальную работу


Похожие работы

Название Тип Год сдачи Страниц ВУЗ, город Цена
Настройка сводного запроса по нескольким полям. Фильтрация записей перед вычислениями сводных значений Контрольная 2007 4 МТИ и ВТ(Москва) 500 Купить Заказать
оригинальную
Функциональное и логическое программирование Контрольная 2007 6 МГВРК(Минск) 500 Купить Заказать
оригинальную
4 программы на языке Basic Контрольная 2007 8 МГУ 500 Купить Заказать
оригинальную
Игра пятнашки (15) - С Контрольная 2003 0 СГТУ 500 Купить Заказать
оригинальную
Элемент UserControl (VB 6.0) - анимированный баннер Контрольная 2004 0 СГТУ (Саратов) 500 Купить Заказать
оригинальную
Элемент UserControl (Visual Basic 6.0) - столбиковая диаграмма Контрольная 2004 0 СГТУ (Саратов) 500 Купить Заказать
оригинальную
Учет выдачи гарантийных талонов (VB 6.0) Контрольная 2004 0 СГТУ (Саратов) 500 Купить Заказать
оригинальную
Программа-конвектор из одной величины в другую (C#, XML) Контрольная 2007 2 в ВУЗах не сдавалась (писалась как тестовая программа) 500 Купить Заказать
оригинальную
Ответы к контрольному заданию № 4 по курсу «Программирование в среде Delphi» Контрольная 2006 20 ЗАОЧНЫЙ ТЕХНИКУМ МИФИ 500 Купить Заказать
оригинальную
Контрольная (Pascal) Контрольная 2007 1 КурскГТУ 500 Купить Заказать
оригинальную