Реферат: Программирование элементов разветвляющейся структуры
ПЕНЗЕНСКИЙГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
Кафедра МО и ПЭВМ
Лабораторная работа № 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.
Блок-схема
/>