Long Cat

Если он работает в консоли с кодировкой CP1251 (Windows), то ничего не получится - из нее изъята псевдографика, насколько я помню.

Vladimir_S

Странно - как-то не встречал таких таблиц, где бы 219 коду соответствовало "Ы". Воистину - Век живи, век учись, ....... .......!

ummasha

Это не шутка Просто у меня такой Паскаль.

Long Cat

Как ни странно, если Вы используете Windows, то с этой таблицей Вы сталкиваетесь каждую секунду - это CP1251 Windows-1251 — Википедия

Vladimir_S

Странно. Кодировка данной страницы форума как раз W-1251. А вот 219 символ: █ .
На всякий случай - это черный прямоугольник.

citrus

спасибо большое за помощь)))

Dram

Подскажите как в Паскале пропишется счетчик для этой функции Q= 1+ x/1! + x**2/2!+...+ x**N/N!

Vladimir_S

Чуть подробнее, если можно - что понимается под счетчиком?

Long Cat

Счетчик в смысле вычислитель? Подпрограмма для вычисления факториала есть?

Vladimir_S

Ну если просто вычислитель, то без проблем:

VAR
N,i:INTEGER;
x,y:EXTENDED;

FUNCTION X2np(X:Extended; n:INTEGER):Extended;
Var
i:INTEGER;
Y:Extended;
BEGIN
IF n=0 THEN X2np:=1 ELSE
IF n=1 THEN X2np:=X ELSE
BEGIN
Y:=X;
FOR i:=2 TO n DO Y:=Y*X;
X2np:=Y;
END;
END;

FUNCTION Nfact(n:LongInt):Extended;
VAR
i:LongInt;
fact:Extended;
BEGIN
IF n=0 THEN fact:=1 ELSE
BEGIN
fact:=1;
FOR i:=1 TO n DO
fact:=fact*i;
END;
Nfact:=fact;
END;

BEGIN
Write('x= ');
ReadLn(x);
Write('N= ');
ReadLn(N);
Y:=1;
FOR i:=1 TO N DO
Y:=Y+X2np(x,i)/Nfact(i);
WriteLn('Y= ',Y);
ReadLn;
END.