Шифр 01. Написать программу на языке Паскаль для решения следующей задачи. Все результаты должны выводится на экран и в файл

  • ID: 51662 
  • 8 страниц

Фрагмент работы:

Содержание

Задание 3

Блок-схемы 4

Результат работы программы 6

Листинг программы 7

Задание

Написать программу на языке Паскаль для решения следующей задачи. Все результаты должны выводится на экран и в файл.

Ток в электрической цепи описывается уравнением:

,

которое необходимо решить, найдя y(0.05), y(0.1),..,y(1) с помощью метода Рунге-Кутта второго порядка с коррекцией по средней производной. В дифференциальном уравнении k=3. По найденным значениям y определить количество тепла, выделяющееся на единичном сопротивлении за единицу времени по формуле с помощью метода трапеций.

Блок-схемы

Общая блок-схема программы

Метод Рунге-Кутта 2го порядка с коррекцией по средней

RK2 (x:massiv; var y:massiv);

Метод Симпсона

Simps: real;

Результат работы программы

Вывод на экран:

Содержимое файла result.txt:

Решение диф.уравнения:

--------------------------------------------------------------------------

Листинг программы

Uses Crt;

Const h=0.05;

k=3;

n=21;

Q:=Simps;

writeln('Количество теплоты на ед. за ед. времени:',Q:5:4);

writeln(f,'Количество теплоты на ед. за ед. времени:',Q:5:4);

close(f);

readln;

END.