Developing.ru

В общем задача такова: Дана символьная матрица S(7,7). Определить номера тех
строк матрицы, которые содержат больше цифр, чем других символов.
Я вывожу эту матрицу из звездочек и цифр. с вводом матрицы вроде нет проблем, но вот с остальным что-то не лады....((((((( Буду очень благодарен за советы..!!!!!


rogram Matrica;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a:array[1..20,1..20] of char;
b:array [1..10] of char = ('0','1','2','3','4','5','6','7','8','9');
i,j,n,m,z,ch,index:integer;
begin
writeln('Vvedite koli4ectvo ctrok(n) i ctolbcov(m): ');
readln(n,m);
writeln('VVedite postro4no ',n,' strok po ',m, ' elementov');
for i:=1 to n do
begin
for j:=1 to m do read(a[i,j]);
readln;
end;
writeln('VVedenniy massiv:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:2);
writeln;
readln;
end;
begin
for i:=1 to n do
begin
ch:=0;
z:=0;
for j:=1 to m do
if a[i,j]=b then
inc(ch);index:=i;
if a[i,j]='*' then
inc(z);
end;
begin
if ch>z then
writeln('nomera strok=',index,);
end;

Ууу...
Проверка:
if (a[i,j]<='9') and (a[i,j]>='0')
Все, больше ничего не надо. Массив b не нужен совершенно
В остальной логике разбираться сложно, используйте тег [ code] - [ /code] (без пробела), а то нечитабельно

Спасибо, но извини что-то я непонял:
Вот код:

В общем у меня не получается с выводом номера строки где больше цифр!!

Creativ_Doc писал(а):В общем у меня не получается с выводом номера строки где больше цифр!!

хорошим стилем было бы писать цикл FOR вот так:

Может из-за этого и косяки получаются у тебя. Т.е. если нету бегина и энда, тогда цикл FOR выполняется только для одного оператора, который следует сразу за ним. То же самое и для оператора IF. Вообще я рекомендую ВСЕГДА ставить begin и end. Сэкономишь уйму времени (за счёт сокращения времени отладки, а также при модернизации проги).

Подскажи пожалуйста: как вот мне номера строк в матрице записать в другой одномерный массив. Большая просьба на примере каком-нибудь.

Creativ_Doc писал(а):Подскажи пожалуйста: как вот мне номера строк в матрице записать в другой одномерный массив. Большая просьба на примере каком-нибудь.

обязательно в массив запихивать одномерный их? можно же по мере нахождения выплёвывать номера на экран

Гм, та же песня, но на новый лад...
Тег code сделан для того, чтобы можно было выделять блоки текста (циклы, подпрограммы и т.д.) отступами. А так - тот же погонный текст, только в рамочке.
В каждой строке делаем проверку (пусть i - номер строки, j - номер элемента в строке)
cifr:=0;
ne_cifr:=0;
for j:=1 to N do
if (a[i,j]<='9') and (a[i,j]>='0') then inc(cifr) else inc(ne_cifr);
if cifr>ne_cifr then writeln ('В строке номер ',i,' цифр больше, чем не цифр');

Спасибо большое!!! Я решил эту задачу...!! Ты подсказал мне очень хороший момент!!! Оказывается все так просто было!!!! Спасибо!!!