Реферат: Программирование элементов разветвляющейся структуры

ПЕНЗЕНСКИЙГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

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

Тема: «Программирование элементов разветвляющейсяструктуры»

Выполнил:студент гр. 02ТП1

ПахомовВ. Е.

Проверил:Ракова А. Н.

2003

ЗаданиеА.

Определить во сколько разсреднее геометрическое чисел натурального ряда кратных трём в диапазоне от 1 до31 превышает среднее арифметическое этих чисел.

Программа:

uses crt;

functionkoren(X: real; power: integer): real;

var

I: integer;

begin

     if powermod 2 <> 0 then power := power * 2;

     for i :=1 to power div 2 do

         begin

             X := sqrt(X);

         end;

     koren :=X;

end;

var

n,i: integer;

avs, avg, sum,gem :real;

begin

i := 1;

n := 0;

sum :=0;

gem := 1;

while i <31 do

      begin

           sum:= sum + i;

           gem:= gem * i;

           i:= i + 3;

          inc(n);

      end;

writeln('Сумма = ',Sum:3:4,'Производные = ', gem:3:4);

avs := sum /n;

avg :=koren(gem,n);

{writeln('avs= ',avs:3:4,' avg = ', avg:3:4,' n = ',n );}

writeln('Ответ = ',avg/avs:3:4,' raz');

readkey;

end.

Блок-схема

/>

Задание Б.

Произвестивычисление значения функции:

/>

в диапазоне значений хот /> до />, изменяющегося с шагом h. На печать выводить только положительные значенияфункции, при соответствующих значениях аргумента.

Программа:

uses crt;

var

h,n,e,i,y: real;

begin

    clrscr;

    writeln('Введите значение нижнего предела Х ');

    readln(n);

    writeln('Введите значение верхнего предела Х');

    readln(e);

    writeln('Введите значение шага ');

    readln(h);

     i := n;

     while i < e do

            begin

                 y :=(i*i*i+sin(sqr(i)))/(1+sqrt(abs(i)))*cos(i);

                 i := i + h;

                 if y > 0 then writeln('Значения фукции',y:4:5,' x = ',i:4:4);

            end;

    readkey;

end.

Uses crt;

Var

h, n, e, i, x,y:real;

begin

clrscr;

writeln('Введите значениенижнего предела X');

readln(n);

writeln('Введите значениевврехнего предела X');

readln(e);

writeln('Введите значениешага');

readln(h);

i:=n;

repeat

y:=(i*i*i+sin(sqr(i)))/(1+sqrt(abs(i)))*cos(i);

i:=i+h;

if y>0 thenwriteln('Значения функции ', y:4:5,' x=',i:4:4);

until i>e;

readkey;

end.

uses crt;

Var

y :real;

i, n, e:integer;

Begin

clrscr;

writeln('Введитезначение нижнего предела X');

readln(n);

writeln('Введитезначение верхнего предела X');

readln(e);

for i:=n to e do

begin

y := (i*i*i+sin(sqr(i)))/(1+sqrt(abs(i)))*cos(i);

if y>0 then writeln('Значения функции',y:3:3);

end;

readkey;

end.

Блок-схема

/>