Дипломная работа

от 20 дней
от 9999 рублей

Курсовая работа

от 10 дней
от 1999 рублей

Реферат

от 3 дней
от 699 рублей

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

от 3 дней
от 99 рублей
за задачу

Диссертация

Сроки и стоимость индивидуальные

Главная - Программирование - Контрольная работа по Паскалю (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 для школьников", Б.Б. Попов

Форма заказа

Напрмер, Экономика

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

Название Цена
Настройка сводного запроса по нескольким полям. Фильтрация записей перед вычислениями сводных значений 500
Функциональное и логическое программирование 500
4 программы на языке Basic 500
Игра пятнашки (15) - С 500
Элемент UserControl (VB 6.0) - анимированный баннер 500
Элемент UserControl (Visual Basic 6.0) - столбиковая диаграмма 500
Учет выдачи гарантийных талонов (VB 6.0) 500
Программа-конвектор из одной величины в другую (C#, XML) 500
Ответы к контрольному заданию № 4 по курсу «Программирование в среде Delphi» 500
Контрольная (Pascal) 500

© 2010-2017, Все права защищены. Принимаем заказы по всей России.