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

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

Лабораторная работа № 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;

--> ЧИТАТЬ ПОЛНОСТЬЮ <--