|
Реферат: Программирование элементов разветвляющейся структуры (Компьютеры)
ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
Кафедра МО и ПЭВМ
Лабораторная работа № 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.
Блок-схема
Задание Б.
Произвести вычисление значения функции:
[pic]
в диапазоне значений х от [pic] до [pic], изменяющегося с шагом 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.
Блок-схема
-----------------------
avs := sum / n;
avg := koren(gem,n);
I=1;31;3
i := 1;
n := 0;
sum :=0;
gem := 1;
avg/avs
sum := sum + i;
gem := gem * i;
i := i + 3;
inc(n);
Конец
Начало
y,x
y>0
n,e,h
I=1;e;h
i := n;
y := (i*i*i+sin(sqr(i)))/(1+sqrt(abs(i)))*cos(i);
Конец
Начало
Реферат на тему: Программирование элементов разветвляющейся структуры
ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
Кафедра МО и ПЭВМ
Лабораторная работа № 7
Тема: «Программирование элементов разветвляющейся структуры»
Выполнил: студент гр. 02ТП1
Пахомов В. Е.
Проверил: Ракова А. Н.
2003
Задание А.
Записать в массив Y(20) квадраты чисел находящиеся в массиве X(20).
Программа:
uses crt;
var
i : integer;
a : array[1..20] of integer;
c : array[1..20] of integer;
begin
clrscr;
writeln('Первый массив : ');
for i := 1 to 20 do
begin
a[i] := random(30);
write (' ', a[i]);
end;
writeln;
for i := 1 to 20 do
c[i] := a[i] * a[i];
writeln('Получившийся массив : ');
for i := 1 to 20 do
write (' ', c[i]);
writeln;
readkey;
end.
Блок-схема
Задание Б.
Найти наибольшшее число среди отрицательных элементов массива B(35)
Программа:
uses crt;
var
ar : array[1..35] of integer;
max, i : integer;
begin
clrscr;
writeln;
randomize;
for i := 1 to 35 do
begin
ar[i] := random(60)-30;
write(' ', ar[i]);
end;
max := -maxint;
for i := 1 to 35 do
if ar[i] < 0 then
begin
if max < ar[i] then
max := ar[i];
end;
writeln;
writeln('Наибольшее число : ', max);
readkey;
end.
Блок-схема
-----------------------
c[i]
c[i] := a[i] + b[i]
I=1;16;1
a[i], b[i]
I=1;16;1
a[i] := random(30)
b[i] := random(30)
Конец
ar[i] < 0
Max < ar[i]
max := - maxint
Randomize;
max
max := ar[i]
I=1;35;1
ar[i]
I=1;35;1
ar[i] := random(60)-30
Конец
Начало
Начало
| |
