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

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

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

> Ошибка, выводит нули, что неправильно?
Гость_Caries
сообщение 9.11.2004 16:45
Сообщение #1


Гость






Вот программа, суть - задается нижнетругольная матрица р-ра 7 на 7, далее ее нужно зеркально отобразить в матрицу b р-ра 7 на 7 и вывести. Но при выводе выводит почему-то одни нули. Подскажите пожалуйста что не так?

Код
program matrix;
var a:array[1..7,1..7] of Integer;
n:integer; b : array[1..7,1..7] of Integer; i,j:integer;
begin
n:=7;
for i:=1 to n do
begin
 for j:=1 to i do
  read(a[i,j]);
end;
for j:=1 to n do
begin
 for i:=1 to j do
  a[i,j]:=0;
 end;
for i:=1 to n do
begin
 for j:=1 to i do
  a[i,j]:=b[j,i];
end;
for i:=1 to n do
begin
 for j:=1 to n do
  write(b[i,j]:4);
 end;
writeln
end.

НЕ ЗАБЫВАЕМ ВКЛЮЧАТЬ КОД В ТЕГИ!

Сообщение отредактировано: APAL - 9.11.2004 16:55
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 

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