задача на циклы Опции

[Hunt666]

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

[мисс_граффити]

а как дана последовательность? массив?
или пользователь вводит числа по одному?

[Hunt666]

я так понимаю что массив

Сообщение отредактировано: Hunt666 - 22.10.2006 16:03

[мисс_граффити]

ок.
тогда тебе нужно знать размер массива и ввести 1 переменную, которая будет отмечать номер текущего элемента.
ну и переменная-массив и переменная, где хранить сумму, естественно
больше ничего.

[Hunt666]

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

[мисс_граффити]

FAQ - Массивы

[Hunt666]

все равно не понятно как мне последовательность задать

[Hunt666]

подскажите хоть как проверить число на четность
и мне нужно реализовать эту задачу с помощью циклов

Сообщение отредактировано: Hunt666 - 29.10.2006 17:36

[volvo]

Хотя бы раз зайди в поиск уже и набери "Четность"...

[Hunt666]

с четностью разобрался извиняюсь за беспокойство но как последовательность задать с помощью цикла все равно догнать не могу
вот тут я попытался с предусловием сделать тока ниче не вышло

program Zadacha1_a;
var n : integer;
    i : integer;
begin writeln('vvedite n ');
readln(n);
i:=0;
while n <0 do begin if n mod 2 = 0 then i:=i+1;
i:=i+1;
end
end.

(не смейтесь и не ругайтесь просто у нас практика идет сильно вперед лекций)

Сообщение отредактировано: Hunt666 - 13.11.2006 0:00

[мисс_граффити]

1. надо считывать элементы ВНУТРИ цикла
2. у тебя цикл вечный... ты же n не изменяешь, а выход зависит от n
3. зачем тебе i? тем более 2 раза увеличивать...

[Hunt666]

попытался сделать вот так

program xcvxcv ;
var a,s:integer;
begin
writeln('vv a');
readln(a);
s:=0;
while a<0 do begin if a mod 2 = 0 then  a:=a+1 else a:=a+1;
s:=s+a;
end;
writeln('summa ravna a= ');
end.

в этом случае просто нет никакого результата

Сообщение отредактировано: Hunt666 - 13.11.2006 0:01

[мисс_граффити]

сделай то, про что я написала, а потом будем искать ошибки дальше.

if a mod 2 = 0 then a:=a+1 else a:=a+1;

смысл? действия одни и те же по обеим веткам.

Сообщение отредактировано: volvo - 2.11.2006 0:31

[Hunt666]

эту строчку я изменил на

while a<0 do begin if odd(a) then  a:=a+2 else a:=a+1

Сообщение отредактировано: Hunt666 - 13.11.2006 0:01

[мисс_граффити]

что-то ты совсем не то делаешь, про что писал в начале.
давай определимся: что эта программа должна делать?
пока что она только зацикливается при положительных а.

[Hunt666]

Дана последовательность целых чисел заканчивающаяся нулем,получить сумму тех чисел последовательности,которые нечетны и отрицательны. нужно организовть три цикла с предусловием, с постусловием и с заданным количеством повторений . выбор по какому циклу нужно осуществить вычисление происходит с помошью case

для начала я попытался сделать цикл с предусловием
как ты уже заметила у меня он зацикливается

Сообщение отредактировано: Hunt666 - 30.10.2006 21:06

[мисс_граффити]

ну например так (это НЕ массив, а просто последовательность).

Sum:=0;
readln(n);
while n<>0 do
  begin
  if (n<0) and (n mod 2<>0) then
    Sum:=Sum+n;
  readln(n)
  end;

[Hunt666]

спс как напишу всю прогу отпишусь( а ведь было то не так и сложно ........)

Сообщение отредактировано: Hunt666 - 31.10.2006 17:04

[Hunt666]

для проверки ввел эту прогу так результат= неработает

[мисс_граффити]

почему? что ты ему задал написать - то и пишет )
исправь на

writeln('sum=',sum)

только byte - это беззнаковый тип. сумма всегда будет равна 0.
меняй на integer