Вход

Расчет на ЭВМ характеристик входных и выходных сигналов электрических цепей

Рекомендуемая категория для самостоятельной подготовки:
Курсовая работа*
Код 321165
Дата создания 08 июля 2013
Страниц 19
Мы сможем обработать ваш заказ (!) 29 марта в 12:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
1 310руб.
КУПИТЬ

Содержание

Оглавление
Постановка задачи
Текст программы
Таблица идентификаторов
Таблица описания пользовательских подпрограмм
Пояснения к тексту программы
Контрольный расчет
Выполнение программы при рабочем наборе исходных данных.

Введение

Расчет на ЭВМ характеристик входных и выходных сигналов электрических цепей

Фрагмент работы для ознакомления

{---------------------------------------------------------------------------}
{Описание процедуры записи массивов входного и выходного сигналов}
{на диск в файлы с именами f1.prn и f2.prn}
procedure WRITEINFO(n: integer;
uin, uout:ArrayType);
var
f1, f2: text;
i: integer;
begin
assign(f1,'f1.prn'); {связывание и открытие файлов}
assign(f2,'f2.prn');
rewrite(f1);
rewrite(f2);
for i:=1 to n do
begin
writeln(f1,uin[i]:7:3); {Запись в файлы}
writeln(f2,uout[i]:7:3);
end;
close(f1); {Закрытие файлов}
close(f2);
end; {of procedure WRITEINFO}
{---------------------------------------------------------------------------}
{Процедура вывода на экран результатов работы программы}
procedure REZULT(n: integer;
kl: byte;
uin, uout:ArrayType);
var
i: integer;
begin
if kl=1 {признак вывода результатов на экран монитора}
then
begin
writeln('Отсчеты входного сигнала');
for i:=1 to n do
writeln('uin[',i,']=',uin[i]:7:4);{вывод входных отсчетов}
writeln('Отсчеты выходного сигнала');
for i:=1 to n do
writeln('uout[',i,']=',uout[i]:7:4);{вывод выходных отсчетов}
writeln('Макс. значение вых. сигнала=',MAXI(n,uout):7:4);
end
else
begin
writeln('Программа закончила свою работу. Массивы');
writeln('входных и выходных отсчетов сформированы');
writeln('и записаны в файлы f1.prn и f2.prn соответственно');
end;
end; {of procedure REZULT}
var
n: integer;
kl: byte; {глобальные параметры напрямую недоступные}
{ни одной из выше описанных процедур}
tn, tk, U0, U1, a, b, Uin1: real;
uin, uout: ArrayType;
BEGIN {of main}
Clrscr;
Data(n, kl, tn, tk, U0, U1, a, b, Uin1);
U_IN(n, tn, tk, U0, U1, uin);
U_OUT(n, a, b, Uin1, uin, uout);
WRITEINFO(n, uin, uout);
Rezult(n, kl, uin, uout);
readln
END. {of main}
Таблица идентификаторов
Обозначение в задаче
Идентификатор
Назначение
n
Текущее значение количества отсчетов входного сигнала
kl
Признак – ключ, определяющий режим работы kl=1, если вывод на монитор, kl=0, если вывод в файл на диск
Uвх(t)
uin
Массив для хранения отсчетов входного сигнала
Uвых(t)
uout
Массив для хранения отсчетов выходного сигнала
U0
U0
Параметр входного напряжения Uвх(t).
U1
U1
Параметр входного напряжения Uвх(t).
t
t
Текущий момент времени
det
Временной интервал между двумя соседними отсчетами входного сигнала
i
Счетчик цикла
a, b, Uвх1
a, b, Uin1
Параметры передаточной характеристики
Max
Переменная для хранения максимального значения выходного сигнала
f1, f2
Логические имена файлов
Таблица описания пользовательских подпрограмм
Подпрограмма
Очень похожие работы
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
bmt: 0.005
© Рефератбанк, 2002 - 2024