Подскажите, как исправить ошибку

мне нужно в заполненном нулями массиве,заменить 20% ячеек единицами
________________________________________ _____
ошибка is not valid integer value, но компилируется , и в таблице в первой ячейке 0 и все

0

Число строк, столбцов указал?
Тебя не учили,
что

Сообщение от nesnakomka goto H

это плохо.

Сообщение от nesnakomka A[k-1,j-1]:=random(0);

просто равно 0 нельзя?
В какой строке ошибка?

0

Сообщение от planetoxod Число строк, столбцов указал? Тебя не учили, что Сообщение от nesnakomka goto H это плохо. Сообщение от nesnakomka A[k-1,j-1]:=random(0); просто равно 0 нельзя? В какой строке ошибка?

Ошибку не выдает в том то и дело. Компилируется без проблем. Но выводит то только в первой ячейке 0 и всё. У меня просто задание: "В лабиринте найти кратчайшее расстояние". Вот я и сначала думала заполнить массив нулями, несколько ячеек поменять на единицы(там где нельзя будет пройти в лабиринте).

0

Сообщение от nesnakomka мне нужно в заполненном нулями массиве,заменить 20% ячеек единицами

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

В массиве все нули.
20% это 1/5 часть массива, так вот и рули от этого!

0

Сколько ячеек показывает?
Перепиши код без использования Label , но с процедурами, я мозг сломал над этим кодом.

0

все, исправил кое-что, теперь заполняет массив нулями и только одна ячейка единичка

0

Код покажешь или так через облако.

0

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var A:Array[0..9,0..9] of integer;
i,P,L,j,k,t:integer;
label
H;
begin
for k:=1 to 10 do
begin
for j:=1 to 10 do
begin
A[k-1,j-1]:=0;
stringgrid1.Cells[k,j]:=inttostr(A[k-1,j-1]);
begin
t:=20;
for i:=0 to t do

begin
H:
P:=random(10);
L:=random(10);
end;
end;
end;
end;
if strtoint(stringgrid1.cells[P,L])=1 then goto H
else stringgrid1.cells[P,L]:=inttostr(1);
end;
end.

Миниатюры

 

0

Ну всё, дело за малым - логикой, удачи.

0

nesnakomka, слыш чо пиши в тегах.

0