Задача 1. Лабораторная работа №8: «Итерационные циклические вычислительные процессы с управлением по индексу/аргументу и функции»

Лабораторная работа №8: «Итерационные циклические вычислительные процессы с управлением по индексу/аргументу и функции».

Цель работы: Решить предложенные задачи с использованием ИЦВП с управлением по индексу/аргументу и функции.

Используемое оборудование: ПК, Lazarus.

Задача 1.

1. Постановка задачи.

3. Блок-схема

4. Список идентификаторов.

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. Результаты выполнения программы.