Информатика на Паскале - Страница 2

Vladimir_S · 11.12.2013, 19:29

Цитата:

Сообщение от айдар

Здравствуйте. Неподскажите правильно ли я решил.

Подскажу. Абсолютно неправильно. Вместо того, чтобы пройтись по матрице, определить номера столбцов, НЕ СОДЕРЖАЩИХ отрицательных элементов, а уже потом, найдя такие столбцы, просуммировать их элементы, Вы в каждом столбце суммируете все элементы, кроме отрицательных, да еще к тому же зачем-то после прибавления каждого элемента выводите сообщение о текущем значении суммы.
Ладно, сейчас покажу, как правильно.

Vladimir_S · 11.12.2013, 19:50

А правильно, например, вот так:

Код:

var
 a: array [1..3,1..4] of integer;
 i,j,sum:integer;
 b:boolean;
begin
 Randomize;
 for i:=1 to 3 do
  begin
   write('     ');
   for j:=1 to 4 do
    begin
     a[i,j]:= random(10)-1;
     write (a[i,j]:4);
    end;
   writeln;
  end;
 writeln;
 write('Sum: ');
 for j:=1 to 4 do
  begin
   b:=true;
   sum:=0;
   for i:=1 to 3 do
    if a[i,j]<0 then b:=false;
   if b then
    begin
     for i:=1 to 3 do sum:=sum+a[i,j];
     write(sum:4);
    end
    else write('    ');
  end;
 readln
end.

Извините - не могу удержаться. Посмотрел внимательно Вашу программу - полный ужас! Генератор случайных чисел не запущен, строки со столбцами перепутаны, в общем, что-то незнамо что вокруг да около. Поймите: компьютер и транслятор не понимают "общих соображений", тут нужна предельная точность и выверенность каждого значка, а не шаляй-валяй.
В общем, учитесь, осваивайте. Если что, обращайтесь.
Успехов!

11.12.2013, 19:50	#12 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	А правильно, например, вот так: Код: var a: array [1..3,1..4] of integer; i,j,sum:integer; b:boolean; begin Randomize; for i:=1 to 3 do begin write(' '); for j:=1 to 4 do begin a[i,j]:= random(10)-1; write (a[i,j]:4); end; writeln; end; writeln; write('Sum: '); for j:=1 to 4 do begin b:=true; sum:=0; for i:=1 to 3 do if a[i,j]<0 then b:=false; if b then begin for i:=1 to 3 do sum:=sum+a[i,j]; write(sum:4); end else write(' '); end; readln end. Извините - не могу удержаться. Посмотрел внимательно Вашу программу - полный ужас! Генератор случайных чисел не запущен, строки со столбцами перепутаны, в общем, что-то незнамо что вокруг да около. Поймите: компьютер и транслятор не понимают "общих соображений", тут нужна предельная точность и выверенность каждого значка, а не шаляй-валяй. В общем, учитесь, осваивайте. Если что, обращайтесь. Успехов!

11.12.2013, 19:29
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Вам обязательно помогут советом, а пока можете открыть в браузере схожие обсуждения Информатика На Паскале

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070