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

Програмирование в TurboPaskal 7.0

Отчет по лабораторной работе №4

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

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

Выполнил: ст. гр.  ТО-07 Цыренов Ж.Е.

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

Дата: 28.04.08

Задание 1.Составить программу  для табулирования функций f(x) и g(x) при изменении х от а до b с шагом h. В первой колонке печатать х, во второй - f(x), в третьей - g(x)

  и 

Решение:

Блок схема:

 

 

Program Fun1;

Var x,y,z,f,g,xgr,a,b,h:real;

Begin Writeln ('Введите a,b,h'); Readln(a,b,h); Writeln('a=',a:2:2,'  b=',b=2:2,'  h=',2:4); Writeln('________________________');

Writeln('x      f(x)         g(x)');

Writeln('________________________'); xgr:=b+0.01*h; x:=a; repeat  y:=sqrt(1-x*x); z:=sin(x/2); f:=(y+x)*z; g:=y-x*x*z; Writeln(x:2:3,   f:2:4,   g:3:4); x:=x+h;

until x>xgr

End.Ответ:

Введите a,b,h

0.1 0.15 0.01

a=0.10  b=FALSE  h=   2

________________________

x      f(x)         g(x)

________________________

0.1000. 0547 0.9945

0.110 0.0607 0.9933

0.120 0.0667 0.9919

0.130 0. 0728 0.9904

0.140 0. 0790 0.9888

0.150 0.0853 0.9870

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

   n=6

Решение:Program Pose1;

Var a0,a:real; i,n,k:integer;

Begin Writeln('Введите n,a0');

Readln(n,a0);

Writeln('Введено число вычисляемых элементов последовательности:',n:4);

Writeln('Начальное значение:',a0:4:3); k:=0; i:=1; a:=a0; while i<=n do begin a:=i*(2+a);

if a>500 then k:=k+1; i:=i+1; end; writeln('k=',k:4); end.

Ответ

Введите n,a0

6 -1

Введено число вычисляемых элементов последовательности:   6

Начальное значение:-1.000

k=   2

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

Решение:

Program Sum;