Международная научно-практическая конференция

Begin

Цикл WHILE. Решение задач

Begin

Write('Введите N: ');

Readln(n);

s:=s+n;

end;

Writeln('Сумма S=',s);

End.

------------------------------------

Для накопления некоторой величины используют следующие операторы:

Начальное значение (определить до цикла)	Оператор (в теле цикла)	Что делает
s:=0;	s:=s+a;	накопление суммы
p:=1;	p:=p*a;	накопление произведения
k:=0;	k:=k+1;	накопление количества (счетчик)

Пример: С клавиатуры вводятся числа до тех пор, пока не будет введен 0. Найти их сумму.

Program Prim;

Var s, n: real;

N – числа, которые мы вводим. Так как числа вводим много раз (до первого нуля), то оператор ввода readln – внутри цикла. Обратите внимание на то, что для того, чтобы цикл сработал, необходимо задать любое значение n не равное 0, например, 10 (иначе n до цикла не будет определено).  

Begin

s:=0;

n:=10;

While n<>0 do

Write('Введите N: ');

Readln(n);

s:=s+n;

end;

Writeln('Сумма S=',s);

End.

1. С клавиатуры вводятся числа до первого нуля. Причем, если число четное, то оно прибавляется, а если нечетное – вычитается из общей суммы. Чему равна сумма?

2. С клавиатуры вводятся числа до тех пор, пока их произведение не превысит заданного числа N. Сколько чисел введено?

3. Компьютер перебирает четные числа до тех пор, пока сумма их квадратов не превысит N. Чему равна сумма квадратов?

4. Коля ловил девчонок и окунал их в лужу, а Толя старательно измерял глубину погружения каждой девчонки и суммировал результаты погружений. Свой научный эксперимент Коля и Толя приостановили, когда суммарная глубина погружения перевалила за 2,5 км. На какой по счету отчаянно барахтающейся девчонке был приостановлен научный эксперимент? (Глубина каждого погружения, тщательно измеренного и последовательно записанного скрупулезным Толей, известна)

5. Коля согласился сыграть в интересную игру «Что? Где? Когда?» с папой на конфеты. Он должен ответить на N вопросов. За каждый правильный ответ папа дает ему количество конфет, равное номеру вопроса, а за неправильный – забирает. Сначала у Коли конфет нет. Для каждого из N вопросов вводится 1, если Коля ответил правильно и 0 – если ошибся. Сколько конфет будет у Коли в конце игры или сколько конфет он будет «должен» папе?

6. В игре «Поле Чудес» победителю предлагают набрать призов на сумму N единиц. Если стоимость последнего выбранного приза превысит количество набранных очков, добрый Якубович оставит этот приз победителю. Но, чтобы игра не разорилась, Якубовичу надо вовремя сказать «Хватит». Составьте программу, которая по сумме набранных очков и цене за каждый выбранный приз выводит «Стоп», как только сумма отобранных призов превысит набранные очки.

------------------------------------

1. С клавиатуры вводятся числа до первого нуля. Причем, если число четное, то оно прибавляется, а если нечетное – вычитается из общей суммы. Чему равна сумма?

2. С клавиатуры вводятся числа до тех пор, пока их произведение не превысит заданного числа N. Сколько чисел введено?

3. Компьютер перебирает четные числа до тех пор, пока сумма их квадратов не превысит N. Чему равна сумма квадратов?

4. Коля ловил девчонок и окунал их в лужу, а Толя старательно измерял глубину погружения каждой девчонки и суммировал результаты погружений. Свой научный эксперимент Коля и Толя приостановили, когда суммарная глубина погружения перевалила за 2,5 км. На какой по счету отчаянно барахтающейся девчонке был приостановлен научный эксперимент? (Глубина каждого погружения, тщательно измеренного и последовательно записанного скрупулезным Толей, известна)

5. Коля согласился сыграть в интересную игру «Что? Где? Когда?» с папой на конфеты. Он должен ответить на N вопросов. За каждый правильный ответ папа дает ему количество конфет, равное номеру вопроса, а за неправильный – забирает. Сначала у Коли конфет нет. Для каждого из N вопросов вводится 1, если Коля ответил правильно и 0 – если ошибся. Сколько конфет будет у Коли в конце игры или сколько конфет он будет «должен» папе?

6. В игре «Поле Чудес» победителю предлагают набрать призов на сумму N единиц. Если стоимость последнего выбранного приза превысит количество набранных очков, добрый Якубович оставит этот приз победителю. Но, чтобы игра не разорилась, Якубовичу надо вовремя сказать «Хватит». Составьте программу, которая по сумме набранных очков и цене за каждый выбранный приз выводит «Стоп», как только сумма отобранных призов превысит набранные очки.

ЦИФРОВОЕ ОБЩЕСТВО В КОНТЕКСТЕ РАЗВИТИЯ ЛИЧНОСТИ

Дата добавления: 2017-01-13