Форум «Всё о Паскале» > Задача с использованием оператора цикла с предусловием While

Drughi

9.06.2011 0:20

Готовлюсь к выпускному экзамену по информатике, но никак не могу решить задачу (именно на Pascal ABC).

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

Пожалуйста, помогите!

DarkWishmaster

9.06.2011 1:12

Цитата(Drughi @ 8.06.2011 20:20)

Готовлюсь к выпускному экзамену по информатике, но никак не могу решить задачу (именно на Pascal ABC).

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

Пожалуйста, помогите!

Готовишься к экзамену по информатике и не знаешь как посчитать сумму элементом массива?
Какие сложности, что у тебя не получается?
Хоть кусок програмы напиши, мы доделаем.

Drughi

9.06.2011 1:14

Цитата(DarkWishmaster @ 8.06.2011 21:12)

Готовишься к экзамену по информатике и не знаешь как посчитать сумму элементом массива?
Какие сложности, что у тебя не получается?
Хоть кусок програмы напиши, мы доделаем.

я не могу понять условие. Может объяснит кто-нибудь.

IUnknown

9.06.2011 1:19

Цитата

Готовишься к экзамену по информатике и не знаешь как посчитать сумму элементом массива?

Не массива, а последовательности. Это разные вещи в данном случае. То есть, нужно получать данные от пользователя до тех пор, пока он не введет два нуля подряд. И находить их сумму.

DarkWishmaster

9.06.2011 1:20

Цитата(Drughi @ 8.06.2011 21:14)

я не могу понять условие. Может объяснит кто-нибудь.

Добавлено через 5 мин.

Цитата(IUnknown @ 8.06.2011 21:19)

Не массива, а последовательности. Это разные вещи в данном случае. То есть, нужно получать данные от пользователя до тех пор, пока он не введет два нуля подряд. И находить их сумму.

ну значит я не понял, извините
Вообщем вот:


Uses Crt;
var a,b,S:integer;
begin ClrScr;
a:=1; 
S:=0;   
while (a<>0) or (b<>0) do   //пока не ввели два нуля 
 begin
    b:=a;
    writeln('Введите число последовательности');
    readln(a);
    S:=S+a;
end; 
writeln('Сумму чисел последовательности: ',S);
readln;
end.

Drughi

9.06.2011 1:37

Цитата(DarkWishmaster @ 8.06.2011 21:20)

Добавлено через 5 мин.

ну значит я не понял, извините
Вообщем вот:


Uses Crt;
var a,b,S:integer;
begin ClrScr;
a:=1; 
S:=0;   
while (a<>0) or (b<>0) do   //пока не ввели два нуля 
 begin
    b:=a;
    writeln('Введите число последовательности');
    readln(a);
    S:=S+a;
end; 
writeln('Сумму чисел последовательности: ',S);
readln;
end.

Благодарю! С меня +