Технический форум

Технический форум (http://www.tehnari.ru/index.php)
-   Помощь студентам (http://www.tehnari.ru/forumdisplay.php?f=41)
-   -   Паскаль, 1 курс, массив, TStringGrid (http://www.tehnari.ru/showthread.php?t=269910)

mille 25.11.2020 01:38

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

Alex GFDS 25.11.2020 03:45

Цитата:

Сообщение от mille (Сообщение 2731725)
Помогите, а то я сильно тупой

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

mille 25.11.2020 10:13

Цитата:

Сообщение от Alex GFDS (Сообщение 2731728)
А зачем тогда тупому такие задачи пытаться решать?
Какой смысл?

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

Vladimir_S 25.11.2020 10:49

Цитата:

Сообщение от mille (Сообщение 2731745)
не слететь со стипендии.

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

vasilych 25.11.2020 14:24

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

mille 26.11.2020 00:11

Цитата:

Сообщение от vasilych (Сообщение 2731768)
Программирование нынче в кулинарном техникуме преподают или я упустил что?

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

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

mille 26.11.2020 00:17

Цитата:

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

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

vasilych 26.11.2020 12:13

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

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

vasilych 26.11.2020 12:19

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


Часовой пояс GMT +4, время: 21:15.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.