Готовая контрольная работа
на тему:«Контрольная работа по Паскалю (Pascal) №10»
Цена: 750 руб.
Номер: V794
Предмет: Программирование
Год: 2007
Тип: контрольные
Отзывы
Вас беспокоит автор статьи Айжамал из Кыргызстана, моя статья опубликована, и в этом ваша заслуга. Огромная благодарность Вам за оказанные услуги.
Спасибо Вам за сотрудничество! Я ВКР защитила на 5 (пять). Огромное спасибо Вам и Вашей команде Курсовой проект.
Мы стали Магистрами)))
Мария,добрый день! Спасибо большое. Защитился на 4!всего доброго
Добрый день,хочу выразить слова благодарности Вашей и организации и тайному исполнителю моей работы.Я сегодня защитилась на 4!!!! Отзыв на сайт обязательно прикреплю,друзьям и знакомым буду Вас рекомендовать. Успехов Вам!!!
Курсовая на "5"! Спасибо огромное!!!
После новогодних праздников буду снова Вам писать, заказывать дипломную работу.
После новогодних праздников буду снова Вам писать, заказывать дипломную работу.
Спасибо большое!!! Очень приятно с Вами сотрудничать!
Светлана, добрый день! Хочу сказать Вам и Вашим сотрудникам огромное спасибо за курсовую работу!!! оценили на \5\!))
Буду еще к Вам обращаться!!
СПАСИБО!!!
Буду еще к Вам обращаться!!
СПАСИБО!!!
Защита прошла на отлично. Спасибо большое :)
Большое спасибо Вам и автору!!! Это именно то, что нужно!!!!!
Спасибо, что ВЫ есть!!!
Спасибо, что ВЫ есть!!!
Введение
Содержание
Литература
{ Контрольная работа.
Работа с изданиями журналов
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;
Работа с изданиями журналов
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. Охарактеризуйте стадию процесса оценки стратегической ситуации - анализ отклонений от запланированного ...
Поиск по базе выполненных нами работ:
Разделы по направлениям
Готовые дипломы по специальностям
Готовые работы по предметам