Найти максимальное и минимальное значение в массиве вещественных чисел

@Kuriafogu · Регистрация: 05.06.2018

работал через StringGrid
кое-что набросал, но код как-то работать не собирается. помогите плз

@D1973 · 07.06.2018, 17:49

Сообщение от Kuriafogu

кое-что набросал, но код как-то работать не собирается.

У меня миелофон сломался... Я как-то не вижу, что у Вас там...
1. ...за задание...
2. ... за код, который не "работать не собирается"...

@WarlikeLaux · 07.06.2018, 18:41

В заданном массиве целых чисел найти максимальное и минимальное число
Все также, как и с массивом целых чисел, единственное отличие будет форматирование вывода, но это уже сами, функция FloatToStr http://www.delphibasics.ru/FloatToStr.php

@Kuriafogu · 08.06.2018, 12:43 **[ТС]**

вот этот

код, который не "работать не собирается"...

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var a:array [1..11] of real; 
    min,max:real;
    i:integer;
begin
    a[i]:=strtofloat(StringGrid1.Cells[i-1, 0]);
    min:=strtofloat(StringGrid1.Cells[i-1, 0]);
    max:=strtofloat(StringGrid1.Cells[i-1, 0]);
    max:=a[1];
    min:=a[1];
     for i:=1 to 11 do begin
        if a[i]>max then max:=a[i];
          if a[i]<min then min:=a[i];
 label3.caption := ('минимум:'
 + floatToStr(min) + #13 + 'максимум:' + floatToStr(max));
end;
end;
end

@D1973 · 08.06.2018, 15:59

Сообщение от Kuriafogu

a[i]:=strtofloat(StringGrid1.Cells[i-1, 0]);

вот в этой строке кода... i чему равно??? Ну и аналогичный вопрос для следующих 2-х строк!

@Kuriafogu 0 / 0 / 0 Регистрация: 05.06.2018 Сообщений: 2
		1
	Delphi 6-7 Найти максимальное и минимальное значение в массиве вещественных чисел 07.06.2018, 17:23. Просмотров 873. Ответов 4 Метки нет (Все метки) работал через StringGrid кое-что набросал, но код как-то работать не собирается. помогите плз 0

@D1973 Модератор 6625 / 4250 / 1832 Регистрация: 21.01.2014 Сообщений: 17,868 Записей в блоге: 3
	07.06.2018, 17:49	2
	Сообщение от Kuriafogu кое-что набросал, но код как-то работать не собирается. У меня миелофон сломался... Я как-то не вижу, что у Вас там... 1. ...за задание... 2. ... за код, который не "работать не собирается"... 0

@WarlikeLaux 9 / 9 / 12 Регистрация: 17.01.2018 Сообщений: 275
	07.06.2018, 18:41	3
	В заданном массиве целых чисел найти максимальное и минимальное число Все также, как и с массивом целых чисел, единственное отличие будет форматирование вывода, но это уже сами, функция FloatToStr http://www.delphibasics.ru/FloatToStr.php 0

@D1973 Модератор 6625 / 4250 / 1832 Регистрация: 21.01.2014 Сообщений: 17,868 Записей в блоге: 3
	08.06.2018, 15:59	5
	Сообщение от Kuriafogu a[i]:=strtofloat(StringGrid1.Cells[i-1, 0]); вот в этой строке кода... i чему равно??? Ну и аналогичный вопрос для следующих 2-х строк! 0

Опции темы