|
Вопрос # 6 434/ вопрос решён / |
|
Здравствуйте, эксперты!
Дан двумерный массив размерности 10х10
 |
Вопрос задал: arondondon (статус: Посетитель)
Вопрос отправлен: 24 мая 2013, 13:10
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 25 мая 2013, 11:09; участников в обсуждении: 3.
|
min@y™ (статус: Доктор наук), 24 мая 2013, 13:48 [#1]:
37 строк кода и 5 минут перекура работы. Неужели трудно самому сделать?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
puporev (статус: 2-ой класс), 24 мая 2013, 14:00 [#2]:
Или с формой
const n=10;
var
Form1: TForm1;
a:array[1..n,1..n] of integer;
implementation
{$R *.dfm}
//создаем матрицу
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=-25+random(51);
StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j])
end;
end;
//меняем выше главной
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
a[i,j]:=-1;
for i:=1 to n do
for j:=1 to n do
StringGrid2.Cells[j-1,i-1]:=IntToStr(a[i,j])
end;
|
|
Толяныч (статус: 4-ый класс), 25 мая 2013, 11:09 [#3]:
А зачем 2 цикла? В первом цикле при заполнении сразу как выше гл. диаг., так -1 .
Хотя задание, бессмысленное, как почти все учебные задания, может предполагать, что заполнили матрицу, что-то там с ней сделали, а уж пот`ом -1 . Тогда таки да.
|
15 сентября 2013, 12:50: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
