Доброго времени суток всем. Очень нуждаюсь в помощи по написанию этих задач. Поступил в институт, и дали эти задачи, раньше никогда не сталкивался с Паскалем. Разработка в среде Turbo Pascal программы упорядочения строк матрицы по заданному условию. Дана целочисленная квадратная матрица. Для отладки программы числа последовательности сформировать с помощью генератора случайных чисел. Буду очень благодарен за помощь!
1 задание PHP: var matrix:array [1..10,1..10] of integer; i,j:integer; zeropresent:boolean; begin Randomize; for i:=1 to 10 do begin for j:=1 to 10 do begin matrix[i,j]:=Random(6); write(matrix[i,j]:3); end; writeln; end; zeropresent:=false; for i:=1 to 10 do begin for j:=1 to 10 do if matrix[i,j]=0 then zeropresent:=true; if zeropresent=true then begin zeropresent:=false; continue; end else begin Writeln('Stroka ',i,' ne soderjit ni odnogo 0 elementa'); Readln; Break; end; end; if zeropresent=true then Writeln('Net strok bez 0 elementov'); Readln; end.
2 задание (возможно я его не верно понял) PHP: var matrix:array [1..10,1..10] of integer; i,j:integer; x:integer; begin Randomize; for i:=1 to 10 do begin for j:=1 to 10 do begin matrix[i,j]:=Random(6); write(matrix[i,j]:3); end; writeln; end; writeln; for i:= 1 to 9 do for j:=1 to 9 do if sqr(matrix[j,10])<sqr(matrix[j+1,10]) then begin x:=matrix[j,10]; matrix[j,10]:=matrix[j+1,10]; matrix[j+1,10]:=x; end; for i:=1 to 10 do begin for j:=1 to 10 do write(matrix[i,j]:3); writeln; end; Readln; end.
#colorblind Большущее спасибо тебе! Хорошо что есть такие люди. Поправил. В 1ой задаче при отсутствии нулей не выводилось сообщение, заменил PHP: if zeropresent=false then Writeln('Net strok bez 0 elementov'); Readln; end. При не нахождении нулей вылетает оповещение что строк нет,нажимая enter вылетает еще раз эта строчка , нажимая еще раз enter окно закрывается. Но я думаю к этому препод не докопается. Еще раз спасибо!
