Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 5.00
Buyaka cha
0 / 0 / 0
Регистрация: 12.11.2010
Сообщений: 2
#1

Дан одномерный массив. Найдите сумму максимального и последнего элементов массива. Delphi - Delphi

15.11.2010, 11:22. Просмотров 1408. Ответов 8
Метки нет (Все метки)

помогите пожалуйста решить задачу на Delphi.

Составьте словесно формульный алгоритм, блок-схему и программу для решения следующей задачи.

Дан одномерный массив. Найдите сумму максимального и последнего элементов массива.

Хотя бы программу блок схему я смогу сделать.
заранее спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.11.2010, 11:22
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дан одномерный массив. Найдите сумму максимального и последнего элементов массива. Delphi (Delphi):

Дан одномерный массив. Найти сумму элементов после первого отрицательного числа
Дан одномерный массив. найти сумму элементов после первого отрицательного числа

Дан одномерный массив А длиной N. Подсчитать количество максимальных элементов массива.
как это сделать??))

Дан одномерный массив A длиной N. Посчитать количество минимальных элементов массива
Помогите пожалуйста. Дан одномерный массив A длиной N. Посчитать количество...

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

Дан одномерный массив произвольного размера. Выведите номера всех четных элементов массива
Дан одномерный массив произвольного размера. Выведите номера всех четных...

Дан одномерный массив. Вставить перед мипимальным элементом 0, а после максимального 100
Помогите дописать... Пример 1,1,5,10,1,10 ...

8
Romantik_FM
309 / 305 / 80
Регистрация: 03.03.2010
Сообщений: 1,328
15.11.2010, 12:03 #2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
maxX:=StrToInt(StringGrid1.cells[0,0]);
for i:=0 to 9 do
 BEGIN
  If maxX > StrToInt(StringGrid1.Cells[0,i]) then
   begin
    Label12.Caption:=IntToStr(maxX);
   end
   else
   if maxX < StrToInt(StringGrid1.Cells[0,i]) then
   begin
    maxX:=StrToInt(StringGrid1.Cells[0,i]);
   end;
  Label12.Caption:=IntToStr(maxX);
 END;
 
 
..........
 
Label2.caption:=IntToStr(StrToInt(StringGrid1.Cells[0,9])+maxX);
1
Sanprof
95 / 95 / 16
Регистрация: 28.01.2008
Сообщений: 426
15.11.2010, 12:12 #3
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const
  n: integer = 1000;
var
  mass[0..n-1] of Integer;
  MaxEl, Summa, i: Integer;
 
.....
 
begin
  MaxEl := 0;
  for i := 0 to n-1 do
  if MaxEl < Mass[i] then
    MaxEl := Mass[i];
  Summa := MaxEl + Mass[n-1];
end;
1
Buyaka cha
0 / 0 / 0
Регистрация: 12.11.2010
Сообщений: 2
15.11.2010, 13:43 #4
можно пояснение что куда эти 2 части?
0
Sanprof
95 / 95 / 16
Регистрация: 28.01.2008
Сообщений: 426
15.11.2010, 14:45 #5
Цитата Сообщение от Buyaka cha Посмотреть сообщение
можно пояснение что куда эти 2 части?
то что выше точек то значит нужно глобально объявить, тоесть в разделе Interface, ну а то что между begin и end; это уже на ваше усмотрение, можно отдельную процедурку сделать и туда этот код запихнуть, можно по нажатию на кнопку, вам решать.
1
Romantik_FM
309 / 305 / 80
Регистрация: 03.03.2010
Сообщений: 1,328
15.11.2010, 17:28 #6
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
maxX:=StrToInt(StringGrid1.cells[0,0]);
for i:=0 to 9 do
 BEGIN
  If maxX > StrToInt(StringGrid1.Cells[0,i]) then
   begin
    Label12.Caption:=IntToStr(maxX);
   end
   else
   if maxX < StrToInt(StringGrid1.Cells[0,i]) then
   begin
    maxX:=StrToInt(StringGrid1.Cells[0,i]);
   end;
  Label12.Caption:=IntToStr(maxX);
 END;
//поиск максимального элемента
 
..........
 
Label2.caption:=IntToStr(StrToInt(StringGrid1.Cells[0,9])+maxX);
//Сумма максимального и последнего элемента
1
Sanprof
95 / 95 / 16
Регистрация: 28.01.2008
Сообщений: 426
16.11.2010, 16:29 #7
Romantik_FM, такой интересный вопрос зачем использовать лишний компонент, если в условии нежно работать с массивом???
0
Romantik_FM
309 / 305 / 80
Регистрация: 03.03.2010
Сообщений: 1,328
16.11.2010, 18:03 #8
Для наглядности. Так понятнее а потом можно и без него))
0
евгений1980
8 / 3 / 0
Регистрация: 10.05.2011
Сообщений: 96
10.05.2011, 22:14 #9
вечер добрый всем!помогите пожалуйста кто в этом силён-дан одномерный массив е[10],элементы которого вводятся с клавиатуры.наити сумму max и min элементов массива.на экран вывести сам массив и сумму.
напишите программу пжлста.
0
10.05.2011, 22:14
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2011, 22:14
Привет! Вот еще темы с решениями:

Delphi. Дан Массив А (18). Вычислить среднее арифметическое значение элементов массива А, условие 0<=A(i)<=100
Помогите пожалуйста написать программу..

Дан двумерный массив целых чисел. Определить сумму элементов массива, больших 30
Дан двумерный массив целых чисел. Определить сумму элементов массива больших 30.

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

Дан массив из 35 элементов. Найти номер последнего элемента, кратного 3
Дан массив из 35 элементов. Найти номер последнего элемента, кратного 3.


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

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

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