√2+√2.+√2 N- корней

@Азамат1 · Регистрация: 06.04.2013

Author24 — интернет-сервис помощи студентам

√2+√2.+√2 N- корней . составьте программу по условию пожалуйста

@Puporev · 03.05.2013, 16:18

Pascal

uses crt;
const nmax=20;
var s:real;
    n,i:integer;
begin
repeat
write('Êîëè÷åñòâî êîðíåé îò 1 äî 20 n=');
read(n);
until n in [1..20];
s:=sqrt(2);
for i:=n-1 downto 1 do
s:=sqrt(2+s);
write('s=',s:0:3)
end.

@MatMaster · 03.05.2013, 17:31

Можно проще:

Pascal

uses crt;
var s:real;
n:integer;
begin
clrscr;
write('Collichestvo korney: ');
readln(n);
s:=sqrt(2)*n;
write('S=',s:0:4);
readkey;
end.

@Puporev · 03.05.2013, 17:52

Проще не значит правильнее, он просто неверно записал задание, там все время берется корень из полученного ранее результата, корни под корнем.
Типа такой формула..
Добавлено через 13 минут
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{2+\sqrt{2+\sqrt{2}}}$

@MatMaster · 03.05.2013, 19:05

Я понял. А если так:

Pascal

uses crt;
var s:real;
n:integer;
begin
clrscr;
write('Kollichestvo korney: ');
readln(n);
for n:=n downto 1 do s:=sqrt(2+s);
write('S=',s:0:4);
readkey;
end.

На одну переменную меньше.

@Азамат1 1 / 1 / 0 Регистрация: 06.04.2013 Сообщений: 58
		1
	√2+√2.+√2 N- корней 03.05.2013, 11:38. Показов 5639. Ответов 4 Метки нет (Все метки) √2+√2.+√2 N- корней . составьте программу по условию пожалуйста 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	03.05.2013, 17:52	4
	Проще не значит правильнее, он просто неверно записал задание, там все время берется корень из полученного ранее результата, корни под корнем. Типа такой формула.. Добавлено через 13 минут $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{2+\sqrt{2+\sqrt{2}}}$ 0

	03.05.2013, 19:05

Опции темы