Очень нужно решение этой задачки, код и блок схему

[ura_111]

Заснула что ли?

[Moraine93]

Да меняется

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    PopupMenu1: TPopupMenu;
    Stolbec1: TMenuItem;
    N71: TMenuItem;
    N81: TMenuItem;
    N91: TMenuItem;
    N101: TMenuItem;
    Stroka1: TMenuItem;
    N72: TMenuItem;
    N82: TMenuItem;
    N92: TMenuItem;
    N102: TMenuItem;
    Reresech11: TMenuItem;
    StringGrid1: TStringGrid;
    procedure draw(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
      State: TGridDrawState);
    procedure menu_stolbec_8(Sender: TObject);
    procedure menu_stolbec_9(Sender: TObject);
    procedure menu_stolbec_7(Sender: TObject);
    procedure menu_stolbec_10(Sender: TObject);
    procedure menu_stroka_7(Sender: TObject);
    procedure menu_stroka_8(Sender: TObject);
    procedure menu_stroka_9(Sender: TObject);
    procedure menu_stroka_10(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
//var
//A:array [0..n],[0..m] of integer;
//i,j:integer;
//begin
//for i := 0 to n do
//for j := 0 to m do
//A[i,j]:=Random(200);
//if(A>100) {A=(-1)*(A-100);}
 //A:=Random(201)-100;
//end;
implementation

{$R *.dfm}
  procedure TForm1.menu_stolbec_7(Sender: TObject);

var
   x, y : integer;
begin
   // Задаем число столбцов и строк таблицы
   StringGrid1.ColCount := 8;
 //  StringGrid1.RowCount := 7;

   // Задаем шируну и высоту ячеек
   StringGrid1.DefaultColWidth := 30;
   StringGrid1.DefaultRowHeight:= 30;

   // раставляем цифры от 1 до 9 в
   // горизонтальной области заголовка
  // for x := 1 to StringGrid1.ColCount - 1  do
  //  StringGrid1.Cells[x, 0] := IntToStr(x);

   // растравляем цифры от 1 до 9 в
   // вертикальной области заголовка
   //for y := 1 to StringGrid1.ColCount - 1  do
   // StringGrid1.Cells[0, y] := IntToStr(y);

  // выводим результаты умножения в ячейки таблицы
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(Random(201)-100);
end;

procedure TForm1.menu_stolbec_8(Sender: TObject);
  var
   x, y : integer;
begin

   // Задаем число столбцов и строк таблицы
   StringGrid1.ColCount := 9;
 //  StringGrid1.RowCount := 7;

   // Задаем шируну и высоту ячеек
   StringGrid1.DefaultColWidth := 30;
   StringGrid1.DefaultRowHeight:= 30;

   // раставляем цифры от 1 до 9 в
   // горизонтальной области заголовка
  // for x := 1 to StringGrid1.ColCount - 1  do
  //  StringGrid1.Cells[x, 0] := IntToStr(x);

   // растравляем цифры от 1 до 9 в
   // вертикальной области заголовка
   //for y := 1 to StringGrid1.ColCount - 1  do
   // StringGrid1.Cells[0, y] := IntToStr(y);
    // выводим результаты умножения в ячейки таблицы
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(Random(201)-100);


end;

   // Задаем число столбцов и строк таблицы
  procedure TForm1.menu_stolbec_9(Sender: TObject);
    var
   x, y : integer;
begin
     // Задаем число столбцов  таблицы
   StringGrid1.ColCount := 10;
    // выводим результаты умножения в ячейки таблицы
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(Random(201)-100);

end;
procedure TForm1.menu_stolbec_10(Sender: TObject);
   var
   x, y : integer;
begin
     // Задаем число столбцов  таблицы
   StringGrid1.ColCount := 11;
 // выводим результаты умножения в ячейки таблицы
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(Random(201)-100);
end;

procedure TForm1.menu_stroka_7(Sender: TObject);
  var
   x, y : integer;
begin

   // Задаем число столбцов и строк таблицы
   //StringGrid1.ColCount := 9;
    StringGrid1.RowCount := 8;
      // выводим результаты умножения в ячейки таблицы
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(Random(201)-100);
 end;
 
procedure TForm1.menu_stroka_8(Sender: TObject);
 var
   x, y : integer;
begin

   // Задаем число столбцов и строк таблицы
   //StringGrid1.ColCount := 9;
    StringGrid1.RowCount := 9;
      // выводим результаты умножения в ячейки таблицы
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(Random(201)-100);
end;

procedure TForm1.menu_stroka_9(Sender: TObject);
   var
   x, y : integer;
begin
   // Задаем число строк таблицы
    StringGrid1.RowCount := 10;
       // выводим результаты умножения в ячейки таблицы
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(Random(201)-100);
end;

procedure TForm1.menu_stroka_10(Sender: TObject);
     var
   x, y : integer;
begin
   // Задаем число строк таблицы
    StringGrid1.RowCount := 10;
  // выводим результаты умножения в ячейки таблицы
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(Random(201)-100);

end;
  procedure TForm1.draw(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
  State: TGridDrawState);
begin
if ARow mod 2=0 then
   StringGrid1.Canvas.Brush.Color := cllime
   else  StringGrid1.Canvas.Brush.Color := clRed;
 StringGrid1.Canvas.FillRect( Rect );
 StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
end;
end.

[ura_111]

Вроде нормально...

Так, скажи мне: "Ты проверяла меню? Размер массива-отображения меняется?"

[ura_111]

Отлично, что меняется размер...

А теперь скажи: ты же понимаешь, что размер отображения матрицы не должен меняться при работе с меню, а должен поменяться когда....
Когда? ПОСМОТРИ В ЗАДАНИИ.

P.S.: может тебе по чаще страницу браузера обновлять.

[ura_111]

Вот эти места:
".... размеры задаются В МЕНЮ...
...Занесение исходных значений в матрицу производится ПО ДВОЙНОМУ ЩЕЛЧКУ МЫШИ....
....создать программный проект отображения средствами компонента StringGrid матрицы ЗАДАННОГО РАЗМЕРА...."

Ты понимаешь что надо делать дальше? (на матрицу А[][] пока не обращай внимание - она будет создана потом).

Итак, твои задания (наконец то, полноценные задания) :

1) Создай обработчик события "двойной щелчок мыши по StringGrid". (в видеоролике это информация есть); и пропиши код рисование матрицы, НО кол-во столбцов/ строк должно равняться m/n, т.е:

.....
begin
   // Задаем число столбцов и строк таблицы
   StringGrid1.ColCount := m;
   StringGrid1.RowCount := n;
......

Что такое m, n? (я имею ввиду, где их объявить?) Читай следующий пункт ниже.

2) Найди информацию по "глобальной переменной". Как её задавать? Где прописать?

Небольшие пояснения.
Когда ты описываешь переменные, например здесь:

procedure TForm1.menu_stolbec_8(Sender: TObject);
  var
   i, j : integer;
begin...

то "поле видимости" таких переменных ("i,j") только в пределах одной процедуры... А по твоему задаю необходимо: изменять n, m в одних процедурах (menu_...), а использовать для построения таблицы в другой - обработчике 2-го клика.

Ты меня понимаешь?

а) объявляешь 2-е глобальные переменные: n, m.
б) В обработчике менюшек меняешь код (в соответствии с тем, что выбрал пользователь). Например:

procedure TForm1.menu_stroka_10(Sender: TObject);
begin
  m=10;
end;

или

 procedure TForm1.menu_stolbec_7(Sender: TObject);
begin
  n=7;
end;

а в обработчике двойного клика по StringGrid - строишь таблицу по уже определенным значениям "m, n".
___________________________________ _____________________________

p.s.1: В интернете (или скачай книгу по Delhfi) найди пример как объявляется глобальная переменная (переменная с полем видимости всех процедур и обработчиков программы). Это должно быть просто; можно сказать, что взглянув "одним глазком" на программу на эту тему - ты всё сразу поймешь...

p.s.2: Ну поправь свой код (см. выше, после моих слов "Ты меня понимаешь?").

p.s.3: Присылай мне в дальнейшем только исполнительные модули (для контроля наполняемости программы):

10.jpg

Они у меня нормально открываются. Перед отправкой убедись, что всё корректно работает.

p.s.4: Раскраску пока не трогай - потом будем думать что с ней делать ( вопрос: ты же понимаешь, что тебе надо по другому раскрашивать StringGrid?)

[Moraine93]

глобальную переменную объявила
насчет раскраски я знаю, что подругому нужно
после вот этого

procedure TForm1.menu_stroka_10(Sender: TObject);
begin
  m=10;
end;

меню перестало работать
вот код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Menus;
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    PopupMenu1: TPopupMenu;
    Stolbec1: TMenuItem;
    N71: TMenuItem;
    N81: TMenuItem;
    N91: TMenuItem;
    N101: TMenuItem;
    Stroka1: TMenuItem;
    N72: TMenuItem;
    N82: TMenuItem;
    N92: TMenuItem;
    N102: TMenuItem;
    Reresech11: TMenuItem;
    StringGrid1: TStringGrid;
    procedure draw(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
      State: TGridDrawState);
    procedure menu_stolbec_8(Sender: TObject);
    procedure menu_stolbec_9(Sender: TObject);
    procedure menu_stolbec_7(Sender: TObject);
    procedure menu_stolbec_10(Sender: TObject);
    procedure menu_stroka_7(Sender: TObject);
    procedure menu_stroka_8(Sender: TObject);
    procedure menu_stroka_9(Sender: TObject);
    procedure menu_stroka_10(Sender: TObject);
    procedure dblclick(Sender: TObject);

  //  procedure dblclik(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
   m,n:integer;

implementation

{$R *.dfm}
  procedure TForm1.menu_stolbec_7(Sender: TObject);

begin
n:=7;
   // Çàäàåì ÷èñëî ñòîëáöîâ òàáëèöû
   //StringGrid1.ColCount := 7;
end;
procedure TForm1.menu_stolbec_8(Sender: TObject);

begin
n:=8;
   // Çàäàåì ÷èñëî ñòîëáöîâ òàáëèöû
  // StringGrid1.ColCount := 8;
end;
   // Çàäàåì ÷èñëî ñòîëáöîâ òàáëèöû
  procedure TForm1.menu_stolbec_9(Sender: TObject);

begin
    n:=9;
     // Çàäàåì ÷èñëî ñòîëáöîâ  òàáëèöû
  // StringGrid1.ColCount := 9;
end;
procedure TForm1.menu_stolbec_10(Sender: TObject);

begin
   n:=10;
     // Çàäàåì ÷èñëî ñòîëáöîâ  òàáëèöû
   //StringGrid1.ColCount := 10;
end;
procedure TForm1.menu_stroka_7(Sender: TObject);

begin
m:=7;
   // Çàäàåì ÷èñëî ñòðîê òàáëèöû
   // StringGrid1.RowCount := 7;
 end;
procedure TForm1.menu_stroka_8(Sender: TObject);

begin
   m:=8;
   // Çàäàåì ÷èñëî ñòðîê òàáëèöû
   // StringGrid1.RowCount := 8;
end;
procedure TForm1.menu_stroka_9(Sender: TObject);

begin
m:=9;
   // Çàäàåì ÷èñëî ñòðîê òàáëèöû
   // StringGrid1.RowCount := 9;
end;
procedure TForm1.menu_stroka_10(Sender: TObject);

begin
   m:=10;
   // Çàäàåì ÷èñëî ñòðîê òàáëèöû
    //StringGrid1.RowCount := 10;
end;
  procedure TForm1.draw(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
  State: TGridDrawState);
begin
if ARow mod 2=0 then
   StringGrid1.Canvas.Brush.Color := cllime
   else  StringGrid1.Canvas.Brush.Color := clRed;
 StringGrid1.Canvas.FillRect( Rect );
 StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
end;

 procedure TForm1.dblclick(Sender: TObject);

 begin
 // Çàäàåì ÷èñëî ñòîëáöîâ è ñòðîê òàáëèöû
   StringGrid1.ColCount := m;
   StringGrid1.RowCount := n;
end;

end.

[Moraine93]

можно сделать с
RowCount ColCount
а не n,m=

[ura_111]

Moraine93, а где рисование таблицы?

Это только часто кода:

procedure TForm1.dblclick(Sender: TObject);
 begin
   StringGrid1.ColCount := m;
   StringGrid1.RowCount := n;
end;

А вот продолжение (оно стандартное - 20 раз уже себе писала):

   // Задаем шируну и высоту ячеек
   StringGrid1.DefaultColWidth := 30;
   StringGrid1.DefaultRowHeight:= 30;

  // выводим результаты умножения в ячейки таблицы
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(Random(201)-100);

p.s.: надо будет тебя по программе погонять (на знание частей программы).

[ura_111]

Я же писал:

.....
begin
   // Задаем число столбцов и строк таблицы
   StringGrid1.ColCount := m;
   StringGrid1.RowCount := n;
......

Точки (......) означают продолжение кода оставить.


Кстате, а что это такое:

// Çàäàåì ÷èñëî ñòîëáöîâ è ñòðîê òàáëèöû

?

[Moraine93]

это текст русский