Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6451
Последний выпуск: 19.06.2015

Нужно подкорректировать код, а то он не правильно работает

88K
18 декабря 2018 года
GalkaVrednaja
2 / / 18.12.2018
Добрый день. Прошу помощи. Давно не работал с паскалем, а тут с племяницей нужно решить задачу, и у нас все не получается.
Задача:
Ввести массив Х (5, 5). Вычислить элементы массива Y по формуле (Система):


Вывести исходный и результирующий массивы.
Код вставляю, понимаю, что делаем что-то не то, но не можем понять что. Давно с Паскалем не работал.
Код:
const
    n = 5;
var
    x: array[1..n,1..n] of integer;
    Y: array[1..n,1..n] of integer;
    i,j: integer;
 begin
  for i := 1 to n do
  for j := 1 to n do
      begin
      write('x[',i,',',j,']=');
       readln(x[i,j]);
end;
 
for i:=1 to n do
      begin
      for j:=1 to n do write(x[i,j],' ');
      writeln;
end;
begin
  for i := 1 to n do
  for j := 1 to n do
  If x[i,j]>0 then
  y[i,j]:=2*x[i,j];
  else
  if x[i,j]=0 then
  y[i,j]:=0
  else
  y[i,j]:=-x[i,j];
 
 
 write(y[i,j]);
 
writeln;
end;
 
end.
246
18 декабря 2018 года
wanja
1.2K / / 03.02.2003
Код:
for i := 1 to n do
  begin
  for j := 1 to n do
  begin
  If x[i,j]>0 then
  y[i,j]:=2*x[i,j];
  else
  if x[i,j]=0 then
  y[i,j]:=0
  else
  y[i,j]:=-x[i,j];
  write(y[i,j]);
  end;
  writeln;
end;
88K
18 декабря 2018 года
GalkaVrednaja
2 / / 18.12.2018
Цитата: wanja
Код:
for i := 1 to n do
  begin
  for j := 1 to n do
  begin
  If x[i,j]>0 then
  y[i,j]:=2*x[i,j];
  else
  if x[i,j]=0 then
  y[i,j]:=0
  else
  y[i,j]:=-x[i,j];
  write(y[i,j]);
  end;
  writeln;
end;

Огромное вам спасибо.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог