Имеются сильные трудности в написании программы!!

[Вавел из ГМТУ]

Уж лучше писать в Console нежели в Application. ИМХО больше вниманию уделишь алгоритму, а не тому "что там с кнопочкой делать надо".

[KnoPaA]

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

запустите, сохраните проект, киньте на форму кнопку к примеру, тыкните на нее два раза, в процедуре добавьте то что вам нужно... где нить в var-ах или константой распишите ваш массив
n = чему нибудь
mas: array [0..n] of integer = {1,2,3,dsvsdvsdvc}
(какой мы не знаем, задание то ваше), дальше как уже писалось...

Ни чего не понятно.Но спасибо и на етом.

[raxp]

человек в первый раз делает, какой уж тут консоль... еще объяснить надо как...

Ни чего не понятно.Но спасибо и на етом.

- запустите delphi, если ставили по умолчанию, то ярлык на рабочем столе должон быть
- по умолчанию проект и форма появятся сразу
- потом идете на вкладку- "file/save project as" сохраняете
- потом из вкладки "standard" перетягиваете компонент Button (просто подержите подольше мышку- будут над каждым появляться подсказки) и киньте его на форму
- кликните быстро два раза левой кнопкой мыши на кнопке на форме, появится окно ввода кода... дальше дерзайте

... вам бы почитать книжки, тут на форуме ветка была...

[KnoPaA]

Ребят может кто нибуть написать как саму программу написать?

[Вавел из ГМТУ]

Последовательность действий или исходный код?

[KnoPaA]

Сообщение от Вавел из ГМТУ

Последовательность действий или исходный код?

Что мне писать после того как я выташу два окна StringGrid/ батон

[spamer]

KnoPaA, попробуйте почитать учебник, а именно М.Фленов - Библия Делфи.

[Вавел из ГМТУ]

Хм..... Какие у тебя требования к задаче? Куда нужно выводить результат? Как заполнять массив?

Делай так (Для Delphi 7):
1. Запусти Делфи.
2. File -> Close All
3. File -> New -> Other.... Там появиться окно в котором надо найти "Console Application".
Откроется окно редактора кода с таким содержимым:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  { TODO -oUser -cConsole Main : Insert code here }
end.

4. Вот тут и надо писать код. (если предполагается консольный проект).

А писать надо следующее:

Program Project1;

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

{$APPTYPE CONSOLE}

Uses
  SysUtils;

Const
  N : Integer = 10; // Кол-во элементов массива.

Var
  A : Array [1..100] of Integer; // Массив (не более 100 элементов)
  i : Integer; // Переменая счётчика цикла.
  Max : Integer; // Максимальное значение в массиве.

Begin
// Заполнение и вывод массива на экран.
Randomize;
For i := 1 To N Do // Проходим по всему(от 1 до N) массиву в цикле for.
  Begin
    A[i] := Random(101); // Присваиваем элементу массива значение от 0 до 100.
    Write(A[i], ' '); // Печаем элемент массива на экран.
  End;

// Ищем элемент массива содержащий максимальное значение.
Max := A[1]; // Присвоем переменой Max значение 1-ого элемента массива.

// Пройдёмся по массиву в цикле for от 2 до N.
// Если текущий элемента оказался больше Max, то
// переменой Max присвоем значение текущего элемента массива.
For i := 2 To N Do
  If Max < A[i] Then Max := A[i];

Writeln;
Writeln('Maximum = ',Max); // Выведем это максимальное значение массива на экран.

// Сумма второго и максимального элемента массива.
Writeln('Summa = ',Max + A[2]);

// Не закрываемся....
Readln;
End.

Написав это, нужно нажать Ctrl + F9 и программа должна запуститься если ошибок нету или, если есть ошибка, компилятор выделит строку красным цветом.

[KnoPaA]

Сообщение от Вавел из ГМТУ

Хм..... Какие у тебя требования к задаче? Куда нужно выводить результат? Как заполнять массив?

Делай так (Для Delphi 7):
1. Запусти Делфи.
2. File -> Close All
3. File -> New -> Other.... Там появиться окно в котором надо найти "Console Application".
Откроется окно редактора кода с таким содержимым:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  { TODO -oUser -cConsole Main : Insert code here }
end.

4. Вот тут и надо писать код. (если предполагается консольный проект).

А писать надо следующее:

Program Project1;

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

{$APPTYPE CONSOLE}

Uses
  SysUtils;

Const
  N : Integer = 10; // Кол-во элементов массива.

Var
  A : Array [1..100] of Integer; // Массив (не более 100 элементов)
  i : Integer; // Переменая счётчика цикла.
  Max : Integer; // Максимальное значение в массиве.

Begin
// Заполнение и вывод массива на экран.
Randomize;
For i := 1 To N Do // Проходим по всему(от 1 до N) массиву в цикле for.
  Begin
    A[i] := Random(101); // Присваиваем элементу массива значение от 0 до 100.
    Write(A[i], ' '); // Печаем элемент массива на экран.
  End;

// Ищем элемент массива содержащий максимальное значение.
Max := A[1]; // Присвоем переменой Max значение 1-ого элемента массива.

// Пройдёмся по массиву в цикле for от 2 до N.
// Если текущий элемента оказался больше Max, то
// переменой Max присвоем значение текущего элемента массива.
For i := 2 To N Do
  If Max < A[i] Then Max := A[i];

Writeln;
Writeln('Maximum = ',Max); // Выведем это максимальное значение массива на экран.

// Сумма второго и максимального элемента массива.
Writeln('Summa = ',Max + A[2]);

// Не закрываемся....
Readln;
End.

Написав это, нужно нажать Ctrl + F9 и программа должна запуститься если ошибок нету или, если есть ошибка, компилятор выделит строку красным цветом.

Спасибо огромное! Но как я поняла мне надо не в таком окне"Консоль"Ты вроде говориш.

[Вавел из ГМТУ]

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

Я то могу и там и сям делать, эт какбы не проблема.