19 / 11 / 8
Регистрация: 19.11.2015
Сообщений: 60
1

Дана последовательность чисел a1, a2, ., an. Найдите наибольшую сумму, образованную двумя, идущими подряд, э

30.11.2015, 00:01. Показов 602. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана последовательность чисел a1, a2, ..., an. Найдите наибольшую сумму, образованную двумя, идущими подряд, элементами.
Собственно в чем проблема: вводил и выводил с текста я пока только матрицы, поэтому просто массивы почему-то не всегда работают. А вообще, мне просто надо бы подключить свою головную (в которой ввод пока с клавиатуры) к юниту. В чем его суть? Вот, как говорится, сырой набросок:
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
26
program laba8;
 
{$APPTYPE CONSOLE}
 
uses
 
SysUtils;
 
var a:array [1..100] of real;
    i,n:integer;
    maxsum:Real;
begin
 write ('Kol-vo elementov massiva: ');
 read(n);
 write('Vvedite elementy massiva: ');
  for i:=1 to n do
   readln(a[i]);
 maxsum:=a[1]+a[2];
 for i:=1 to n-1 do
  begin
   if (a[i]+a[i+1])>maxsum then
    maxsum:=a[i]+a[i+1];
  end;
 write ('Maximalnaya summa v posledovatelnosti ravna: ',maxsum:8:4);
 readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.11.2015, 00:01
Ответы с готовыми решениями:

Найти наибольшую сумму, образованную двумя идущими подряд элементами последовательности (оформить в виде DLL)
Вот сама задача:Дана последовательность чисел a1, a2, ..., an. Найдите наибольшую сумму,...

Дана последовательность чисел a1, a2, ., an. Найдите наибольшую сумму, образованную двумя, идущими подряд, э
Дана последовательность чисел a1, a2, ..., an. Найдите наибольшую сумму, образованную двумя,...

Дана последовательность чисел a1, a2, ., an. Найдите наибольшую сумму, образованную двумя, идущими подряд, элементами
Дана последовательность чисел a1, a2, ..., an. Найдите наибольшую сумму, образованную двумя,...

Найти наибольшую сумму, которая образованна двумя идущими подряд элементами
Здравствуйте. Если Вам не тяжело, помогите пожалуйста переделать программу с помощью юнитов и...

1
1077 / 488 / 316
Регистрация: 05.04.2013
Сообщений: 2,140
30.11.2015, 10:08 2
при поиске максимальной суммы лучше использовать цикл так:
Delphi
1
2
3
4
for i := 2 to n do 
begin
if a[i-1]+a[i] ....
end;
Добавлено через 1 час 55 минут
если n > 1
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
26
program max;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
VAR
i,imax,n : Integer;
a: Array[0..1000] of real;
maxi : real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
write('n='); readln(n);
 
for i := 1 to n do begin write('a[',i,']='); readln(a[i]); end;
 
maxi := 0;
for i := 1 to n do maxi := maxi - abs(a[i]);
 
for i := 2 to n do Begin
    if a[i-1]+a[i] >= maxi then begin imax := i; maxi := a[i-1]+a[i]; end;
    End;
 
write('maximum: a[',imax-1,']+a[',imax,']=',(a[imax-1]+a[imax]):8:4);
readln;
end.
1
30.11.2015, 10:08
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.11.2015, 10:08
Помогаю со студенческими работами здесь

Дано слово. Получить его часть, образованную идущими подряд буквами
Дано слово. Получить его часть, образованную идущими подряд буквами, начиная с т-й и кончая n-й (т...

Вводится слово. Получить его часть, образованную идущими подряд буквами
Вводится слово. Получить его часть, образованную идущими подряд буквами, начиная с k-й и кончая n-й...

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

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

Дана последовательность из N вещественных чисел. Первое число в последовательности нечетное. Найти сумму всех идущих подряд в начале последовательност
Дана последовательность из N вещественных чисел. Первое число в последовательности нечетное. Найти...

Дана последовательность из n вещественных чисел. Найти наиболее длинную последовательность подряд идущих нулей.
Дана последовательность из n вещественных чисел. Найти наиболее длинную последовательность подряд...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru