Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача с использованием оператора цикла с предусловием 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.




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