ПРОГРАММИРОВАНИЕ ПАСКАЛЬПроверить, все ли строчки матрицы C(n1n2) содержат желая бы один
ПРОГРАММИРОВАНИЕ ПАСКАЛЬ
Проверить, все ли строки матрицы C(n1n2) содержат хотя бы один отрицательный элемент, если не все, сказать номер первой, где нет отрицательных элементов.
ВНИМАНИЕ: ВСЕ ЭТО ВЫПОЛНИТЬ БЕЗ ЦИКЛА FOR, ТОЛЬКО WHILE Либо REPEAT.
Маргарита Катошина
Рекурсия, пришло твоё время. Работаю.
Ремезов
Константин
Ах, мыслил вообще не использовать циклы. Хорошо, так легче.
1 ответ
Арина Валлич
Var ar:array of array of integer;
n1,k,i,n2,j:integer;
b:boolean;
begin;
readln(n1);
readln(n2);
inc(n1);
inc(n2);
k:=1;
setlength(ar,n1+1);
while klt;gt;n1 do
begin;
setlength(ar[k],n2+1);
inc(k);
end;
b:=false;
k:=0;
i:=1;
j:=1;
writeln('Matrix:');
while ilt;gt;n1 do
begin;
writeln;
while jlt;gt;n2 do
begin;
ar[i,j]:=random(100)-50;
write(ar[i,j]:4);
inc(j);
end;
j:=1;
inc(i);
end;
i:=1;
j:=1;
while ilt;gt;n1 do
begin;
while jlt;gt;n2 do
begin;
if ar[i,j]lt;0 then b:=true;
inc(j);
end;
if b=false then
begin;
writeln;
writeln(i);
exit;
end;
b:=false;
inc(i);
j:=1;
end;
writeln;
writeln('Все');
end.
n1,k,i,n2,j:integer;
b:boolean;
begin;
readln(n1);
readln(n2);
inc(n1);
inc(n2);
k:=1;
setlength(ar,n1+1);
while klt;gt;n1 do
begin;
setlength(ar[k],n2+1);
inc(k);
end;
b:=false;
k:=0;
i:=1;
j:=1;
writeln('Matrix:');
while ilt;gt;n1 do
begin;
writeln;
while jlt;gt;n2 do
begin;
ar[i,j]:=random(100)-50;
write(ar[i,j]:4);
inc(j);
end;
j:=1;
inc(i);
end;
i:=1;
j:=1;
while ilt;gt;n1 do
begin;
while jlt;gt;n2 do
begin;
if ar[i,j]lt;0 then b:=true;
inc(j);
end;
if b=false then
begin;
writeln;
writeln(i);
exit;
end;
b:=false;
inc(i);
j:=1;
end;
writeln;
writeln('Все');
end.
Нелли Литерштейн
а можете мою поправить?
Regina Gromina
const n1max = 10; n2max = 10;type matrix = array [1..n1max, 1..n2max] of integer;var n1, n2, i, j: integer; C: matrix; dat, res: textFile; k, nomer: integer; flag: boolean;procedure proverka(C: matrix; n1,n2: integer; var flag: boolean);var i, j: integer;begini:=1;j:=1; while (i<=n1) do begin while (j<=n2) do begin flag:=false; while (flag = false) do if ( C[i,j] > 0 ) then flag:=false else flag:=true;end;inc(j);end;inc (i);end
Степа Чубуркин
procedure poiskstrok(C: matrix; n1,n2: integer; var nomer: integer );varflag: boolean;i, j: integer;begini:=1;j:=1;while (i<=n1) do begin while (j<=n2) do begin flag:=false; while (flag = false) do if ( C[i,j] > 0 ) then flag:= false; k:= i;inc (j);end;inc(i);end;end;begin AssignFile(dat, 'Vvod.txt');Reset(dat); AssignFile(res, 'Vivod.txt');Rewrite(res); readln(dat, n1, n2); writeln(res, 'Ishod matrica A (', n1, 'x', n2, '):'); for i := 1
Тонха
Олеся
for i := 1 to n1 do for j := 1 to n2 do read(dat, C[i, j]); for i := 1 to n1 do begin for j := 1 to n2 do begin write(res, '', C[i, j]:5); write(res, ' '); end; writeln(res, ''); end; proverka(C, n1, n2, flag); poiskstrok(C, n1, n2, nomer); if (flag = true) then writeln(res,'Vse stroki sodersh otr element') else writeln(res,'Nomer pervoi stroki bez otric elem =', k); CloseFile(dat);CloseFile(res); readln;end.
Vostorgova Larisa
это все одна программа
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Облако тегов