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

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

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

> Двумерный Массив
Skade
сообщение 18.04.2012 15:34
Сообщение #1





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

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


Всех приветствую. Знаю,что нужно своё решение задачи,но я еще совсем новичок в паскале. Вообщем прошу мне помочь,всё хорошо получалось,пока не встретился с массивами unsure.gif.Прошу помочь мне сделать вот такую программу, и желательно, с объяснением,ибо я не хочу просто так без смысла набрать программу,ничего не поняв. Вводятся значения элементов массива 5х6 с клавиатуры, диапазон чисел от 1 до 20. Нужно вывести на экран массив(матрицу) 5х6, заполненный значением квадратов.
Надеюсь на вашу отзывчивость и доброту,а не на фразы вроде "выкладывай своё решение сюда". Я бы с удовольствием,но еще раз повторю,с массивами очень плохо.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 4)
Artem7
сообщение 18.04.2012 17:20
Сообщение #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 
 К началу страницы 
+ Ответить 
Skade
сообщение 18.04.2012 17:34
Сообщение #3





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

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


большое спасибо. еще одно,у меня, при вводе выше данной программы,ответ выводит в строчку..разве не должно выводить таблицой?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Artem7
сообщение 18.04.2012 17:41
Сообщение #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 
 К началу страницы 
+ Ответить 
Skade
сообщение 18.04.2012 17:47
Сообщение #5





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

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


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

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

 



- Текстовая версия 14.07.2025 2:09
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"