Помощь - Поиск - Пользователи - Календарь
Полная версия: Интересная задачка
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Ruslan4ik
good.gif Дана целочисленная матрица размера М на Н. Найти номер последней из её строк, содержащих, только чётные числа. Если таких строк нет то вывести 0

Для отладки программы исходную матрицу сформировать с помощью генератора случайных чисел.

Начал и запутался....

Program massive
var
A:array[1..N,1..M]of real;
i,j;integer;
begin
for i:=1 to N do read(A(i,j));
for j:=1 to M do
а дальше no1.gif

ПЖЛ решите, а за мной не заржавеет.... отблагодарю... пишите в аську 499787410 Сдавать на днях....
Если все пучком будет я потом вам клиентиков сюда приведу....
renesko1
Вот мой набросок потестируй и спрашивай если пока я печатал никто не написал лучше могут быть ошибки


const
m = 10 ;
n = 12 ;

type
a = array [0..m,0..n] of real ;
var
mas : a ;
i, k, c, str : byte ;
begin
for i :=0 to m do begin
for k := 0 to n do
begin
mas[i,k] := random(101);
write(mas[i, k]:4);
if (mas[i, k] mod 2) = 0 then inc© ;
if c = m then str := i ;
end ;
writeln;
end ;

writeln(str);

end ;


klem4
у тебя матрица 11*13, а заполняешь ты 11*12
renesko1
Entschuldigung Sie bitte сейчас исправлю свою рассейность


Первый пост глупость каюсь

дубль 2



program test ;
const
m = 2 ; // столбы
n = 2 ; // строки
type
a = array [1..n,1..m] of byte ;
var
mas : a ;
i, k, c, str : byte ;
begin
str := 0 ;
randomize ;

for i :=1 to n do
begin
c := 0 ;
for k := 1 to m do
begin
mas[i,k] := random(101);
write(mas[i, k]:4);
if mas[i, k] mod 2 = 0 then inc© ;
if c = m then str := i ;
end ;
writeln;
end ;
writeln(str);
end .


Michael_Rybak
это просто дичайше интересная задачка.

мне обязательно надо было это увидеть. как и всем.

М
тему переименуй smile.gif

andriano
Если требуется найти ПОСЛЕДНЮЮ строку, то и искать следовало бы не с начала, а с конца. Чтобы не делать лишнюю работу.
renesko1
Не подумал
Ну тогда downto и просто берется первая строчка с вып. условием а дальше просто заполняется массив.
Ruslan4ik
good.gif .....
program massive ;
const
m = 2 ; // stolbiki
n = 8 ; // stroki
type
a = array [1..n,1..m] of byte ;
var
mas : a ;
i, k, c, str : byte ;
begin
str := 0 ;
randomize ;

for i :=1 to n do
begin
c := 0 ;
for k := 1 to m do
begin
mas[i,k] := random(101);
write(mas[i, k]:4);
if mas[i, k] mod 2 = 0 then inc© ;
if c = m then str := i ;
end ;
writeln;
end ;
writeln(str);
readln;-------------добавил сам,
end .
На моем Турбе пошел.... завтра-послезавтра покажу преподу.... RENESKO слово держу.....
Michael_Rybak
М
Закрыто. См. выше.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.