Паскаль, 1 курс, массив, TStringGrid
Вложений: 1
Массив размещаем с помощью TStringGrid с Additional
Помогите, а то я сильно тупой |
Цитата:
Какой смысл? |
Цитата:
|
Цитата:
|
Программирование нынче в кулинарном техникуме преподают или я упустил что? Наверное, всё-таки, вуз профильный. Смысл было связываться с тем, в чём совсем никак? Судя по тому, что речь не о гольном Паскале, а налицо уже ООП (а иначе откуда TStringGrid?), вуз таки с уклоном в программирование.
|
Цитата:
благодарю за помощь. |
Цитата:
я обращаюсь за помощью что бы просто сдать последнюю работу, а не для изучения программирования. |
Я не профессиональный программист, как уважаемый Vladimir_S (пусть поправит меня, если я где ошибся), вот реально работающий код:
{Сетка StringGrid заполняется значениями массива на этапе создания формы. Можно реализовать и по нажатии кнопки - это, надеюсь, непринципиально} procedure TForm1.FormCreate(Sender: TObject); {данные массива нам заданы, поэтому декларируем в константах} const MyArray :array[1..4,1..4] of integer=((-4,3,2,3),(5,6,9,13),(-7,11,-8,11),(45,-4,31,-4)); var i,j: Integer;//объявляем переменные для счётчиков begin for i:=1 to 4 do//матрица у нас 4х4, поэтому выполняем по 4 раза для строк и столбцов for j:=1 to 4 do {для компонента StringGrid определяем координаты ячейки и записываем значения массива, преобразовав числовой тип в строчный} StringGrid1.Cells[j,i]:=IntToStr(MyArray[i,j]); end; |
Надеюсь, мои описания простым языком будут понятны автору.
|
Для полного коленкора автору нужно использовать те же обозначения, что и в задании, видимо (R, m, NS).
|
Часовой пояс GMT +4, время: 21:15. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.