
Надеюсь на вашу отзывчивость и доброту,а не на фразы вроде "выкладывай своё решение сюда". Я бы с удовольствием,но еще раз повторю,с массивами очень плохо.
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Skade |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Реальное имя: Ернур Репутация: ![]() ![]() ![]() |
Всех приветствую. Знаю,что нужно своё решение задачи,но я еще совсем новичок в паскале. Вообщем прошу мне помочь,всё хорошо получалось,пока не встретился с массивами
![]() Надеюсь на вашу отзывчивость и доброту,а не на фразы вроде "выкладывай своё решение сюда". Я бы с удовольствием,но еще раз повторю,с массивами очень плохо. |
Artem7 |
![]() ![]()
Сообщение
#2
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 54 Пол: Мужской Репутация: ![]() ![]() ![]() |
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.
|
Skade |
![]()
Сообщение
#3
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Реальное имя: Ернур Репутация: ![]() ![]() ![]() |
большое спасибо. еще одно,у меня, при вводе выше данной программы,ответ выводит в строчку..разве не должно выводить таблицой?
|
Artem7 |
![]() ![]()
Сообщение
#4
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 54 Пол: Мужской Репутация: ![]() ![]() ![]() |
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.
Поспешил чуток) |
Skade |
![]()
Сообщение
#5
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Реальное имя: Ернур Репутация: ![]() ![]() ![]() |
Всё,всё нормально работает.Огромное спасибо.Удачи Вам.
|
![]() ![]() |
![]() |
Текстовая версия | 19.04.2025 4:03 |