Алгоритм в прикрепленном файле, для графического исполнителя "Стрелочка"
Var q,i,s:integer;
begin
readln(q);
s:=0;
i:=0;
while s<q do
begin
i:=i+1;
s:=s+i;
end;
if s=q then writeln('Страница = ',i+1)
else writeln('Ошибка ввода');
end.
Пример:
5
<span>Страница = 6</span>
Если быть совершенно точным, то условные операторы switch-case.
Отличаются от if тем, что if проверяет некое условие (ЛЮБОЕ условие), а блок switch-case сначала задает значение - switch (значение), а потом сравнивает его с условиями в case.
Следовательно, к примеру:
if (n == 5) ...
if (n == 2) ...
if (n == -3) ...
будет эквивалентно
switch (n) {
case 5:
...
break;
case 2:
...
break;
case -3:
...
break;
}
Учтите, что в switch-case ожидается использование break. Если не поставить break, case, который ниже текущего, тоже будет выполнен.
Лови)
var
x: real;
begin
x := 1;
while x <= 5 do
begin
writeln('y(', x:1:1, ') = ', ln(x) - exp(-1 * x));
x := x + 0.1;
end;
end.