«. В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал. »
(c) Юрий Клинских aka «Хой»
Пользователь
Регистрация: 06.11.2012
Сообщений: 10
1/a как то выпадает из формулы общего члена ряда
var a,s,o:real; begin readln(a); s:=1/a+1/(a*a); o:=1/(a*a); for i:=2 to n do begin o:=o/a/a; s:=s+o; end; writeln(s); readln; end.
почему выпадает? может в задачнике, конечно опечатка, уже раза 2 попадались ошибки
Made In USSR!
Регистрация: 01.09.2010
Сообщений: 3,657
почему выпадает?
n=0 ;
член ряда равен 1/a^(2*0-2)=a^2 ..а у вас
n=1
член ряда равен 1/a(2*1 -2)= 1/a^0 = 1/1=1 . аналогично
n=2
член ряда равен 1/a(2*2 -2)= 1/a^2 (ну тут уже все верно)
«. В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал. »
(c) Юрий Клинских aka «Хой»
Пользователь
Регистрация: 06.11.2012
Сообщений: 10
почему выпадает?
n=0 ;
член ряда равен 1/a^(2*0-2)=a^2 ..а у вас
n=1
член ряда равен 1/a(2*1 -2)= 1/a^0 = 1/1=1 . аналогично
n=2
член ряда равен 1/a(2*2 -2)= 1/a^2 (ну тут уже все верно)
Переподаватель подтвердил, что опечатка в задании, а если вот так сделать? S=1/1+1/a^2+1/a^4+. 1/a^(2n-2)
Источник: www.programmersforum.ru
Описать функцию Stepen (x,n) от вещественного x и целого n, вычисляющую (посредством умножения) величину xn — Pascal ABC
Описать функцию Stepen (x,n) от вещественного x и целого n, вычисляющую (посредством умножения) величину xn, и использовать ee для вычисления b=2.7k+(a+1)-5.
program variant; uses crt; var b,a: real; k: integer; function Stepen (x:real;n:integer):real; var i: longint; xn: real; begin xn:=1; for i:= 1 to n do begin xn:= xn*x; end; Stepen:= xn; end; begin writeln(‘Введите a,k ‘); readln(a,k); b:=Stepen(2.7,k)+(a+1)-5; write(‘b=’,b:4:2); end.
опишите каждое действие. Срочно пожалуеста!
Код к задаче: «Описать функцию Stepen (x,n) от вещественного x и целого n, вычисляющую (посредством умножения) величину xn»
Листинг программы
program variant; uses crt; var b, a: real; k: integer; ///Функция возвращает x в степени n (x — вещественное, n — целое) function Stepen(x: real; n: integer): real; var i: longint; xn: real; begin xn := 1; //начальное значение степеня for i := 1 to n do //для всех i от 1 до n begin xn := xn * x; //предыдущее значение степеня умножаем на x end; Stepen := xn; //результат вычисления функции end; begin writeln(‘Введите a,k ‘); readln(a, k); //вводим a и k //вычисляем результат выражения, вызывая для этого функцию Stepen(x, n) b := Stepen(2.7, k) + (a + 1) — 5; write(‘b = ‘, b:4:2); //выводим результат end.
Источник: studassistent.ru
УРОК 7-8. Создание приложений (11 класс)
Дано целое число X и натуральное N. Составьте алгоритм вычисления X^N
Учебник по Информатике 9 класс Семакин
Дано целое число X и натуральное N. Составьте алгоритм вычисления X^N. Проверьте алгоритм трассировкой. Напишите программу на Паскале. алг СУММА
цел X, N, R, Z
нач
вывод «Введите X:»
ввод X
вывод «Введите N:»
ввод N
R:=1
Z:=1
пока R нц
Z:=Z*X
R:=R+1
кц
вывод Z
кон
Program zad_8_nica;
var X, N, R, Z: integer;
begin
write (‘Введите X: ‘);
read (X);
write (‘Введите N: ‘);
read (N);
R:=1;
Z:=1;
while (R do begin
Z:=Z*X;
R:=R+1;
end;
writeln (‘X^N = ‘, Z)
end.
Нашли ошибку? Напишите нам
Источник: 5urokov.ru