Автор работы: Пользователь скрыл имя, 30 Ноября 2011 в 09:54, лабораторная работа
Дан одномерный массив А(N). Если все элементы этого массива (вектора) образуют геометрическую прогрессию, то найти среднее арифметическое элементов вектора кратных пяти.
Постановка задачи 3
Распечатка программы 3
Распечатка результатов 4
Контрольный просчет 4
МОСКОВСКИЙ
ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ЭКОНОМИКИ,
СТАТИСТИКИ И ИНФОРМАТИКИ.
КАФЕДРА
МАТЕМАТИЧЕСКОГО ОБЕСПЕЧЕНИЯ И
АДМИНИСТРИРОВАНИЯ
ЛАБОРАТОРНАЯ РАБОТА № 2
ОБРАБОТКА
ОДНОМЕРНЫХ МАССИВОВ (ВЕКТОРОВ).
Выполнил студент группы ДМК – 101
Преподаватель:
Сорока Р.И.
Москва 2011.
Оглавление:
Постановка задачи 3
Распечатка программы 3
Распечатка результатов 4
Контрольный
просчет 4
Дан одномерный
массив А(N). Если все элементы этого массива
(вектора) образуют геометрическую прогрессию,
то найти среднее арифметическое элементов
вектора кратных пяти.
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.
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