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

айдар · 09.11.2013, 15:43

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

Vladimir_S · 09.11.2013, 16:21

Цитата:

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

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

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

айдар · 09.11.2013, 22:14

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

айдар · 09.11.2013, 22:24

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

Vladimir_S · 09.11.2013, 22:32

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

айдар · 09.11.2013, 22:43

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

айдар · 09.11.2013, 23:12

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

Vladimir_S · 10.11.2013, 09:16

Цитата:

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

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

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

Цитата:

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

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

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

Цитата:

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

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

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

Цитата:

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

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

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

Цитата:

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

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

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

Успехов!

айдар · 10.11.2013, 10:47

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

айдар · 11.12.2013, 19:07

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

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

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.

09.11.2013, 15:43	#1 (permalink)
айдар Новичок Регистрация: 03.11.2013 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Информатика на Паскале Дана квадратная целочисленная матрица размера 4х4. Заменить нулями элементы матрицы, лежащие на главной диагонали. задача на двумерный массив

09.11.2013, 22:32	#5 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Ладно, держите. Но вообще самым серьёзным образом советую слезть с этой "форумной иглы" и забыть манеру получив задание тут же выбрасывать его на форумы. Если не возьметесь за ум, придется "отчисляться". Гарантия - 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.

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

09.11.2013, 22:14	#3 (permalink)
айдар Новичок Регистрация: 03.11.2013 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	просто я много болел и пропустил много(, сейчас не вникаю,а отчислиться не хочу. я пробую делать , но у меня уже столько касяков набралось, что щас все давит и не получается...

09.11.2013, 22:24	#4 (permalink)
айдар Новичок Регистрация: 03.11.2013 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	я попробую , Владимир спасибо за совет))

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

09.11.2013, 22:43	#6 (permalink)
айдар Новичок Регистрация: 03.11.2013 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	о спасибо большое, тока вот щас задачи ведь посложнее пойдут, а мне как их сдать если не понимаю, а так по всем остальным предметам я лидер)

09.11.2013, 23:12	#7 (permalink)
айдар Новичок Регистрация: 03.11.2013 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	я разобрал решение и почитал из интернета как такие делать и кажется немного понял)). преподу надо все обьяснять. дальнейшие задания буду пробывать делать до патери пульса), если не получиться , то можно обратиться к вам Владимир?

10.11.2013, 10:47	#9 (permalink)
айдар Новичок Регистрация: 03.11.2013 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	ага) спасибо))

11.12.2013, 19:07	#10 (permalink)
айдар Новичок Регистрация: 03.11.2013 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Здравствуйте. Неподскажите правильно ли я решил. Дана целочисленная прямоугольная матрица. Определить сумму элементов в тех столбцах, которые не содержат отрицательных элементов. 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.