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

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

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