Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
lera8
634 / 217 / 64
Регистрация: 03.11.2009
Сообщений: 488
1

Проверить, чередуются ли в массиве четные и нечетные числа

10.11.2009, 22:32. Просмотров 1216. Ответов 5
Метки нет (Все метки)

Добрый вечер! помогите мне пожалуйста найти в моём коде ошибку! Дан целочисленный массив размера N. Проверить, чередуются ли в
нем четные и нечетные числа. Если чередуются, то вывести 0, если нет,то вывести порядковый номер первого элемента, нарушающего законо-
мерность.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const n=7;
var
a:array [1..n] of integer;
i,x:integer;
flag:boolean;
 begin
    for i:=1 to n do begin
      write('a[',i,']=');
      read(a[i]);
        end;
   for i:=2 to n do begin
      if (a[i] mod 2=0) and (a[i-1] mod 2<>0) or (a[i] mod 2<>0) and (a[i-1] mod 2=0)
         then flag:=true
           else if (a[i] mod 2=0) and (a[i-1] mod 2=0) or (a[i-1] mod 2<>0) and (a[i] mod 2<>0)
             then begin flag:=false; x:=i; end;
       end;
        if flag=true then writeln('0') else if flag=false then writeln(x);
        
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.11.2009, 22:32
Ответы с готовыми решениями:

Проверить чередуются ли в массиве четные и нечетные числа
Дан целочисленный массив (n).Проверить чередуются ли в нем четные и нечетные...

Дан целочисленный массив размера N. Проверить, чередуются ли в нем четные и нечетные числа.
Ребята, всё таже история, погите кто чем сможет... Array26. Дан целочисленный...

Дан целочисленный массив размера*N. Проверить, чередуются ли в нем четные и нечетные числа. Если чередуются, то вывести*0, если нет, то вывести поряд
Дан целочисленный массив размера*N. Проверить, чередуются ли в нем четные и...

Проверить, чередуются ли в массиве положительные и отрицательные числа
Дан целочисленный массив из N элементов. Проверить, чередуются ли в нем...

Проверить, чередуются ли в массиве положительные и отрицательные числа
11.2 Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем...

5
victor_g
60 / 60 / 9
Регистрация: 09.11.2009
Сообщений: 198
10.11.2009, 22:38 2
надо прерывать цикл сканикования, если условие не выполняется:

Pascal
1
2
3
4
5
6
7
   for i:=2 to n do begin
      if (a[i] mod 2=0) and (a[i-1] mod 2<>0) or (a[i] mod 2<>0) and (a[i-1] mod 2=0)
         then flag:=true
           else if (a[i] mod 2=0) and (a[i-1] mod 2=0) or (a[i-1] mod 2<>0) and (a[i] mod 2<>0)
             then begin flag:=false; x:=i; BREAK; end;
       end;
        if flag=true then writeln('0') else if flag=false then writeln(x);
1
кот Бегемот
Платежеспособный зверь
8502 / 3940 / 1536
Регистрация: 28.10.2009
Сообщений: 10,229
10.11.2009, 22:42 3
Ошибка в строке
Pascal
1
then begin flag:=false; x:=i; end;
У Вас в переменной x запомнится не первый, а последний номер, нарушающий чередование.
0
lera8
634 / 217 / 64
Регистрация: 03.11.2009
Сообщений: 488
10.11.2009, 22:45  [ТС] 4
Большущие спасибо!!!

Добавлено через 2 минуты
А как тогда надо,чтобы
Цитата Сообщение от alexevt Посмотреть сообщение
x запомнится не первый, а последний номер, нарушающий чередование.
0
Puporev
Модератор
55464 / 42571 / 29422
Регистрация: 18.05.2008
Сообщений: 100,712
10.11.2009, 22:47 5
Я бы так написал.
Pascal
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
uses crt;
const n=7;
var a:array [1..n] of integer;
    i:integer;
begin
clrscr;
for i:=1 to n do
 begin
   write('a[',i,']=');
   readln(a[i]);
 end;
clrscr;
writeln('Ishodnyj massiv:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
for i:=2 to n do
if (a[i] mod 2=0) and (a[i-1] mod 2=0){если нарушено}
or (a[i] mod 2<>0) and (a[i-1] mod 2<>0) then
 begin
  write(i);{номер нарушителя}
  readln;
  exit; {заканчиваем прграмму}
 end;
write('0');{иначе ноль}
readln
end.
1
lera8
634 / 217 / 64
Регистрация: 03.11.2009
Сообщений: 488
10.11.2009, 22:50  [ТС] 6
Спасибо за помощь!
0
10.11.2009, 22:50
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.11.2009, 22:50

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

Разложить числа на четные и нечетные
Разложить числа на четные и нечетные. Паскаль. Спасибо большое!

Четные и нечетные числа. Одномерный массив
Помогите пожалуйста найти ошибку. Даны действителные числа а1,а2...аn, если в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru