Помогите составить программу в Pascal, цикл
В данной статье мы рассмотрим задачу по составлению программы на языке Pascal. Задача заключается в том, чтобы составить программу, которая будет высчитывать следующее значение:
s = квадратный корень 1 + квадратный корень 1 * 2 + квадратный корень 1 * 2 * 3 + ...
Для решения этой задачи нам понадобится цикл. Цикл позволит нам повторять одну и ту же операцию необходимое количество раз. В нашем случае этим количеством будет бесконечность.
Итак, приступим к написанию программы на языке Pascal.
program task;
var
s, sum, i: real;
begin
s := 0;
sum := 1;
i := 1;
while true do
begin
s := s + sqrt(sum);
sum := sum * i;
i := i + 1;
end;
writeln('S = ', s);
readln;
end.
Давайте разберем данную программу построчно:
- Задается имя программы – task.
- Объявляются переменные s, sum и i, которые будут использоваться в программе.
- Задается начальное значение s, sum и i.
- Начинается бесконечный цикл while true do.
- Внутри цикла мы высчитываем значение s, наращиваем значение переменной sum и увеличиваем значение переменной i на 1.
- Выводим значение s на экран и ожидаем нажатия клавиши Enter.
После запуска данной программы, она начнет вычислять значение s и выводить его на экран. Как мы уже упоминали, этот цикл будет выполняться бесконечное количество раз. Поэтому программа будет периодически останавливаться и ожидать нажатия клавиши Enter.
В заключение хочется отметить, что данная программа представляет собой пример использования цикла в Pascal. Используя циклы, можно решать множество задач, которые требуют повторения однотипных операций.
- ..а Как Вас нужно будить по утрам?
- Ваши действия при встрече с инопланетянином?
- Мизантропы - это просто глупые, несговорчивые люди, побаивающиеся людей?
- Можно ли повредиться в уме, если сильно удариться головой?
- Сколько существует фильмов о Гарри Поттере?
- Хочу на лето пилотку взять, какую посоветуете?