Информатика на Паскале

[айдар]

Информатика на Паскале

Дана квадратная целочисленная матрица размера 4х4. Заменить нулями элементы матрицы, лежащие на главной диагонали. задача на двумерный массив

 

[Vladimir_S]

Дана квадратная целочисленная матрица размера 4х4. Заменить нулями элементы матрицы, лежащие на главной диагонали. задача на двумерный массив

Так, уважаемый Айдар - хватит! Давайте-ка браться за ум (собственный) и начинать учиться. Задачка настолько простая, глупая и примитивная, что просить помощи просто стыдно.
Не обижайтесь, но подумайте сами - если Вы с подобной ерундой просите "помощи", то что дальше будет? Ведь задачи проще не станут - будут только усложняться. И что - решили, что всё обучение сможете на форумах проездить? Не выйдет, уж поверьте.
Так что пожалуйста - пишите, выкладывайте, а мы поможем, поправим, объясним.
Удачи!

 

[айдар]

просто я много болел и пропустил много(, сейчас не вникаю,а отчислиться не хочу. я пробую делать , но у меня уже столько касяков набралось, что щас все давит и не получается...

 

[айдар]

я попробую , Владимир спасибо за совет))

 

[Vladimir_S]

Ладно, держите.
Но вообще самым серьёзным образом советую слезть с этой "форумной иглы" и забыть манеру получив задание тут же выбрасывать его на форумы. Если не возьметесь за ум, придется "отчисляться". Гарантия - 100%.

Var
 A:Array[1..4,1..4] of Byte;
 i,j:Byte;
Begin
 Randomize;
 for i:=1 to 4 do
  begin
   for j:=1 to 4 do
    begin
     A[i,j]:=Random(10);
     Write(A[i,j]:2);
    end;
   Writeln;
  end;
 Writeln;
 for i:=1 to 4 do A[i,i]:=0;
 for i:=1 to 4 do
  begin
   for j:=1 to 4 do
    Write(A[i,j]:2);
   Writeln;
  end;
 Readln
End.

 

[айдар]

о спасибо большое, тока вот щас задачи ведь посложнее пойдут, а мне как их сдать если не понимаю, а так по всем остальным предметам я лидер)

 

[айдар]

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

 

[Vladimir_S]

о спасибо большое, тока вот щас задачи ведь посложнее пойдут, а мне как их сдать если не понимаю, а так по всем остальным предметам я лидер)

А... как дедушка Ленин завещал: "Учиться, учиться и учиться!".

я разобрал решение и почитал из интернета как такие делать и кажется немного понял)).

Прекрасно. Правильным путём пошли.

преподу надо все обьяснять.

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

дальнейшие задания буду пробывать делать до патери пульса)

Ой, вот только пульс терять не надо!

если не получиться , то можно обратиться к вам Владимир?

Разумеется. Буду рад помочь, чем смогу. Но, поймите правильно, это в том только случае, когда я увижу РЕАЛЬНЫЕ попытки решить задачу, составить программу и т.д., а не просто вываленное на форум задание.

Успехов!

 

[айдар]

ага) спасибо))

 

[айдар]

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

Дана целочисленная прямоугольная матрица. Определить сумму элементов в тех столбцах, которые не содержат отрицательных элементов.

var a: array [1..3,1..4] of integer;
i,j,sum:integer;
begin
заполняем и выводим на экран
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
a[i,j]:= random (10)-2;
write (a[i,j],' ');
end;
writeln;
end;
writeln;
for i:=1 to 3 do
for j:=1 to 4 do
if a [i,j]> 0 then
begin
sum:=a[1,j]+a[2,j]+a[3,j]+a[4,j];
writeln (i,' столбец содержит неотрицательные элементы. сумма элементов этих столбцов равна ', sum);
break;
end;
end.

 

[Vladimir_S]

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

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

 

[Vladimir_S]

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

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.

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