Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Svetik96
0 / 0 / 0
Регистрация: 07.12.2014
Сообщений: 2
1

Исправить ошибку в коде

07.12.2014, 21:03. Просмотров 254. Ответов 11
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var s,n,i:integer;
  a:array[1..100] of integer;
begin
  s:=0;
  readln(n);
  for i:=1 to n do
  readln(a[i]);
  while (a[i]<>0) do begin
    if (a[i]>0) and (a[i]mod 2=0)then
    S:=s+a[i];
  end;
  write(s);
  readln;
end.
Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести сумму всех положительных четных чисел из данного набора. Если требуемые числа в наборе отсутствуют, то вывести 0. Решить с использованием целочисленного массива.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.12.2014, 21:03
Ответы с готовыми решениями:

не могу исправить ошибку в коде
не могу исправить ошибку в коде Program Zer; var br1, br2, expr: string; ...

не могу исправить ошибку в коде. в паскале вылетает ошибка.
program Project1; {$APPTYPE CONSOLE} uses SysUtils; type...

Двумерный массив. Поиск нулей.Не могу найти ошибку ошибку в коде
Вот,например массив 5 5 0 1 0 1 0 1 1 1 1 1 0 0 0 0 1 0 0 1 0 0 1 0 0 0...

Исправить ошибки в коде
Старая программа, помогите исправить ошибки или подскажите, какая программа...

Сортировка - исправить ошибки в коде
Const x:arrayof integer=(-1,2,4,-8,1,3,5,13,-4,7); Var i,s,k:integer; Begin...

11
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
07.12.2014, 21:04 2
по большому счёту, массив тут и не нужен.
0
Svetik96
0 / 0 / 0
Регистрация: 07.12.2014
Сообщений: 2
07.12.2014, 21:06  [ТС] 3
Преподаватель сказал сделать через массив
0
Puporev
Модератор
54682 / 42102 / 29070
Регистрация: 18.05.2008
Сообщений: 99,354
07.12.2014, 21:08 4
Цитата Сообщение от Svetik96 Посмотреть сообщение
Преподаватель сказал сделать через массив
Ну и дуб, задача на последовательности (Series)
0
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
07.12.2014, 21:13 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
    a : Array[1..100] Of Integer;
    sum : LongInt = 0;
    i : Byte = 1;
 
begin
    ReadLn(a[i]);
    while (a[i] <> 0) do
    begin
        if ((a[i] > 0) And Not Odd(a[i])) then
            Inc(sum, a[i]);
        Inc(i);
        ReadLn(a[i]);
    end;
    WriteLn('sum=', sum);
end.
Добавлено через 39 секунд
так и быть, приплёл сюда и массив.

Добавлено через 1 минуту
а вот что получается без массива.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
    a : Integer;
    sum : LongInt = 0;
 
begin
    ReadLn(a);
    while (a <> 0) do
    begin
        if ((a > 0) And Not Odd(a)) then
            Inc(sum, a);
        ReadLn(a);
    end;
    WriteLn('sum=', sum);
end.
0
Puporev
Модератор
54682 / 42102 / 29070
Регистрация: 18.05.2008
Сообщений: 99,354
07.12.2014, 21:26 6
JokeR.BY, Твои коды написаны в каком-то Паскале которым мало кто пользуется, по крайней мере в стандартных Турбо Паскаль и Паскаль АВС они не работают. И нафига эти твои приколы?

Добавлено через 2 минуты
Цитата Сообщение от Svetik96 Посмотреть сообщение
Вывести сумму всех положительных четных чисел из данного набора
И для чего ты списываешь у малограмотно ТСа
Pascal
1
And Not Odd(a)
0
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
07.12.2014, 21:34 7
Цитата Сообщение от Puporev Посмотреть сообщение
положительных
Pascal
1
(a > 0)
Цитата Сообщение от Puporev Посмотреть сообщение
четных
Pascal
1
Not Odd(a)
что не так?
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3902 / 2560 / 2084
Регистрация: 22.11.2013
Сообщений: 7,152
07.12.2014, 21:52 8
Puporev,
не скажу за ABC, но TP в приведенном коде не понравится только инициализация в разделе var, достаточно перенести в const или в код, если был бы не 0, иначе просто убрать инициализацию.

Скобки внешние в условиях лишние, но это не смертельно.

if (a>0) and not Odd(a) then ... -- вполне себе корректное условие.
0
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
07.12.2014, 22:02 9
bormant, ноги у чрезмерного количества скобок растут из одного случая, когда я несколько часов потратил на дебаг диплома. рефлекторно перестраховываюсь уже)
0
Puporev
Модератор
54682 / 42102 / 29070
Регистрация: 18.05.2008
Сообщений: 99,354
08.12.2014, 08:35 10
Цитата Сообщение от bormant Посмотреть сообщение
вполне себе корректное условие.
Да, но в условии ничего не говорится о четности чисел, нужно сумму всех положительных чисел.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3902 / 2560 / 2084
Регистрация: 22.11.2013
Сообщений: 7,152
08.12.2014, 08:53 11
Puporev,
говорится в условии о четности, посмотрите внимательнее в первом сообщении:
Вывести сумму всех положительных четных чисел
0
Puporev
Модератор
54682 / 42102 / 29070
Регистрация: 18.05.2008
Сообщений: 99,354
08.12.2014, 08:58 12
Пардон, совсем видимо отупел, ведь несколько раз прочитал условие...
0
08.12.2014, 08:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2014, 08:58

Найти и исправить ошибки в коде
program ciklicheskie; var n1, n2, nom :integer; u1, u2, u3 : boolean; ...

Помогите пожалуйста исправить недоработку в коде программы.
program Hermite; var i,j,s,n,k,i1,m,j1,i2,j2: integer; b: array of real; x:...

Найти ошибку в коде
program tab4; uses crt; const NN=3;MM=5; type Matrix=array of real;...


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

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

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