Форум «Всё о Паскале» _ Задачи _ Обратная задача, из исходника в условие
Автор: retenr 5.12.2009 19:32
Дан фрагмент кода:
REPEAT WRITELN('Введите x (3<=x<=6)'); READLN(x); UNTIL(x>=3) AND (x<=6);
s:=0; m:=TRUNC(SQR(x)+1);
WHILE m<=TRUNC(EXP(x)) DO BEGIN s:=s+SQR(m); m:=m+1; END; WRITELN(s);
С первой частью REPEAT-UNTIL все совершенно понятно, она позволяет вводить только числа от 3 до 6 включительно иначе будет снова запрашивать ввод. С этим все ясно.
А вот что делает цикл WHILE? Понятно, что он считает какую-то сумму, а вот как это выразить "человеческим языком"? То есть для нахождения чего предназначен данный фрагмент кода и цикл while в данном коде в частности?
Автор: Вячеслав Людской 5.12.2009 20:34
Насколько я разобрался: считает сумму таких квадратов целой части (полученной путем отсечения дробной части) экспоненты числа x увеличенных на 1, основания которых меньше целой части экспоненты этого числа.