ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Паскаль: определить номера столбцов, в которых нет четных элементов
13 сообщений из 13, страница 1 из 1
Паскаль: определить номера столбцов, в которых нет четных элементов
    #38298430
alexander4321
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexander4321
Гость
Добрый день! Требуется определить номера столбцов, в которых нет четных элементов.
Составил следующую программу:
 
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
program sortir;
uses crt;
Var
  x: Array[1..10,1..10] of shortint;
  i,j,n,m,k,kol: shortint;
BEGIN
clrscr;
Randomize;
Repeat
 Writeln('Vvedite razmery pryamougolnoi matritcy: ');
 Readln(n,m);
until n<>m;{proverka, chto matrica ne kvadratnaya}
Writeln('Matritca:');
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    x[i,j]:=Random(51)-10;{diapazon ot -10 do 40}
    Write(x[i,j]:4); {vyvodim matricu}
  end;
  Writeln
end;
begin
    for j := 1 to m do
    begin
    kol := 0;
    for i := 1 to n do {cycl prosmotra stolbca, menyaetsya nomer stroki}
    if (x[i,j] mod 2 <> 0) then
    begin
    inc(kol);
    end;
    if (kol = n)  then writeln ('Stolbec: ', j);
    end;
end;
readln;
end.


Все прекрасно работает на матрицах с количеством столбцов меньше 10. Количество строк не имеет смысла задавать большим, т.к. в таком случае чаще всего в каждом из столбцов будет присутствовать хотя бы один четный элемент.
Так вот, если задать матрицу 3(строки)х8(столбцов), то результат будет верный. А вот если задать матрицу 3 или 4(строки)х20(столбцов), то в первых 10 столбцах выдает верный результат, а вот дальше (заметил уже в 12-м столбце) может выдать номер столбца якобы со всеми нечетными элементами, но один из элементов может запросто оказаться четным. Пробовал тип элементов матрицы менять, не помогло. Не подскажете, в чем может быть дело? Спасибо!
...
Рейтинг: 0 / 0
15.06.2013, 00:05
| Ответить | Цитировать | Написать  
Паскаль: определить номера столбцов, в которых нет четных элементов
    #38298439
Програмёр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмёр
Участник
alexander4321,


Код: pascal
1.
x: Array[1..10,1..10] of shortint;



Надеюсь, когда стараетесь 3х20 делать, тут циферки хоть подправляете?

P.S. Не мне судить конечно, но если я прав в причине ошибки - ставлю под сомнение, что данный код писали Вы сами :)
...
Рейтинг: 0 / 0
15.06.2013, 00:19
| Ответить | Цитировать | Написать  
Паскаль: определить номера столбцов, в которых нет четных элементов
    #38298509
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Програмёрставлю под сомнение, что данный код писали Вы самиЕстественно, видел же, что ТС пишет не сам
Если уж проверка на "квадратность" есть, а на границы массива нет.

alexander4321Припоминаю, что индексы элементов в массиве нумеруются с нуля. Во всех примерах по переборке массивов встречал первым индексом единицу... Поэтому, сильно не ломая над этим голову, предполагаю, что нумерация индексов в созданном в моей программе массиве тоже начинается с единицы.Вот так, и никак иначе! "Предполагаю"...
...
Рейтинг: 0 / 0
15.06.2013, 02:49
| Ответить | Цитировать | Написать  
Паскаль: определить номера столбцов, в которых нет четных элементов
    #38298693
alexander4321
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexander4321
Гость
Програмёр
Код: pascal
1.
x: Array[1..10,1..10] of shortint;



Надеюсь, когда стараетесь 3х20 делать, тут циферки хоть подправляете?
Действительно не подумал об этом. Спасибо!

Програмёр
P.S. Не мне судить конечно, но если я прав в причине ошибки - ставлю под сомнение, что данный код писали Вы сами :)

Особенно и не скрывал это: нашел примерно то, что нужно в интернете, также то, что есть в предыдущих лабораторных. Поковырял, внес изменения и т. д. Хочу сказать, что пришлось поэкспериментировать с кодом, чтобы работало. Если бы я знал, то разве спрашивал бы? А, если не знаю, то нет ничего странного, что пытаюсь найти подходящий код и подогнать его под то, что нужно.
...
Рейтинг: 0 / 0
15.06.2013, 19:42
| Ответить | Цитировать | Написать  
Паскаль: определить номера столбцов, в которых нет четных элементов
    #38298695
Фотография Изопропил
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изопропил
Участник
alexander4321пытаюсь найти подходящий код
а если не искать, а написать?
...
Рейтинг: 0 / 0
15.06.2013, 19:45
| Ответить | Цитировать | Написать  
Паскаль: определить номера столбцов, в которых нет четных элементов
    #38298746
Програмёр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмёр
Участник
Оффтоп, прошу извинить :) .

alexander4321Составил следующую программу
alexander4321Особенно и не скрывал это

Скрывали )). Не скрывали бы - написали: "Нашёл код, постарался переписать... не получилось. Подскажите пожалуйста, что надо сделать"... ну и в том роде.
...
Рейтинг: 0 / 0
15.06.2013, 21:31
| Ответить | Цитировать | Написать  
Паскаль: определить номера столбцов, в которых нет четных элементов
    #38298779
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
 
ОффИзопропилalexander4321пытаюсь найти подходящий код

а если не искать, а написать? Всё уже написано до нас (с)
...
Рейтинг: 0 / 0
15.06.2013, 22:35
| Ответить | Цитировать | Написать  
Паскаль: определить номера столбцов, в которых нет четных элементов
    #38298826
alexander4321
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexander4321
Гость
Програмёр,

Думаю пора заканчивать играть в поймал или не поймал. Вы же сами привели мою цитату, что я составил программу. Именно так и было на самом деле: открыл уже готовую программу, которая была у меня в одной из лабораторных, и нашел еще одну в интернете. Если бы скачанная в интернете программа меня устроила, то я бы ничего не менял в ней, а вставил бы ее в лабораторную. Вместо этого я сидел и из двух программ составлял одну: в одной мне понравился вывод матрицы, а в другой был нужный поиск необходимых данных. Более того поначалу особенно не получался результат, пришлось поэкспериментировать. Тот вариант, который в итоге получился, меня устраивает. К тому же препод вряд ли стал бы на защите вводить большие матрицы (в случае, если бы я вчера не задал вопрос здесь по этой теме). За подсказку о том, что количество элементов матрицы не должно превышать 10 еще раз спасибо! Даже не спорю, что не видел этот момент в программе, потому что сдул с чужой программы вывод матрицы.
Кстати, по поводу скопированного чужого кода... Очень сильно сомневаюсь, что можно почитать правила синтаксиса и потом руководствуясь ими писать код. Уверен, что каждый вначале просто повторяет "чужие" конструкции языка, пока они настолько не отложатся в голове, что сможет уже как будто их из головы придумывать. Вспомните хотя бы избитую программу с выводом текста "Hello, world". Очень хорошо было сказано, что до нас все придумано. Извиняюсь, если резковато, но не понимаю проблемы переделки чужого кода.
...
Рейтинг: 0 / 0
16.06.2013, 00:32
| Ответить | Цитировать | Написать  
Паскаль: определить номера столбцов, в которых нет четных элементов
    #38298845
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
alexander4321,

Хорошо, что мы здесь такие телепаты, - сразу видим, что вы перекраиваете чужой код.
И вам всё же помогают, а не отправили прямиком в ту тему . Так что обижаться, по сути, не на что...
 
Мы же понимаем, что вы учитесь, и, возможно, не на программиста (да и, по большому счету, вполне можете не входить в те 3-5%, кто действительно сразу вникает в парадигму).
Просто, если вы сами код не пишете - то следуйте советам, которые вам дают (и о которых вы же сами просили!) буквально, не пытаясь "прилепить собственные рюшечки" - надо всегда помнить о том самом "первом же залетевшем дятле". Или уж просите сразу "сделать всё за вас"
...
Рейтинг: 0 / 0
16.06.2013, 01:31
| Ответить | Цитировать | Написать  
Паскаль: определить номера столбцов, в которых нет четных элементов
    #38298857
alexander4321
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexander4321
Гость
AndreTM Так что обижаться, по сути, не на что...
Абсолютно согласен. Еще раз извиняюсь, если что-то прозвучало резковато: на самом деле что думаю, то и написал. За помощь очень благодарен. По поводу ошибок в коде: теперь так и буду писать, что ковыряю чужой код и что-то не работает.
...
Рейтинг: 0 / 0
16.06.2013, 02:24
| Ответить | Цитировать | Написать  
Паскаль: определить номера столбцов, в которых нет четных элементов
    #38298884
Програмёр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмёр
Участник
alexander4321AndreTM Так что обижаться, по сути, не на что...
Абсолютно согласен. Еще раз извиняюсь, если что-то прозвучало резковато: на самом деле что думаю, то и написал. За помощь очень благодарен. По поводу ошибок в коде: теперь так и буду писать, что ковыряю чужой код и что-то не работает.

Могу посоветовать другой метод обучения (с чего начинал сам), если конечно хотите научиться программировать, и если нравится. Как нам в школе говорят: "Давайте запишем - лучше запомнится". Любой код надо пытаться повторить по памяти. Это приводит к понимаю кода и к запоминанию конструкций. Забыли что дальше - подсмотрели... Закончили программу - проверили, если не запустилось - открыли исходник и сравнили где не так.

Не знаю как другие программисты (думаю так же), но я всё новое (в плане программирования) учу именно так, иначе знаю, что ни одной функции не запомню.

P.S. Если будете делать так как посоветовал, можете смело писать (ведь это будет правда:) )
alexander4321Составил следующую программу
Потому как вопросы данного уровня возникать не будут :)
...
Рейтинг: 0 / 0
16.06.2013, 09:57
| Ответить | Цитировать | Написать  
Паскаль: определить номера столбцов, в которых нет четных элементов
    #38298900
alexander4321
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexander4321
Гость
Програмёр,

Спасибо за совет!
...
Рейтинг: 0 / 0
16.06.2013, 10:45
| Ответить | Цитировать | Написать  
Паскаль: определить номера столбцов, в которых нет четных элементов
    #38299095
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД
Участник
alexander4321,

дополнительно:

1.
Код: pascal
1.
2.
3.
4.
if Odd() then
...
if Even() then 
...



2. Используй break: ни к чему проверять столбец до конца, если в нем уже попался хоть один четный элемент.
...
Рейтинг: 0 / 0
16.06.2013, 18:04
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Паскаль: определить номера столбцов, в которых нет четных элементов
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=16&msg=38298509&tid=1341773]:
 0ms
get settings:
 7ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 152ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 66ms
get tp. blocked users:
 1ms
others: 203ms
total:  467ms
созд. / загр.: 467ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]