Примеры задач

Простые типы данных

Дано вещественное положительное число b. Последовательность A1,A2,A3... образована по закону: A1=b, Ai=Ai-1-(1/sqrt(i)), i=2,3... Найдите первый отрицательный член последовательности.

Методика решения

Используемые переменные:
A1, A2 – члены последовательности,
B – число.

Для начала, считываем с экрана число b . Проверяем, является ли b положительным числом. Если нет, то выводим на экран сообщение о неверном вводе, так как по условию b – положительное. Если положительное, то первому члену последовательности a1 - присваиваем значение переменной b .

С помощью цикла вычисляем остальные члены последовательности, пока не найдём первый отрицательный.

Осуществляем это следующим образом: в цикле пока вычисляем следующий член последовательности a2 по формуле a2 = a1-(1/sqrt(i)) и присваиваем переменной a1 значение переменной a2 (для продолжения вычисления последовательности). Повторяем цикл до тех пор, пока a1 не станет меньше 0.

После того, как a1 станет меньше 0, выводим на экран её значение. Это и есть первый отрицательный член последовательности.

Листинг программы

Program ex8;

Uses crt;

Var a1,a2,b:real; i:integer;

Begin Clrscr;

Writeln ('Введите вещественное положительное число:');

Readln (b);

If b>0 then

begin

a1:=b;

While a1>0 do

begin

a2:=a1-(1/sqrt(i));

a1:=a2;

end;

Writeln (a1:4:4,'-первый отрицательный член последовательности');

end

else

Writeln ('Неверный ввод!');

Readkey;

End.

Запустить программу

Назад