Дано действительное а Найти такое наименьшее n

@Bob2 · Регистрация: 31.07.2012

Дано действительное а Найти такое наименьшее n, что 1+ 1/2+...1/n a, c предусловие, с постусловием, с параметром, перевод на с++

@Puporev · 01.08.2012, 08:27

Bob2, А сейчас прочитай что написал.

@CodeR · 01.08.2012, 09:26

С предусловием Дано действительное число a, найти такое наименьшее n. что
С постусловием

Pascal

Var s,a,n:real;
Begin
    write('Введите a: ');readln(a);
    s:=1;n:=1
    Repeat
     n:=n+1;
     s:=s+1/n;
    Until s>a;
    writeln('Наименьешее n для которого s>a: ',n:0:0,' s: ',s:0:5);
End.

С параметром

Pascal

Var s,a:real;
    n:integer;
Begin
    write('Введите a: ');readln(a);
    s:=1;
    For n:=2 to 100000 do
     if s<a then s:=s+1/n else break;
    writeln('Наименьешее n для которого s>a: ',n,' s: ',s:0:5);
End.

Не знал как быть в верхней границей цикла с параметром и поставил 100000

@Bob2 1 / 1 / 0 Регистрация: 31.07.2012 Сообщений: 5
		1
	Дано действительное а Найти такое наименьшее n 01.08.2012, 08:19. Показов 2932. Ответов 2 Метки нет (Все метки) Дано действительное а Найти такое наименьшее n, что 1+ 1/2+...1/n a, c предусловие, с постусловием, с параметром, перевод на с++ __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Puporev Почетный модератор 64272 / 47571 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	01.08.2012, 08:27	2
	Bob2, А сейчас прочитай что написал. 0

Опции темы

Дано действительное а Найти такое наименьшее n

Решение