Создание сайтов и программирование
Создание сайтов и программирование
Дано: с клавиатуры вводятся два целых числа – М и К. 1<M<10, 1<K<10. (М – число строк, К – число столбцов)
Требуется: сгенерировать матрицу размерности М х К из случайных целых чиселиз интервала [-100, 80].
Вывести её на экран в отформатированном табличном виде.
Определить и вывести на экран максимальный и минимальный по модулю элементы матрицы.
Определить и вывести на экран индексы (номера строк и столбцов) найденных элементов матрицы.
Генерацию, обработку и вывод матрицы производить с помощью двух вложенных циклов. Внешний цикл – for, внутренний – while.
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
Grids;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Memo2: TMemo;
StringGrid1: TStringGrid;
private
{ private declarations }
public
{ public declarations }
end;
var
x: array [1..m,1..k] of integer;
i, j: byte;
m, k: byte;
// z: x;
// : of byte;
Form1: TForm1;
implementation
{$R *.lfm}
begin
x: array [1..m,1..k] of integer;
m :=StrtoInt(Edit1.Text);
m :=StrtoInt(Edit2.Text);
//Memo1: TMemo:=z;
// maxmod, minmod, : of Integer;
randomize;
x [i,j]:= random(79)-100;
for i :=1 to m do begin;
for j :=1 to k do;
write (x[i,j]:5);
//Memo2.Text := InttoStr(z);
end.
Компиляция проекта, цель: project1.exe: Код завершения 1, ошибок: 4
unit1.pas(29,19) Error: Identifier not found "m"
unit1.pas(29,20) Error: Can't evaluate constant expression
unit1.pas(29,24) Error: Identifier not found "k"
unit1.pas(29,25) Error: Can't evaluate constant expression
Среда разработки Lazarus
Я только начал учить! Что не так с Identifier?
Требуется: сгенерировать матрицу размерности М х К из случайных целых чиселиз интервала [-100, 80].
Вывести её на экран в отформатированном табличном виде.
Определить и вывести на экран максимальный и минимальный по модулю элементы матрицы.
Определить и вывести на экран индексы (номера строк и столбцов) найденных элементов матрицы.
Генерацию, обработку и вывод матрицы производить с помощью двух вложенных циклов. Внешний цикл – for, внутренний – while.
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
Grids;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Memo2: TMemo;
StringGrid1: TStringGrid;
private
{ private declarations }
public
{ public declarations }
end;
var
x: array [1..m,1..k] of integer;
i, j: byte;
m, k: byte;
// z: x;
// : of byte;
Form1: TForm1;
implementation
{$R *.lfm}
begin
x: array [1..m,1..k] of integer;
m :=StrtoInt(Edit1.Text);
m :=StrtoInt(Edit2.Text);
//Memo1: TMemo:=z;
// maxmod, minmod, : of Integer;
randomize;
x [i,j]:= random(79)-100;
for i :=1 to m do begin;
for j :=1 to k do;
write (x[i,j]:5);
//Memo2.Text := InttoStr(z);
end.
Компиляция проекта, цель: project1.exe: Код завершения 1, ошибок: 4
unit1.pas(29,19) Error: Identifier not found "m"
unit1.pas(29,20) Error: Can't evaluate constant expression
unit1.pas(29,24) Error: Identifier not found "k"
unit1.pas(29,25) Error: Can't evaluate constant expression
Среда разработки Lazarus
Я только начал учить! Что не так с Identifier?
0 | 0 | 0 |
Комментарии (7)
Для добавления комментариев необходимо авторизоваться