Вывод результата при запуске программы

@Шпилька · Регистрация: 15.05.2012

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

Кто-нибудь подскажите пожалуйста. При запуске программы дает вводить первоначальное значение, сам результат показывает при повторном запуске программы, как сделать, чтобы и результат выдавался при первом запуске? Заранее извиняюсь, если где глупость написала.

Pascal

PROGRAM Sequence;
uses crt;
VAR n:Integer; x,p,s:real;
BEGIN
writeln ('vvedite x');
Readln(x);
n:=1; p:=-x; s:=p;
WHILE Abs(p)> 0.5e-4 DO
BEGIN
n:=n+1;
p:=-p*x*x*(2*n-3)/(2*n-1);
s:=s+p;
END;
writeln ('s=',s);
writeln ('n=',n);
 
END.

@newyork7776 · 16.11.2013, 01:23

Pascal

PROGRAM Sequence;
uses crt;
VAR n:Integer; x,p,s:real;
BEGIN
write('vvedite X = ');readln(x);
n:=1; p:=x; s:=p;
WHILE (Abs(p) > 0.5e-4) DO
  BEGIN
    inc(n);
    p:=(p*x*x*(2*n-3)/(2*n-1));
    s:=s+p;
  END;
writeln ('S = ',s);
writeln ('N = ',n);
readln;//пауза 
END.

@Шпилька · 17.11.2013, 17:07 **[ТС]**

Спасибо)))

@Шпилька 1 / 1 / 0 Регистрация: 15.05.2012 Сообщений: 73
	17.11.2013, 17:07 [ТС]	3
	Спасибо))) 0