Доброго времени суток всем! Народ помогите пожалуйста решить легенькую задачку по паскалю. Решил все остольные задачки, а эту не могу((. Вы моя последняя надежда, иначе меня отчислят с универа((.
Дан двумерный массив размерности NxM. Определить количество элементов, значения которых не кратны заданному числу А.
Некит
14.09.2011 0:31
Цитата(Maratik @ 13.09.2011 19:05)
Доброго времени суток всем! Народ помогите пожалуйста решить легенькую задачку по паскалю. Решил все остольные задачки, а эту не могу((. Вы моя последняя надежда, иначе меня отчислят с универа((.
Дан двумерный массив размерности NxM. Определить количество элементов, значения которых не кратны заданному числу А.
Пиши <cut> Некит, читай Правила Lapp
Lapp
14.09.2011 2:59
Цитата(Maratik @ 13.09.2011 19:05)
Дан двумерный массив размерности NxM. Определить количество элементов, значения которых не кратны заданному числу А.
не пойму, что ты в ней нашел такого трудного, что все решил, а ее - нет..
k:= 0; for i:=1 to n do for j:=1 to m do if b[i,j] mod a <> 0 then Inc(k);
Maratik
14.09.2011 15:24
Сам в шоке, чес слово. Получается вот так?
Uses Crt; var D: array[1..100,1..100] of integer; a,n,m,i,j,k: integer; Begin Clrscr; Randomize; k:=0; Read(n,m,a); For i:=1 to n do For j:=1 to m do D[i,j]:=random(20); For i:=1 to n do begin For j:=1 to m do Write(D[i,j],' '); writeln; end; For i:=1 to n do For j:=1 to m do if b[i,j] mod a <> 0 then Inc(k) Writeln(k); Readln; Readln; end.
Lapp
15.09.2011 10:16
Цитата(Maratik @ 14.09.2011 12:24)
Сам в шоке, чес слово. Получается вот так?
Почему массив называется D, а вычисления ты проводишь с b? Давай уже, выходи из шока - пора! И одной ";" не хватало. Короче, вот так примерно:
var D: array[1..100,1..100] of integer; a,n,m,i,j,k: integer; Begin Randomize; k:=0; ReadLn(n,m,a); For i:=1 to n do For j:=1 to m do D[i,j]:=random(20); For i:=1 to n do begin For j:=1 to m do Write(D[i,j],' '); writeln; end; For i:=1 to n do For j:=1 to m do if d[i,j] mod a <> 0 then Inc(k); Writeln(k); Readln; end.
Еще: 1. если будешь читать readln'ом, а не read'ом, то не понадобиться внизу писать много readln. 2. все же надо писать какое-то приглашение на ввод и пояснения к результату. 3. обрати внимание на форматирование кода.
Maratik
15.09.2011 13:39
Огромное спасибо тебе!!!!!!!!!! Не предстовляешь как выручил!!!!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.