Составление программы для табулирования заданных функций

Программирование в среде Turbo Pascal 7.0

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

Вариант 1

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

Луковицкий Даниил Андреевич

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

Дата: 14.04.08

Задание 1.

Составить программу для табулирования функций f(x) и g(x) при изменении x от 0,1 до 3,6 с шагом 0,5. По формуле и

Блок схема:

 

                                          нет

                                                                  да

Программа:

program snip;

var

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

Begin

writeln ('vvedite a,b,h');

readln(a,b,h);

writeln ('                   ');

writeln ('     x         y         g       ');

writeln ('                   ');

xgr:=b+0.5*h;

x:=a;

repeat

 y:=0.5*sqr(sin(x));

 z:=2*x/(1+sqr(x))*ln(3+x);

 writeln (x:7:2,y:10:5,z:10:5);

 x:=x+h;

 until x>xgr

 end.

Результаты:

vvedite a,b,h

0.3 0.36 0.01

     x         y         g

   0.30   0.04367   0.65721

   0.31   0.04653   0.67704

   0.32   0.04948   0.69664

   0.33   0.05250   0.71599

   0.34   0.05561   0.73508

   0.35   0.05879   0.75392

   0.36   0.06205   0.77248

Задание2.

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

Блок-схема:

 

                                                                           нет

                                     да

                                            да

Программа:

program snip;

var

a0,a:real;

i,n,k:integer;

begin

writeln;

writeln ('vvedite n,a0');

readln (n,a0);

writeln;

writeln ('vvedeno 4islo vi4isliaemih elementov posledovatelnosti:', a0:6:1);

k:=0;

i:=1;

a:=a0;

while i<=n do begin

a:=a/2.0;

if a>1 then k:=k+1;

i:=i+1

end;

writeln;

writeln ('k=', k:4);

end.

Результаты:

vvedite n,a0

20 6

vvedeno 4islo vi4isliaemih elementov posledovatelnosti:   6.0

k=   2

Задание 3.

Используя формулу  составить программу для вычисления суммы 9-ти элементов этой последовательности.

Блок схема:

 

Решение:

program snip;

var