IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Двумерный Массив
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Ернур

Репутация: -  0  +


Всех приветствую. Знаю,что нужно своё решение задачи,но я еще совсем новичок в паскале. Вообщем прошу мне помочь,всё хорошо получалось,пока не встретился с массивами unsure.gif.Прошу помочь мне сделать вот такую программу, и желательно, с объяснением,ибо я не хочу просто так без смысла набрать программу,ничего не поняв. Вводятся значения элементов массива 5х6 с клавиатуры, диапазон чисел от 1 до 20. Нужно вывести на экран массив(матрицу) 5х6, заполненный значением квадратов.
Надеюсь на вашу отзывчивость и доброту,а не на фразы вроде "выкладывай своё решение сюда". Я бы с удовольствием,но еще раз повторю,с массивами очень плохо.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 54
Пол: Мужской

Репутация: -  0  +


Program matrica;
Const n=5; { Количество столбцов }
m=6; { Количество строк матрицы }
Var
matrica:array[1..n, 1..m] of integer;
i,j:integer;
Begin
For i:=1 to n do
For j:=1 to m do readln(A[i,j]); {Ввод матрицы с клавиатуры}
For i:=1 to n do
For j:=1 to m do write(sqr(A[i,j])); {Вывод получившийся}
readln;
End.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Ернур

Репутация: -  0  +


большое спасибо. еще одно,у меня, при вводе выше данной программы,ответ выводит в строчку..разве не должно выводить таблицой?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Пионер
**

Группа: Пользователи
Сообщений: 54
Пол: Мужской

Репутация: -  0  +


Program matrica;
Const n=5; { Количество столбцов }
m=6; { Количество строк матрицы }
Var
matrica:array[1..n, 1..m] of integer;
i,j:integer;
Begin
For i:=1 to n do
For j:=1 to m do readln(A[i,j]); {Ввод матрицы с клавиатуры}
For i:=1 to n do
Begin
For j:=1 to m do write(sqr(A[i,j]):4); {Вывод получившийся}
writeln; {Перевод строки}
End;
readln;
End.


Поспешил чуток)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Ернур

Репутация: -  0  +


Всё,всё нормально работает.Огромное спасибо.Удачи Вам.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 19.05.2024 1:59
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name