Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
1 / 1 / 0
Регистрация: 19.06.2010
Сообщений: 18
1

Массивы 5з

21.06.2010, 00:47. Просмотров 459. Ответов 4
Метки нет (Все метки)


Вот еще одна задачка с моего варианта...
Дана последовательность х1,х2,…,хn. Найти номер элемента, который отличается от среднего арифметического значения элементов последовательности на минимальную величину.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.06.2010, 00:47
Ответы с готовыми решениями:

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai
Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы a и b, элементы...

Даны массивы A(8), F(8),Q(8). Сформировать массивы С(8), каждый элемент которого вычисляется по формуле
uses crt; type mas=array of integer; var A,F,Q,C:mas; i,s:integer; begin clrscr; ...

Упорядочить массивы по по убыванию, потом соединить массивы в один упорядоченный массив
Начала писать, запуталась Даны два одномерных массива состоящие из 10 целых чисел. Упорядочить...

Табулирование функции и поиск данных. Одномерные массивы. Двумерные массивы
Вычислить сумму первых четырех отрицательных элементов. В соответствии с п. 5.16 правил...

4
131 / 127 / 50
Регистрация: 28.04.2010
Сообщений: 929
21.06.2010, 01:20 2
не уверен, что работает, подправь ,если что

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses crt;
const n=4;
var
a:array[1..n] of integer;
razn:array[1..n] of real;
sr,i,ielem:integer;
min,sred:real;
begin
clrscr;
randomize;
sr:=0;
for i:=1 to n do
    begin
     a[i]:=random(30);
     write(a[i]:4);
     sr:=sr+a[i];
    end;
    sred:=sr/n;
    for i:=1 to n do
      razn[i]:=a[i]-sred;
   min:=razn[1];
   for i:=2 to n do
 
   if razn[i]>min then
    begin
    min:=razn[i];
   ielem:=i;
   end;
   writeln;
   writeln(sred:4:0);
   for i:=1 to n do
   write(razn[i]:4:0);
   writeln;
   write(ielem);
   readkey;
end.
1
Модератор
62900 / 46930 / 32344
Регистрация: 18.05.2008
Сообщений: 113,713
21.06.2010, 08:04 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    sr,mn:real;
    n,i,k:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
sr:=0;
for i:=1 to n do
 begin
  a[i]:=10*random;
  sr:=sr+a[i];
  write(a[i]:0:2,' ');
 end;
sr:=sr/n;
writeln;
writeln;
k:=1;
mn:=abs(a[1]-sr);
for i:=1 to n do
if abs(a[i]-sr)<mn then
 begin
  mn:=abs(a[i]-sr);
  k:=i;
 end;
write('Среднее=',sr:0:2,' номер элемента=',k,'  разность=',abs(sr-a[k]):0:2);
readln
end.
1
1 / 1 / 0
Регистрация: 19.06.2010
Сообщений: 18
21.06.2010, 18:36  [ТС] 4
А мне сказали делай так...... и вот..... чета несчитает она....... все время 11.... и выходит....
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Program M5;
const n=11;
type t=array [1..n] of integer;
var a:t; s:real; min:real; ni,i:integer;
Procedure input (var a:t);
 begin
   for i:=1 to n do
   begin
     write ('a[',i,']=');
     readln (a[i]);
   end;
 end;
Procedure obr1(a:t; var s:real);
  begin
    s:=0;
    for i:=1 to n do
     s:=s+a[i];
     s:=s/n;
  end;
Procedure obr2(a:t; s:real; var ni:integer);
 var min:real;
 begin
  min:=abs(s-a[i]);
  i:=1;
  for i:=2 to n do
  if abs(s-a[i]) < min
   then min:=abs(s-a[i]);
    ni:=i;
 end;
 begin {main}
 input (a);
 obr1(a,s);
 obr2(a,s,ni);
 writeln('nomer=', ni);
 readln;
end.
0
Миниатюры
Массивы 5з  
Модератор
62900 / 46930 / 32344
Регистрация: 18.05.2008
Сообщений: 113,713
21.06.2010, 19:04 5
Неужели готовое переписать без ошибок так трудно?
Вы хоть думайте чуть-чуть когда пишете.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Procedure obr2(a:t; s:real; var ni:integer);
var min:real;
begin
 min:=abs(s-a[1]);
 ni:=1;
 for i:=2 to n do
 if abs(s-a[i]) < min then 
   begin
     min:=abs(s-a[i]);
     ni:=i;
   end;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.06.2010, 19:04

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Массивы. Циклические алгоритмы (Заполнить массивы случайными числами, лежащими в интервале 0 до 100)
Доброго дня, уважаемые форумчане, помогите пожалуйста решить задание. Заполнить массивы случайными...

Указатели и массивы. Индексация с помощью указателей. Передача массивов в функции. Динамические массивы (обработка матриц)
Для каждого элемента , bij, i= 1,...,n , j=1,...,n определяется свой многоугольник...

Файлы. Компоненты - массивы чисел. Переформировать файл, где сначала идут массивы с положительными макс. элементами
Здравствуйте!! я пишу такую задачу: нужно написать две программы, одна из них создает файл, где...

Структуры, массивы, указатели, динамические массивы структур
Помогите с решением задачи (прикрепляю условие). Заранее спасибо.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.