Лабораторная работа №8: «Итерационные циклические вычислительные процессы с управлением по индексу/аргументу и функции».
Цель работы: Решить предложенные задачи с использованием ИЦВП с управлением по индексу/аргументу и функции.
Используемое оборудование: ПК, Lazarus.
Задача 1.
1. Постановка задачи.
2. Математическая модель.
3. Блок-схема
4. Список идентификаторов.
Имя | Смысл | Тип |
R | Сопротивление | Real |
C | Емкость | Real |
ht | Шаг*время | Real |
e | Точность | Real |
t | Real | |
Uv | Real | |
K | R*C | Real |
Uvh | Real |
5. Код программы.
program z1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, Math;
var c, r, ht, e, t, Uv, k, Uvh:real;
begin
writeln ('Введите: C, R, ht, Uвх и точность');
readln (c, r, ht, Uv, e);
k:=r*c;
t:=0;
repeat
Uvh:=Uv*(1-exp(-t/k));
writeln ('t = ',t:0:2, 'Uвых = ',Uvh:0:6);
t:=t+ht;
until (abs(Uvh-Uv)<e);
readln;
end.
6. Результаты выполнения программы.