Правила форума
Условие задачи: задается действительное число a. Среди чисел вида 1;1+1/2;1+1/2+1/3;1+1/2+1/3+1/4;... и т.д. найти первое, большее, чем a.
Насколько я понимю, такая последовательность чисел задается по формуле tn=tn-1+1/k , где k - порядковый номер, n и n-1 - индексы
как все это написать в паскале? Я только начинаю его изучать, и понятия не имею как ему объяснить, чего я от него хочу. Если есть какие-л идеи, буду рад!
вот то, что я сам сделал, но не думаю, что это похоже на правду
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const n=1;
var a,p:extended;
k:integer;
begin
writeln('Type a');
readln (a);
k:=0;
while not (p>a) do
begin
inc(k);
********** <-- это та самая формула, о которой я спрашивал
end;
writeln ('First=',p);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
Сообщение отредактировано: Fenrisulven -
 Задание последовательности, Задача на отыскание первого числа, большего, чем заданное. |
