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

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

07.06.2018, 17:23. Просмотров 873. Ответов 4
Метки нет (Все метки)

работал через StringGrid
кое-что набросал, но код как-то работать не собирается. помогите плз
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.06.2018, 17:23
Ответы с готовыми решениями:

В заданном массиве целых чисел найти максимальное и минимальное число
В заданном массиве целых чисел найти максимальное и минимальное число, использую функции...

дан массив чисел, найти значение функции y=x^3+5 для каждого числа; минимальное и максимальное значение; их сумму.
Здравствуйте, помогите пожалуйста написать программу. Задание: дан массив чисел, найти значение...

Определить максимальное и минимальное значения из трех различных вещественных чисел
Определить максимальное и минимальное значения из трех различных вещественных чисел

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

4
Модератор
6625 / 4250 / 1832
Регистрация: 21.01.2014
Сообщений: 17,868
Записей в блоге: 3
07.06.2018, 17:49 2
Цитата Сообщение от Kuriafogu Посмотреть сообщение
кое-что набросал, но код как-то работать не собирается.
У меня миелофон сломался... Я как-то не вижу, что у Вас там...
1. ...за задание...
2. ... за код, который не "работать не собирается"...
0
9 / 9 / 12
Регистрация: 17.01.2018
Сообщений: 275
07.06.2018, 18:41 3
В заданном массиве целых чисел найти максимальное и минимальное число
Все также, как и с массивом целых чисел, единственное отличие будет форматирование вывода, но это уже сами, функция FloatToStr http://www.delphibasics.ru/FloatToStr.php
0
0 / 0 / 0
Регистрация: 05.06.2018
Сообщений: 2
08.06.2018, 12:43  [ТС] 4
вот этот
код, который не "работать не собирается"...
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
0
Модератор
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.06.2018, 15:59

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

Найти максимальное значение всех отрицательных чисел, хранимых в массиве
Дан одномерный массив A1, A2, ... , An, состоящий из вещественных чисел. Найти максимальное...

Найти максимальное значение всех отрицательных чисел, хранимых в массиве
Ребята! Завтра уже сдаваться, а пару задач не могу сделать!!! Буду очень благодарна! Желательно...

В данном массиве целых чисел найти минимальное значение и все номера элементов массива, равных ему
Тема: Циклы со счетчиком Среди двузначных чисел найти те, сумма квадратов цифр которых делится...

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


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

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

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