Лабораторная работа № 3

Лабораторная работа №3

Циклы, управляемые условиями

Выполнил: Проверил:

студент группы ИС-15-1(1) старший преподаватель

Лучников В.А.

Пупкин В.И.

«___»_____________2015г

Иркутск 2015

Лабораторная работа № 3

Вариант 10

Тема: Программирование алгоритмов циклической структуры.

Цель работы: Освоить программирование циклических алгоритмов с циклами, управляемыми условиями: циклами с предусловиями и циклами с постусловиями.
Освоить программирование циклических алгоритмов с вложенными циклами. Освоить методику тестирования программ.

1. Вычислить значения суммы ряда S при заданных с консоли начальном и конечном значениях аргумента x(x_nach, x_kon), шаге его изменения delta_x и точности вычислений eps. Вычисленные значения ряда сравнить со значениями заданной функции f(x). Результаты вычислений вывести в виде таблицы с заголовком.

2. Схема алгоритма решения задачи:

t=x s=t n=1

t= s=s+t n=n+1

3. Код программы

Program Variant_10;

Var x, s, f, x_nach, x_kon, delta_x, eps, t, q: Real;

n: Word;

i: integer;

Begin

WriteLn('Лабораторная работа №3');

WriteLn('Вариант №10');

WriteLn('ИС-13-1');

WriteLn('Петров Дмитрий');

WriteLn;

{ввод исходных данных}

WriteLn('Ввод исходных данных: ');

Write('x_nach=');

ReadLn(x_nach);

Write('x_kon=');

ReadLn(x_kon);

Write('delta_x=');

ReadLn(delta_x);

Write('eps=');

ReadLn(eps);

WriteLn;

{эхо-печать}

WriteLn('Для x=', x_nach: 0: 3, ' до ', x_kon: 0: 3, ' шаг=', delta_x: 0: 3, ' точность=', eps: 0: 5);

WriteLn;

WriteLn(' x n s f');

WriteLn('-----------------------------------');

x: =x_nach;

Repeat

t: =x;

s: =t;

n: =1;

f: =(exp(x)-Exp(-x))/2.0;