Программирование циклических вычислительных процессов с использованием операторов, реализующих базовые структуры цикла

ПРОГРАМИРОВАНИЕ В СРЕДЕ TURBOPASCAL 7.0

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

Вариант №2

Тема – программирование циклических вычислительных процессов с использованием операторов, реализующих базовые структуры цикла.

Цель работы – освоить на практике программирование простейших циклических процессов, используя для этого  операторы цикла, научиться отладке программ и подготовке с этой цель тестов.

Выполнил студент группы ТО-07

Магомедов Гаджи Сиражудинович

Проверил доц. каф. ИКТ Журов Г.Н..

Дата: 16.04.08

Задача 1. Составить программу для табулирования функций

 и  при x=1,5; 1,51; 1,52; 1,53; 1,54; 1,55; 1,56; 1,57; 1,58; 1,59; 1,6.

при заданном значении х и y. Напечатать значения х и у.

Указание. Программу составить двумя способами:

а) с помощью условного оператора;

б) с помощью оператора безусловного перехода.

Решение.

1. Анализ задачи.

Обозначим: а – начальное значение х;

b – конечное значение х; h – шаг изменения х;

xgr=b+h/2.

Тогда: a=1,5; b=1,6; h=0,01.

2. Тесты для проверки программы:

a=1,5; b=1,5; y=2.04727; z=-2.24084.

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

 

5. Программа:

Program Prog1;

Var

a,b,h,y,z,x,xgr:real;

Begin

WriteLn;

WriteLn('Введите a,b,h');

Read(a,b,h);

WriteLn;

WriteLn('a=',a:6:2,' b=',b:6:2,' h=',h:7:3);

WriteLn;

WriteLn('________________');

WriteLn('  x    y    z   ');

WriteLn('________________');

xgr:=b+0.5*h;

x:=a;

repeat

y:=(2*x*x-ln(x))*(2-x);

z:=EXP(x)*(x-2);

Writeln(x:7:1,y:10:5,z:10:5);

x:=x+h;

until x>xgr

END.

6. Вид печати:

a=  1.50 b=  1.60 h=  0.010

_______________________________

x           y              z

_______________________________

    1.5   2.04727  -2.24084

    1.5   2.03256  -2.21810

    1.5   2.01700  -2.19467

    1.5   2.00057  -2.17054

    1.5   1.98325  -2.14571

    1.6   1.96504  -2.12016

    1.6   1.94591  -2.09388

    1.6   1.92585  -2.06686

    1.6   1.90486  -2.03908

    1.6   1.88291  -2.01054

    1.6   1.86000  -1.98121

Задача 2. Элементы последовательности вычисляются рекуррентно по формуле . Составить программу для вычисления и печати числа элементов последовательности, удовлетворяющих неравенству , если ; а значения  изменяются от 1 до 10.

Решение.

1. Анализ задачи.

Пусть n – число вычисляемых элементов последовательности, к – число элементов, удовлетворяющих условию .

Тогда ,

к₀=0 – начальное значение к.

Исходные данные:, , n=10.

2. Тесты для проверки программы: