mille

Массив размещаем с помощью TStringGrid с Additional
Помогите, а то я сильно тупой

Миниатюры

 

Alex GFDS

А зачем тогда тупому такие задачи пытаться решать?
Какой смысл?

mille

не слететь со стипендии.

Vladimir_S

Понятно. Только, видите ли, тут такое дело... С программированием — не пойдёт. Либо Вы осваиваете азы этой науки, а дальше всё становится просто и понятно, либо... боюсь, что слётом со стипендии дело не ограничится. Потому что вариант "тупо бездумно скатать и сдать" здесь не катит. Так что мой Вам совет: пока не поздно (а ещё ноябрь, так что время есть) беритесь за ум. Причём желательно за собственный.

vasilych

Программирование нынче в кулинарном техникуме преподают или я упустил что? Наверное, всё-таки, вуз профильный. Смысл было связываться с тем, в чём совсем никак? Судя по тому, что речь не о гольном Паскале, а налицо уже ООП (а иначе откуда TStringGrid?), вуз таки с уклоном в программирование.

__________________
Одна голова - хорошо, а три - сквозной канал!©

mille

Вуз не профильный. Программирование ознакомительное(первый семестр).

благодарю за помощь.

mille

Спасибо за непрошенный совет, но я вынуждена отказаться. Занимать всё своё свободное время изучением ознакомительного курса(длительностью всего 1 семестр), который я пропустила по серьезной причине, я не собираюсь.
я обращаюсь за помощью что бы просто сдать последнюю работу, а не для изучения программирования.

vasilych

Я не профессиональный программист, как уважаемый 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;

__________________
Одна голова - хорошо, а три - сквозной канал!©

vasilych

Надеюсь, мои описания простым языком будут понятны автору.

__________________
Одна голова - хорошо, а три - сквозной канал!©

vasilych

Для полного коленкора автору нужно использовать те же обозначения, что и в задании, видимо (R, m, NS).

__________________
Одна голова - хорошо, а три - сквозной канал!©