#

Наши услуги

Отзывы

Всё отлично! Спасибо.

19-01-2017

Как же достала эта писанина. Тонны бумаги. Спасибо. Выполнили работы хорошо и в сроки.

18-01-2017

Спасибо, что не кидаете с доработками. Работу дорабатывали два раза. Сдал хорошо.

05-01-2017

#


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

Узнать стоимость уникальной работы в компании Zaochnik.com

  • Самые низкие цены на рынке
  • 100% гарантия качества
  • Опыт работ более 10 лет
  • Официальный договор
  • Проверка на Антиплагиат
  • Соблюдения сроков
  • Соответсвие ГОСТу
  • Бесплатная доработка
  • Персональный менеджер

Исправьте, пожалуйста, информацию в отмеченных полях.

 
Название Тип Год сдачи Страниц ВУЗ, город Цена
Настройка сводного запроса по нескольким полям. Фильтрация записей перед вычислениями сводных значений Контрольная 2007 4 МТИ и ВТ(Москва) 500 Купить Заказать
оригинальную
Функциональное и логическое программирование Контрольная 2007 6 МГВРК(Минск) 500 Купить Заказать
оригинальную
4 программы на языке Basic Контрольная 2007 8 МГУ 500 Купить Заказать
оригинальную
Программа-конвектор из одной величины в другую (C#, XML) Контрольная 2007 2 в ВУЗах не сдавалась (писалась как тестовая программа) 500 Купить Заказать
оригинальную
Ответы к контрольному заданию № 4 по курсу «Программирование в среде Delphi» Контрольная 2006 20 ЗАОЧНЫЙ ТЕХНИКУМ МИФИ 500 Купить Заказать
оригинальную
Контрольная (Pascal) Контрольная 2007 1 КурскГТУ 500 Купить Заказать
оригинальную
Контрольная (Delphi) Контрольная 2007 1 КурскГТУ 500 Купить Заказать
оригинальную
Развивающая игра "Посчитай фигуры" Контрольная 2007 23 КурскГТУ 500 Купить Заказать
оригинальную
ООП в С++ (Borland C++ Builder) Контрольная 2008 1 КурскГТУ 500 Купить Заказать
оригинальную
Ассемблер (контрольная работа). Контрольная 2008 13 СибГУТИ 450 Купить Заказать
оригинальную