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

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

Кафедра МО и ПЭВМ

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

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

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

Пахомов В. Е.

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

2003

Задание А.

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

Программа:

Uses crt;

Function koren(X : real; power : integer) : real;

Var

I : integer;

Begin

if power mod 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 then writeln(‘Значения функции ‘, 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.

Блок-схема


1 Star2 Stars3 Stars4 Stars5 Stars (No Ratings Yet)
Loading...
Программирование элементов разветвляющейся структуры