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

Даны целые числа а1, ... А20 .. Получить: min (a2, a5, ..) + max (a1, a4, ..)

13.06.2017, 21:16. Показов 1595. Ответов 4
Метки нет (Все метки)

Даны целые числа а1, ... А20 .. Получить: min (a2, a5, ..) + max (a1, a4, ..).
Нужно начать max с первого числа, каждый раз переступать через три числа. В min нужно начать с второго, переступая через три числа.
НЕ МОГУ РАЗОБРАТЬСЯ!!!!!


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
procedure TForm1.Button1Click(Sender: TObject);
var
a: array [1..20] of integer;
max, min, sum: integer;
i: integer;
begin
For i:= 1 to 20 do
a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);
max:=a[1];
min:=a[1];
For i:= 1 to 20 do
if a[i-3] > max then
max:=a[i];
For i:= 1 to 20 do
if (a[i-3])<min then
min:=a[i];
sum:=max+min;
Label2.Caption:='Максимальне число: '+IntToStr(max);
Label3.Caption:='Мінімальне число: '+IntToStr(min);
Label4.Caption:='Сума: '+IntToStr(sum);
 
end;
 
 
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.06.2017, 21:16
Ответы с готовыми решениями:

Даны действительные числа а и b. Получить U= min (a,b), V= min (ab, a+b), min (U+V^2, 3.14) при помощи функций
Даны действительные числа а и b. Получить U= min (a,b), V= min (ab, a+b), min (U+V^2, 3.14). ...

Даны действительные числа a1.a20 получить max(a1+a20, a2+a19,.,a10+a11) min(a1a11,a2a12.a10a20)
Помогите пожалуйста кодом очень прошу

Даны действительные числа а1, ..., а20. Извлечь а20, а11, а19, а10, ..., а10, а1
дано действительные числа а1, ..., а20. Извлечь а20, а11, а19, а10, ..., а10, а1.

Даны действительные числа a, b. Получить u = min(a, b-a), y = min(ab, a+b)
Даны действительные числа a, b. Получить u = min(a, b-a), y = min(ab, a+b), k = min(u+v2, 3.14). ?

__________________
4
421 / 339 / 196
Регистрация: 20.10.2016
Сообщений: 1,078
13.06.2017, 22:25 2
Лучший ответ Сообщение было отмечено Aizek123 как решение

Решение

Aizek123, for тут не поможет, можно искать так:

Delphi
1
2
3
4
5
6
7
8
9
10
uses Math;
...
  min :=  Infinity;
  max := -Infinity;
  i:=1;
  repeat
    if max < a[i] then max:=a[i];
    if min > a[i+1] then min:=a[i+1];
   inc(i,3)
  until i > 20;
Сумму, думаю, сами найдете.
1
Модератор
6792 / 4381 / 1874
Регистрация: 21.01.2014
Сообщений: 18,552
Записей в блоге: 3
14.06.2017, 06:59 3
TFullControl, так по условию там array of integer, а Вы infinity применяете... По логике min и max должны быть того же типа, что и элементы массива, поэтому, я думаю, надо так:
Delphi
1
2
min := High(integer);
max := Low(integer);
1
421 / 339 / 196
Регистрация: 20.10.2016
Сообщений: 1,078
14.06.2017, 07:45 4
D1973, да, вы правы.
0
Модератор
63332 / 47044 / 32427
Регистрация: 18.05.2008
Сообщений: 114,031
14.06.2017, 08:27 5
Или
Delphi
1
2
min:=a[2];
max:=a[1];
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.06.2017, 08:27

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

Даны целые числа а, b, с. Вычислить в-сумму у = min (a, b + c) + max (ac, b)-min (a2, c)
Даны целые числа а, b, с. Вычислить в-сумму у = min (a, b + c) + max (ac, b)-min (a2, c). Как эту...

Даны действительные числа а1,.а20. Получить а12, а2, а14, а4,.,а20, а10
Добрый вечер! Помогите, пожалуйста: Даны действительные числа а1,...а20. Получить а12, а2, а14,...

Процедура: Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c))
Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c)) с...

Даны целые числа a, b. Получить: f=min(u+v²,3.14)
Даны целые числа a, b. Получить: f=min( u+v2 ,3.14) где u=min(a,b), v=min(ab,a+b). Описать...


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

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

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