Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
Алина-19
0 / 0 / 0
Регистрация: 20.11.2010
Сообщений: 2
1

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

16.03.2011, 18:08. Просмотров 1525. Ответов 2
Метки нет (Все метки)

помогите пожалуйста)

в делфи используя компонент Memo и ListBox

Дан вектор В вещественных чисел. Получить новый вектор переписав в него элементы данного в обратном порядке. Найти среднее арифметическое его максимальной и минимальной компонент.

Если надо, то есть код записанный в паскале:
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
37
38
39
program zadacha_3;
 uses crt;
 var
 a: array [1..50] of integer;
 i,n,max,min,j,k:integer;
 y:real;
 
 begin
  clrscr;
  writeln ('Введите кол-во элементов в массиве');
  readln (n);
 for i:=1 to n do
  begin
   write ('a[',i,']=');
   readln (a[i]);
  end;
       writeln ('Новый массив ');
       for  i:=1 to (n div 2) do
       begin
        k:= a[i];
        a[i]:= a[n+1-i];
        a[n+1-i]:= k;
       end;
       for  i:=1 to n  do
       begin
        writeln ('a[',i,']= ',a[i]);
       end;
 max:=a[1];
 for i:=1 to n do
  if a[i] > max then
   max:=a[i];
   min:=a[1];
  for i:=1 to n do
 if a[i] < min then
 min:=a[i];
 y:=(max+min)*0.5;
 writeln ('Srednee arifmeticheskoe ego max i min component=', y:10:2);
 readln;
end.
 Комментарий модератора 
Для оформления программного кода следует использовать соответствующие теги. - Это требование правил форума. Например, для оформления кода Pascal надо выделить код и на панели редактирования сообщения нажать кнопку "PASCAL".
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.03.2011, 18:08
Ответы с готовыми решениями:

5. Обработка одномерных массивов
Составить программу для решения задачи. Вывести положительные элементы массива...

Обработка одномерных массивов
Составить перечень значений элементов одномерного целочисленного массива

Обработка одномерных массивов
Дан одномерный массив Xn. Найти количество элементов массива меньших, чем...

Циклическая обработка одномерных массивов
Никак не могу сделать. Помогите пожалуйста. В массиве t=(t1,t2,......,tn) ...

Обработка одномерных массивов с использованием подпрограмм
Для заданных значений X1,X2,...,Xn вычислить значение величины Y по формуле: ...

2
OverRush
4 / 4 / 2
Регистрация: 14.03.2011
Сообщений: 12
17.03.2011, 05:44 2
Лучший ответ Сообщение было отмечено как решение

Решение

Не знаю, зачем там листбокс. Необходимо 3 компонента: Edit для ввода длины массива, Memo для вывода результата и кнопка, чтобы все это дело выполнить:

Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
var Mass:Array of integer;
    min,max,i,HighValue:integer;
    Res: String;
begin
  Randomize;
  Memo1.Clear;
  HighValue := StrToInt(Edit1.Text)-1;
  Res := '';
  SetLength(Mass,HighValue);
  min := 50;
  max := 0;
  for i := 0 to HighValue do begin
    Mass[i] := Random(50)+1;
    if Mass[i] > max then max := Mass[i];
    if Mass[i] < min then min := Mass[i];
    Res := Res + ', ' + IntToStr(Mass[i]);
  end;
  Delete(Res,1,2);
  Memo1.Lines.Add('Текущий массив: ['+Res+']');
  Res := '';
  for i := HighValue downto 0 do Res := Res + ', ' + IntToStr(Mass[i]);
  Delete(Res,1,2);
  Memo1.Lines.Add('Перевернутый массив: ['+Res+']');
  Memo1.Lines.Add('Максимальное значение: '+IntToStr(max));
  Memo1.Lines.Add('Минимальное значение: '+IntToStr(min));
  Memo1.Lines.Add('Среднее арифметическое значений: '+FloatToStr((max+min)/2));
end;
1
edmond-mouse
7 / 7 / 0
Регистрация: 13.01.2010
Сообщений: 67
17.03.2011, 07:03 3
Memo и ListBox там видимо для того, чтобы задавать вектор самостоятельно и выводить во второй элемент результат. В Edit'e тогда отпадает надобность, так как размер для динамического массива можно будет задать по свойству count того элемента, куда вбит массив (количество строк элемента = количеству ячеек массива). Min'у и Max'у тогда можно будет присвоить mass[0] ну и дальше так же скакать.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.03.2011, 07:03

Обработка одномерных статических массивов-Delphi7
В массиве А, содержащем n-элементов, найти первый элемент, равный R и его...

Обработка и формирование одномерных массивов с использованием компонентов
помогите пожалуйста решить задачку использую компоненты Делфи: Дан одномерный...

: Программирование циклических вычислительных процессов. Обработка одномерных массивов
Определить максимальный и минимальный элементы, найти количество элементов,...


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

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

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