|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
найти max и min элементы массива и поменять их местами
вывод обязательно в listbox. ввод из memo. ошибка после нажатия на button.
Код:
procedure TForm1.Button1Click(Sender: TObject); const N=10; var m:array [1..N] of real; j,p,i,er:integer; max,min:real; st,sa:string; begin for i:=1 to N do begin sa:=memo1.lines[i-1]; val(sa,m[i],er); end; max:=m[1]; min:=m[1]; for i:=2 to N do begin if m[i]>max then begin max:=m[i]; j:=i; end; if m[i]<min then begin min:=m[i]; p:=i; end; end; end; m[j]:=min; m[p]:=max; str(m[i]:2:1,st); listbox1.Items.Add(st); end. |
#2
|
||||
|
||||
Цитата:
|
#3
|
|||
|
|||
выводит в listbox 0
|
#4
|
||||
|
||||
Цитата:
Вот их и выводи, а не m[i]: Код:
ListBox1.Items.Add(FloatToStr(min)); ListBox1.Items.Add(FloatToStr(max)); |
#5
|
|||
|
|||
вывести нужно массив, не дописал, извини
|
#6
|
||||
|
||||
Цитата:
Потом меняешь местами эти элементы массива (это у тебя тоже есть). А потом нужно ещё один цикл организовать для вывода этого массива в ListBox1: Код:
for i := 1 to N do begin ListBox1.Items.Add(FloatToStr(m[i])); end; |
#7
|
|||
|
|||
вот что получается( |
#8
|
||||
|
||||
Цитата:
В Memo1 заполнено 10 строк с числами? |
#9
|
|||
|
|||
да, всё заполнено
|
#10
|
||||
|
||||
Цитата:
|
#11
|
|||
|
|||
тогда просто нули в листбокс выводятся
|
#12
|
||||
|
||||
Цитата:
|
#13
|
|||
|
|||
Код:
procedure TForm1.Button1Click(Sender: TObject); const N=10; var m:array [1..N] of real; j,p,i,er:integer; max,min:real; st,sa:string; begin for i:=1 to N do begin sa:=memo1.lines[i-1]; val(sa,m[i],er); end; max:=m[1]; min:=m[1]; for i:=2 to N do begin if m[i]>max then begin max:=m[i]; j:=i; end; if m[i]<min then begin min:=m[i]; p:=i; end; end; m[j]:=min; m[p]:=max; begin listbox1.Items.Add(floattostr(m[i])); end; end; Последний раз редактировалось Admin, 07.08.2016 в 22:50. |
#14
|
|||
|
|||
ниже end есть тоже
|
#15
|
||||
|
||||
Цитата:
|