Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.05.2014, 11:33   #1
Виталик124
Пользователь
 
Регистрация: 08.02.2014
Сообщений: 37
По умолчанию Не могу вывести матрицу!

Код:
program praktika_A;

var
  h, u, k, n, m, i, j: byte;
  a: array[1..50, 1..50] of integer;
  p: integer;
  b: array[1..100] of integer;
  c: array[1..50] of integer;

begin
  u := 0;
  p := 1;
  k := 0;
  randomize;
  writeln('vvedite_kolichestvo_strok : ');
  readln(n);
  writeln('vvedite_kolichestvo_stolbcov : ');
  readln(m);
  for i := 1 to n do 
   begin
    for j := 1 to m do 
     begin
      a[i, j] := random(10) - 4;
      write(a[i, j]:4);
      if i = 1 then
       begin
        u := u + 1;
        c[u] := a[1, j];
       end;
     end;
    writeln;
  end;
  writeln;
  for i := 1 to u do 
    write(c[i]:4);
  for i := 1 to u do 
    p := p * c[i];
  writeln;
  writeln('proizvedenie_pervoj_stroki : ', p);
  if p > 0 then
  begin
    for i := 1 to n do 
      for j := 1 to m do
      begin
        k := k + 1;
        b[k] := a[i, j];
      end;
    for i := 1 to k do 
      write(b[i]:4);
  end;
  if p <= 0 then
  begin
    for i := 1 to n do 
      for j := 1 to m do;
    writeln(a[i, j]);
  end;
end.
Если отрицательное произведение, то программа должна выводить всю матрицу, а она мне выводит только одну цифру (последнюю).

Последний раз редактировалось Виталик124; 10.05.2014 в 11:37.
Виталик124 вне форума Ответить с цитированием
Старый 10.05.2014, 12:40   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
if p <= 0 then
begin
for i := 1 to n do
for j := 1 to m do;
writeln(a[i, j]);
end;
Точку с запятой видишь - она тебе и мешает.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 10.05.2014, 20:07   #3
Виталик124
Пользователь
 
Регистрация: 08.02.2014
Сообщений: 37
По умолчанию

Пасиб! Если честно, долго искал ошибку?
Виталик124 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Красиво вывести матрицу schibeki Общие вопросы Delphi 4 12.02.2014 22:25
Как вывести матрицу.С++. RG21 Помощь студентам 1 27.05.2013 20:49
C# Считать матрицу и вывести ответ. bestnicer Помощь студентам 7 08.11.2012 12:09
Из трех массивов вывести матрицу Shukhrat Паскаль, Turbo Pascal, PascalABC.NET 2 13.04.2011 10:16