IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
Closed Topic Открыть новую тему 
> Интересная задачка, Это надо увидеть....
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


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 Сдавать на днях....
Если все пучком будет я потом вам клиентиков сюда приведу....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


поиск
****

Группа: Пользователи
Сообщений: 347
Пол: Мужской
Реальное имя: nir

Репутация: -  2  +


Вот мой набросок потестируй и спрашивай если пока я печатал никто не написал лучше могут быть ошибки


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 ;




Сообщение отредактировано: renesko1 -


--------------------
typedef void Śūnyatā ;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


у тебя матрица 11*13, а заполняешь ты 11*12


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


поиск
****

Группа: Пользователи
Сообщений: 347
Пол: Мужской
Реальное имя: nir

Репутация: -  2  +


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 .




Сообщение отредактировано: renesko1 -


--------------------
typedef void Śūnyatā ;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


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

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

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

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гуру
*****

Группа: Пользователи
Сообщений: 1 168
Пол: Мужской
Реальное имя: Сергей Андрианов

Репутация: -  28  +


Если требуется найти ПОСЛЕДНЮЮ строку, то и искать следовало бы не с начала, а с конца. Чтобы не делать лишнюю работу.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


поиск
****

Группа: Пользователи
Сообщений: 347
Пол: Мужской
Реальное имя: nir

Репутация: -  2  +


Не подумал
Ну тогда downto и просто берется первая строчка с вып. условием а дальше просто заполняется массив.


--------------------
typedef void Śūnyatā ;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


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 слово держу.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


М
Закрыто. См. выше.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 17:41
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name