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

Готовая контрольная работа

на тему:

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









Цена: 750 руб.

Номер: V794

Предмет: Программирование

Год: 2007

Тип: контрольные

Отзывы

Юлианна В. 09.04.2018
Мы стали Магистрами)))
Николай А. 01.03.2018
Мария,добрый день! Спасибо большое. Защитился на 4!всего доброго
Инна М. 14.03.2018
Добрый день,хочу выразить слова благодарности Вашей и организации и тайному исполнителю моей работы.Я сегодня защитилась на 4!!!! Отзыв на сайт обязательно прикреплю,друзьям и знакомым  буду Вас рекомендовать. Успехов Вам!!!
Ольга С. 09.02.2018
Курсовая на "5"! Спасибо огромное!!!
После новогодних праздников буду снова Вам писать, заказывать дипломную работу.
Ксения 16.01.2018
Спасибо большое!!! Очень приятно с Вами сотрудничать!
Ольга 14.01.2018
Светлана, добрый день! Хочу сказать Вам и Вашим сотрудникам огромное спасибо за курсовую работу!!! оценили на \5\!))
Буду еще к Вам обращаться!!
СПАСИБО!!!
Вера 07.03.18
Защита прошла на отлично. Спасибо большое :)
Яна 06.10.2017
Большое спасибо Вам и автору!!! Это именно то, что нужно!!!!!
Спасибо, что ВЫ есть!!!
Наталья 06.02.2018
Я защитилась на ОТЛИЧНО!!
Спасибо всем огромное!))
Наталья 29.03.2018
Вы молодцы!!Буду Вас рекомендовать своим друзьям!!!

Поделиться

Введение
Содержание
Литература
{ Контрольная работа.
Работа с изданиями журналов
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;
IndexJou
al: 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;
750 руб.

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

Контрольная работа по теории автоматического управления 

Задание: 1)Вычертить электрическую принципиальную схему и привести числовые параметры схемы; 2)записать дифференциальное уравнение зависимостей между током и напряжением цепей схемы ...

Контрольная работа по русскому языку - Культура речи (25 заданий). 

10. Замените формы единственного числа на формы множественного числа и поставьте ударение.
Паспорта, договоры, векселя, профессора, штемпеля, офицеры, ректоры, торты, повара, инспектора, конструкторы, ...

Контрольная работа по стратегическоум менеджменту. 

1.10. Охарактеризуйте стадию процесса оценки стратегической ситуации - анализ отклонений от запланированного состояния.

Процесс оценки стратегической ситуации включает три стадии (этапа): сбор ...

Поиск по базе выполненных нами работ: