Программирование алгоритмов разветвляющихся и с заданным числом повторений циклических структур на алгоритмическом языке TURBO PASCAL

БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ, ТЕХНОЛОГИИ И УПРАВЛЕНИЯ

САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

КАФЕДРА: «УПРАВЛЕНИЕ И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ»

ЛАБОРАТОРНАЯ РАБОТА 2

Дисциплина: Программирование и основы алгоритмизации

Программирование алгоритмов разветвляющихся и с заданным числом повторений циклических структур на алгоритмическом языке TURBO PASCAL.

Выполнил ст. гр. УИТ-21

.

Проверил

2006

Цель: разработка алгоритмов с  разветвляющей и циклической с заданным числом повторений структур.

         Задание: вычислить на ЭВМ значение переменных

 0                            x < -1

z = 1- abs(x)        -1<= x <=1

z = 0                             x >1

program lab2(input,output);

var z,x:real;

begin

write('x');

read(x);

if x<-1 then z:=0

        Else if x>=-1 then z:=1-abs(x)

                      else if x<=1 then z:=1-abs(x)

                                   Else if x>1 then z:=0;

writeln('z=',z:8:6);

end.

X1= -2        Z1= 0

X2= 0.4      Z2= 0.6

X3= 2         Z3= -1

Блок – схема алгоритма:

1

 

2

 

3                                   нет                 5                                нет

 

4                        да                              6                      да                            7

 

                                                            8

 

                                                  9

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

Задание: вычислить и вывести на экран значение заданной функции

Решение:

 при x>1.3

 при x=1.3

 при x>1.3

a=1.5

Δx=0.1; х є [0.8;2

Обозначения:                                                     

 x₀=0.8; xk=2; deltax=0.1                                                               

program Lab_3(input,output);

Uses Crt;

Const a=0.5;deltax=0.1;

Var x,y,xo,xk,d:real;

n,i:integer;

BEGIN

Clrscr;

Writeln('Write xo,xk');

Read(xo,xk);

Writeln('tablisa funktionY(x)');

Writeln('   x   y(x)   ');

d:=(xk-xo)/deltax;

n:=trunc(d)+1;

x:=xo;

For i:=1 to n do

begin

if x<1.3 then y:=PI*SQR(x)-7/SQR(x)

else if x=1.3 then y:=a*exp(3*ln(x))+7*SQRT(x)

  else y:=LN(x+7/SQRT(x));

  Writeln(x:10:3, '   ',y:10:3);

  x:=x+deltax;

  end;

      END.

Блок – схема алгоритма:

       1

 

             2

 

       3

 

       4

 

       5

 

x=x0

       6

 

       7         

 

       8                              нет       10                        нет

 

                           да                                     да

y:=LN(x+7/SQRT(x));

y:=a*exp(3*ln(x))+7*SQRT(x)

y:=PI*SQR(x)-7/SQR(x)

        9                                          11                                   12

       13

 

        14

        15

Министерство Образования РФ

Саратовский Государственный Технический Университет

Балаковский Институт Техники Технологии и Управления

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

Программирование алгоритмов разветвляющихся и с заданным числом повторений циклических структур на алгоритмическом языке TURBO PASCAL.

Выполнил:

                                                                                         ст. группы ПГС – 11

                                                                                         Гнедов Д.П.

                                                                                         Проверила:

                                                                                         Сергеева Е. К. 

Балаково 2006