В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История

Исправить ошибку "неверная вещественная операция (7.pas, строка 9)" уже не знаю как исправить : для натурального n и действительного x подсчитать сумму s=-1/2 + 1/2^2 - 1/2^3 ++(-1)^n / 2^n program summa; uses crt; var n,i: integer; s: real; begin clrscr; writeln
('vvedite n'); readln (n); s: =0; for i: =1 to n do s: =s+exp(ln(-1)*i)/exp(ln(2)*i); writeln ('s=', s); readln end.

Показать ответ
Ответ:
marina558zas
marina558zas
24.05.2020 04:26

ошибка в том что натуральный логарифм (-1) не существует

 

program summa;
uses crt;
var n,i:integer; s:real;

p1,p2:integer;
begin clrscr;
writeln ('vvedite n');
readln (n);
s:=0;

p1:=-1;

p2:=2;
for i:=1 to n do

begin
s:=s+p1/p2;

p1:=-p1;

p2:=p2*2;

end;
writeln ('s=', s);
readln;
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота