VPF::Верна ли программка 2? - Форум программистов

major

Дата 7.11.2005, 08:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 25.2.2005
Где: Москва, ЮАО

Репутация: нет
Всего: нет

Задача написать программу.

Дана квадратная матрица N*N состоящая из целых чисел. Зеркально отразить
ее элементы относительно побочной диагонали. Вывести результат на экран.

Вот мой код. Верен ли он? Если нет пожалуйста исправте.

Код


program pasha1_1;
uses crt;
var
i,sum,b,c:integer;
k:boolean;
m:array[1..100] of integer;
begin
clrscr;
for i:=1 to 100 do
begin
Readln(m[i]);
if m[i]=0 then
begin
b:=i-1;
break;
end;
end;
For i:=1 to b do
begin
sum:=sum+m[i];
if sum>0 then
k:=true
else
k:=false;
end;
writeln(k);
readkey;
end.

MFSham

Дата 7.11.2005, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 220
Регистрация: 28.8.2005
Где: Беларусь, Гродно

Репутация: 1
Всего: 3

Нет, код неправильный.

Цитата(major @ 7.11.2005, 08:28)

Дана квадратная матрица N*N

Условие такое, а ты создаешь в коде только одномерный массив. И что значит побочная диагональ. Может главная?

--------------------

Без ветра трава неподвижна. Без программ компьютеры бесполезны.

St. Andrew

Дата 7.11.2005, 22:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 28.3.2005
Где: Санкт-Петербург

Репутация: 5
Всего: 8

MFSham, побочная диагональ - это нормальный термин. Она проходит от элемента a[n][1] до a[1][n] и равна по длине главной диагонали.

major, действительно, почему массив-то одномерный? "Це ж матрица!" smile

--------------------

Оглянитесь вокруг! В мире так много прекрасного!

darkart

Дата 10.11.2005, 00:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

Что-то вроде этого:

Код


program Matrix1;
const
  n=3;//размерность матрицы
type
  TMatrix=array[1..n,1..n] of integer;
var
  iTemp,i,j:integer;
  M:TMatrix;
begin
  writeln('Please enter a matrix(',n,'x',n,'):');
  for i:=1 to n do
  begin
    for j:=1 to n-1 do
      read(M[i,j]);
    readln(M[i,n]);
  end;
  for i:=1 to n-1 do
    for j:=1 to n-i do
    begin
      iTemp:=M[i,j];
      M[i,j]:=M[n-j+1,n-i+1];
      M[n-j+1,n-i+1]:=iTemp;
    end;
  writeln('Result:');  
  for i:=1 to n do
  begin
    for j:=1 to n-1 do
      write(M[i,j],' ');
    writeln(M[i,n]);
  end;
  readln;
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »