Обработка одномерных массивов

Автор работы: Пользователь скрыл имя, 30 Ноября 2011 в 09:54, лабораторная работа

Описание

Дан одномерный массив А(N). Если все элементы этого массива (вектора) образуют геометрическую прогрессию, то найти среднее арифметическое элементов вектора кратных пяти.

Содержание

Постановка задачи 3
Распечатка программы 3
Распечатка результатов 4
Контрольный просчет 4

Работа состоит из  1 файл

лаба 2.doc

— 99.00 Кб (Скачать документ)

МОСКОВСКИЙ  ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ЭКОНОМИКИ, СТАТИСТИКИ И ИНФОРМАТИКИ. 

КАФЕДРА МАТЕМАТИЧЕСКОГО ОБЕСПЕЧЕНИЯ И  АДМИНИСТРИРОВАНИЯ ИНФОРМАЦИОННЫХ СИСТЕМ. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

ЛАБОРАТОРНАЯ  РАБОТА № 2

ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ (ВЕКТОРОВ). 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Выполнил  студент группы  ДМК – 101

Преподаватель: Сорока Р.И. 
 
 
 

Москва 2011.

Оглавление: 

    Постановка  задачи 3

    Распечатка  программы 3

    Распечатка  результатов 4

    Контрольный просчет 4 
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     

  1. Постановка задачи.
 

Дан  одномерный  массив А(N). Если все элементы этого массива (вектора) образуют геометрическую прогрессию, то найти среднее арифметическое элементов вектора кратных пяти. 

  1. Распечатка программы.
 

program lab2;

uses crt;

var

a:array[1..50] of integer;

i,n,num:integer;

c,rez:real;

f:boolean; 

begin

clrscr;

rez:=0;

num:=0;

f:=true; 

writeln('введите  количество членов массива');

readln(n);

writeln('введите  элементы массива');

for i:=1 to n do

read(a[i]); 

c:=a[2]/a[1]; 

for i:=2 to n do

if c <> (a[i]/a[i-1]) then f:=false; 

if f then

for i:=1 to n do

if a[i] mod 5 = 0 then begin rez:=rez+a[i]; num:=num+1; end; 

rez:=rez/num; 

if f then writeln('результат - ',rez:5:0) else

writeln('вектор - не  геометрическая прогрессия'); 
 

readln;

readln;

end. 
 
 
 
 
 
 
 

  1. Распечатка результатов.

 
 
 
 

  1. Контрольный просчет.
i A[i] rez num f
1 3 0 0 True
2 15 15 1 True
3 75 90 2 True
4 375 465 3 True
5 1875 2340 4 True

Rez:=2340 / 4 = 585

Информация о работе Обработка одномерных массивов