Читать диплом по всему другому: "Построение графиков переходного процесса в электрических цепях" Страница 1

(Назад) (Cкачать работу)

КУРСОВАЯ РАБОТА

по дисциплине «ИНФОРМАТИКА»

на тему

«Построение графиков переходного процесса в электрических цепях» План

. Аннотация

. Индивидуальное задание

. Пояснительный текст

. Распечатка текста паскаль программы

. Распечатка файла с исходными данными

. Распечатка файла с результатами счёта

. Графики переходного процесса, построенные паскаль - программой

. Графики переходного процесса, построенные в Microsoft Excel

Список литературы

Выводы 1. Аннотация Данная курсовая работа написана для построения графиков переходного процесса в электрической цепи, заданной электрической схемой. Она содержит мультимодульную программу расчёта и построения графиков переходного процесса. Для сравнения с графиками, построенными с помощью Borland Pascal 7.0, графики были построены с помощью Microsoft Excel. 2. Индивидуальное задание .1 Электрическая схема На схеме изображены:

1) источник питания, электродвижущая сила которого равна Е;

2) ключ, для замыкания цепи;

3) конденсатор, электроемкость которого равна С;

4) катушка индуктивности, индуктивность которой равна L;

5) резистор, сопротивление которого равно r. 2.2 Расчетные соотношения

Основные формулы:

Вспомогательные формулы:

график переходный электрический pascal excel 3. Пояснительный текст .1 Краткое описание работы программного обеспечения Мультимодульная программа производит расчёт и строит графики переходного процесса в электрической цепи.

Принцип работы. Программа имеет помимо головной программы несколько процедур и функций. Сначала функция Init выполняет инициализацию графического режима. Затем с помощью функции OpenForRead открывается файл для чтения, здесь же выбирается один из двух способов ввода данных: с клавиатуры или с файла. Если файл не был открыт, то программа завершает работу; если же был открыт, то с помощью процедуры ReadFile вводятся данные (напряжение (U), электроемкость (C), индуктивность (L) и сопротивление (r)). Далее производится вычисление i(t) и uc(t) в процедуре Vychislenie. Потом программа открывает файл для записи, это выполняется с помощью функции OpenForWrite. В этой функции выбирается один из двух способов для записи данных: экран, файл, либо вообще не записывать данные. В случае если файл был открыт, производится вывод расчетных значений в файл. В противном случае следует запрос на построение графиков. Если выбрали построение графиков, то процедура Risuem_Graphic начнёт строить графики. После этого процедура CloseFile закрывает файл с данными. Конец программы. 3.2 Укрупнённая блок-схема4. Распечатка текста паскаль программы Program KURSOVAYA;

uses graph, crt;= 1000; strok = 3;= array[1..strok, 1..kolvo] of real;= array[1..strok] of string[5];: char;, L, C, E: real;: znach;_: text;: boolean;: integer;, ym, Ox, Oy: integer;, mashtab, j: integer;: TNadpis;

init: byte;a, mgr, error: integer;: = detect;(a, mgr, 'D:\bgi');: = graphresult;error grok then begin('Ошибка ');: = 1;init: = 0;;

risuem_osi (kletka,y1,x1,maxx,maxy:integer);x, y: integer;;(15);(3,0,0);(magenta);x:=0 to round(maxx/ kletka) do(kletka*x+x1,maxy,kletka*x+x1,0);(x1-kletka*x,maxy,x1-kletka*x,0);;y: = 0 to round(maxy/ kletka) do(0,y1-y*kletka,maxx,y1-y*kletka);(0,y1+y*kletka,maxx,y1+y*kletka);;(0,0,1);(1);

{Ось X} {Ось Y}(0,y1,maxx,y1); line (x1,0,x1,maxy);(maxx,y1,maxx-5,y1-4); line (x1,0,x1-4,5);(maxx,y1,maxx-5,y1+4); line (x1,0,x1+4,5);(maxx-10,y1-10,'t');(x1-10,y1+4,'0') ;;

risuem_grafic (var fmas:znach;y0,x0,xmax,m,k,kolvo:integer;fNadpis:TNadpis);xt1,yt1,yt:integer; v, q, nom: integer;,st: string; kletka_y: real;, chislox,t1:real; max, min: real;:= -maxint; min:= maxint; nom:=0;nom:=2 to kolvo doq:=1 to k dofmas[nom,q] > max then max: = fmas[nom,q];fmas[nom,q] < min then min: = fmas[nom,q];;abs(round(fmas[nom,1]-min)) > abs(round(max-fmas[nom,1]))max: =

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