Меня зовут Михаил, я начинающий программист в Delphi 7. Помогите мне пожалуста написать программу в Delphi 7. Заранее благодарен.
Разработка программы с использованием таблиц.
Условие. Дана таблица целых чисел размерности N*N. Подсчитать сумму элементов таблицы по строкам и столбцам. Вывести на экран исходную таблицу и результаты всех видов вычислений.
Для упрщения процесса отладки программы можно использовать генератор случайных чисел с помощью функции Random(X), которая сгенерирует необходимое количество целых натуральных чисел.
Шаг 1. С помощью компонента MainMenu создать на форме три пункта меню(Сумма строк, Сумма столбцов и Выход). Кроме этого на форме распологаются следующие компоненты: Label1, Edit1, StringGrid1 и две кнопки типа Button(Ввод размерности и Ввод данных).
Шаг 2. Создать обработчик события при создании формы.
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Clear;
StringGrid1.Cells[0,0]:= 'Сумма';
Button2.Enabled:= False;
end;
Шаг 3. Написать определения типов данных в формате одномерного и двумерного массивов целых чисел заданной размерности N.
Type
mas ?
b_mas ?
Шаг 4. Создать обработчик событий для кнопки "Ввод размерности". И выполнить инициализацию генератора случайных чисел.
procedure TForm1.Button1.Click(Sender: TObject);
begin
?
end;
Шаг 5. Создать обработчик событий для кнопки "Ввод данных". Последовательность действий должна быть такой:
-Записать в память сгенерированный двумерный массив введенной размерности N;
-Задать размерности компонента TstringGrid, чтобы вывести в окно таблицы сгенерированное количество элементов массива;
-Записать операторы цикла для вывода в таблицу значений массива;
-Подготовить ячейки таблицы для вывода сумм элементов строк и столбцов;
procedure TForm1.Button2Click(Sender: TObject);
var
begin
?
// очищаем ячейки для записи соответствующих сумм
end;
Шаг 6. Действия по вычислению сумм строк или столбцов описать функцией, сохранив предложенные обозначения формальных параметров в заголовке функции. Обратите внимание на то , что для функции предлагается использовать одномерный массив целых чисел c.
Function summa(var c: mas; m: integer): integer;
?
end;
Шаг 7. Написать обработчики событий для альтернатив меню("Сумма строк", "Сумма столбцов", "Выход".)
1. Вычисление сумм элементов массива по столбцам:
procedure TForm1.N1Click(Sender: TObject);
var
begin // Вычисление по столбцам таблицы
?
end;
2. Вычисление сумм элементов по строкам таблицы
procedure TForm1.N2Click(Sender: TObject);
var
begin
?
end;
3.Выход
procedure TForm1.N3Click(Sender: TObject);
begin
Close
end;
-> 