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

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

21.11.2019, 15:14. Показов 347. Ответов 1
Метки нет (Все метки)

Даны два одномерных массива вещественных чисел. Найти в них максимальные элементы и поменять их местами. Массивы вывести на экран.
Переменные вводить и выводить с помощью компонентаTEdit, TSpinEdit, массив – c помощью компонента TStringGrid, в котором 0-ю строку использовать для отображения индексов массива. Вычисления выполнять, после нажатия кнопки типа TВutton.
Заранее Большое Спасибо!
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2019, 15:14
Ответы с готовыми решениями:

Даны два массива действительных чисел. Определить максимальные элементы в каждом массиве и поменять их местами
помогите с массивами, не могу допереть как сделал, есть похожая тема на форуме но ничего не понятно...

Даны два одномерных массива целых чисел. Сформировать из них два новых по правилу
Помогите пожалуйста с задачей:help: :) Даны два одномерных массива целых чисел (массив А,...

Определить максимальные элементы в каждом из двух массивов вещественных чисел, и поменять их местами
Заданы два одномерных массива действительных чисел.Определить максимальные элементы в каждом...

Даны два массива чисел. Найти в них минимальные элементы
Даны два массива чисел. Найти в них минимальные элементы. Если они равны, то исключить их из...

1
495 / 397 / 260
Регистрация: 05.04.2013
Сообщений: 1,763
22.11.2019, 14:52 2
Setsuna Yato,
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
var
  Form1: TForm1;
  a,b:array of double;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
n1,n2,i:Integer;
begin
n1 := SpinEdit1.Value;
n2 := StrToInt(Edit1.Text);
SetLength(a, n1);
SetLength(b, n2);
StringGrid1.ColCount := n1;
StringGrid2.ColCount := n2;
for i := 0 to n1-1 do StringGrid1.Cells[i,0] := IntToStr(i);
for i := 0 to n2-1 do StringGrid2.Cells[i,0] := IntToStr(i);
if MessageDlg('Заполнить массивы случайными числами?',mtConfirmation,[mbYes,mbNo], 0) = mrNo
then ShowMessage('Ну тогда вводите в ручную. Не хотите, как хотите') else begin
     randomize;
     for i := 0 to n1-1 do begin
         a[i] := Round(10000 * random)/100;
         StringGrid1.Cells[i,1] := FloatToStr(a[i]);
         end;
     for i := 0 to n2-1 do begin
         b[i] := Round(10000 * random)/100;
         StringGrid2.Cells[i,1] := FloatToStr(b[i]);
         end;
     end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
VAR
i:Integer;
maxa,maxb:double;
begin
for i := 0 to StringGrid1.ColCount-1 do
    a[i] := StrToFloat(StringGrid1.Cells[i,1]);
for i := 0 to StringGrid2.ColCount-1 do
    b[i] := StrToFloat(StringGrid2.Cells[i,1]);
 
maxa := a[0];
maxb := b[0];
 
for i := 1 to High(a) do
    if a[i] > maxa then maxa := a[i];
for i := 1 to High(b) do
    if b[i] > maxb then maxb := b[i];
 
for i := 0 to High(a) do
    if a[i] = maxa then begin
       a[i] := maxb;
       StringGrid1.Cells[i,1] := FloatToStr(a[i]);
       end;
for i := 0 to High(b) do
    if b[i] = maxb then begin
       b[i] := maxa;
       StringGrid2.Cells[i,1] := FloatToStr(b[i]);
       end;
 
end;
0
Миниатюры
Даны два одномерных массива вещественных чисел. Найти в них максимальные элементы и поменять их местами  
Вложения
Тип файла: zip максимальные элементы поменять местами.zip (9.3 Кб, 0 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.11.2019, 14:52

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

Дано одномерных массива y(n) x(n). Найти максимальные элементы в них и переставить их между собой
Дано одномерных массива y(n) x(n). Найти максимальные элементы в них и переставить их между собой...

В произвольно заданных двух одномерных массивах определить максимальные элементы и поменять их местами
В произвольно заданных двух одномерных массивах определить максимальные элементы и поменять их...

Даны два двумерных массива. Поменять местами элементы главной и побочной диагонали
Даны два двумерных массива размерностью nxn и mxm. Заполнение можно произвести с помощью random...

Даны массивы A(5,5), B(5,5), C(5,5). Поменять местами максимальные и минимальные элементы.
на языке С++ Даны массивы A(5,5), B(5,5), C(5,5). Поменять местами максимальные и минимальные...


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

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

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