Ответы Mail.ru
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
Помогите с заданием по программированию. Нужно сделать в PascalABC(задание 5)
zharev zxxx
(429),
закрыт
6 лет назад
Задание 5,плюс блок схема.
Лучший ответ
Соколов Максим
(1763)
6 лет назад
(немного изменил код, удалив переменную fact - она не используется, и цикл с repeat-until поменял на for)
// считает e^x по ряду Тейлора
var x, sum, xn : real;
i, n : integer;
begin
readln(x, n);
sum := 0.0;
xn := 1.0;
for i := 1 to n do begin // тут ошибка в блок-схеме (от 1 до n, а не от 0 до 0)
sum := sum + xn;
xn := xn * x / i;
end;
writeln(sum);
end.
// считает e^x по ряду Тейлора
var x, sum, xn : real;
i, n : integer;
begin
readln(x, n);
sum := 0.0;
xn := 1.0;
for i := 1 to n do begin // тут ошибка в блок-схеме (от 1 до n, а не от 0 до 0)
sum := sum + xn;
xn := xn * x / i;
end;
writeln(sum);
end.
Соколов МаксимМастер (1763)
6 лет назад
var x, sum, xn : real;
i, n : integer;
begin
readln(x, n);
sum := 1.0;
xn := 1.0;
for i := 1 to n do begin
xn := xn * x / i;
sum := sum + xn;
end;
writeln(sum);
end.
i, n : integer;
begin
readln(x, n);
sum := 1.0;
xn := 1.0;
for i := 1 to n do begin
xn := xn * x / i;
sum := sum + xn;
end;
writeln(sum);
end.
Остальные ответы
Арсений Терещенко
(110)
6 лет назад
ail.ru/question/49638203
1 Нравится Комментировать Пожаловаться
Соколов Максим 1 час назад
Профи (601)
(немного изменил код, удалив переменную fact - она не используется, и цикл с repeat-until поменял на for)
// считает e^x по ряду Тейлора
var x, sum, xn : real;
i, n : integer;
begin
readln(x, n);
sum := 0.0;
xn := 1.0;
for i := 1 to n do begin // тут ошибка в блок-схеме (от 1 до n, а не от 0 до 0)
sum := sum + xn;
xn := xn * x / i;
end;
writeln(sum);
end.
1 Нравится Комментировать Пожаловаться
Соколов Максим 1 час назад
Профи (601)
(немного изменил код, удалив переменную fact - она не используется, и цикл с repeat-until поменял на for)
// считает e^x по ряду Тейлора
var x, sum, xn : real;
i, n : integer;
begin
readln(x, n);
sum := 0.0;
xn := 1.0;
for i := 1 to n do begin // тут ошибка в блок-схеме (от 1 до n, а не от 0 до 0)
sum := sum + xn;
xn := xn * x / i;
end;
writeln(sum);
end.
Похожие вопросы