Вопрос № 104768: Вычислить приближенно значение бесконечной суммы (справа от каждой суммы дается ее точное значение, с которым можно сравнить полученный ответ):
1+1/2^2 + 1/3^2 + 1/4^2 + … = (Пи^2)/6
данную задачу надо решить при помощи модуля....Вопрос № 104773: Здравствуйте. Помогите решить задачу
Дано натуралньое число n. Вычислить S=1*2+2*3*4+...+n*(n+1)...2n...Вопрос № 104774: Здравствуйте. Помогите решить задачу
Дано натуральное число n (n<=9999) Выяснить различны ли все четыре цифры этого числа (если оно записано четырьмя цифрами). Например, в числе 3678 все цифры различны, в числе 0023 - нет....Вопрос № 104845: даны 3 вещественных числа возвести в квадрат те из них значение которых неотрицательны...
Вопрос № 104.768
Вычислить приближенно значение бесконечной суммы (справа от каждой суммы дается ее точное значение, с которым можно сравнить полученный ответ):
1+1/2^2 + 1/3^2 + 1/4^2 + … = (Пи^2)/6
данную задачу надо решить при помощи модуля.
Отправлен: 09.10.2007, 01:12
Вопрос задал: Vitlate (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Boriss
Здравствуйте, Vitlate!
Вот как это делается. Все понятно? Если не будет вопросов (в минифоруме), больше на Ваши вопросы отвечасть не буду :((
В функции SUMM учитывается машинная точность представления чисел (eps), а также то, что пользователь может ввести в качестве "точности" ноль или отрицательное число.
Конечно, надо рассчитывать остаток .... но ... Если надо, то можно
Приложение:
--------- Вывод - то место в тексте, где вы устали думать
Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: mte WWW:Программирование на Паскале ---- Ответ отправлен: 09.10.2007, 12:59 Оценка за ответ: 5
Отвечает: Артём1983
Здравствуйте, Vitlate!
В программе вначале требуется ввести точность с которой будут производиться вычисления. Дальше в цикле вычисляется каждый элемент и сравнивается с введёной ранее погрешностью.
Приложение:
Ответ отправил: Артём1983 (статус: 4-ый класс)
Ответ отправлен: 09.10.2007, 22:43
Вопрос № 104.773
Здравствуйте. Помогите решить задачу
Дано натуралньое число n. Вычислить S=1*2+2*3*4+...+n*(n+1)...2n
Ответ отправил: kopfschwarz (статус: Студент)
Ответ отправлен: 09.10.2007, 05:43
Отвечает: Macrus
Здравствуйте, Андрей Логинов!
Не знаю, работает или нет.. не проверял, не компилировал. т.к. нет паскаля, в приложении код. Помойму должно работать...
И я не понял для чего 2n ? Если это до куда нужно считать, то так и сделано, если нет, то t нужно присвоить n
Приложение:
Ответ отправил: Macrus (статус: 2-ой класс)
Ответ отправлен: 09.10.2007, 05:44
Отвечает: Авдеев Александр Владимирович
Здравствуйте, Андрей Логинов!
Program one;
Var n,s,i,b,m:integer;
Begin
readln(n);
s:=0;
for i:=1 to n do
begin
b:=1;
for m:=i to 2*i do
b:=b*m;
s:=s+b;
end;
writeln(s);
end.
Отвечает: Артём1983
Здравствуйте, Андрей Логинов!
Смотрите код программы в приложении.
Приложение:
Ответ отправил: Артём1983 (статус: 4-ый класс)
Ответ отправлен: 09.10.2007, 22:40
Вопрос № 104.774
Здравствуйте. Помогите решить задачу
Дано натуральное число n (n<=9999) Выяснить различны ли все четыре цифры этого числа (если оно записано четырьмя цифрами). Например, в числе 3678 все цифры различны, в числе 0023 - нет.
У меня вызвала сомнение одна деталь: нужно ли считать четырёхзначными числа вроде 21? Я предположил, что не нужно. Если я ошибся, удалите строку, перед которой увидите соответствующий комментарий.
Приложение:
--------- Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.
Ответ отправил: Delph (статус: 10-ый класс)
Ответ отправлен: 09.10.2007, 09:19
Отвечает: _killhunter_
Здравствуйте, Андрей Логинов!
Для начала поместим в массив A[1..4] цифры числа n
Потом проверим различны ли цифры в этом массиве.
Приложение:
Ответ отправил: _killhunter_ (статус: 2-ой класс)
Ответ отправлен: 09.10.2007, 09:40
Вопрос № 104.845
даны 3 вещественных числа возвести в квадрат те из них значение которых неотрицательны
Отвечает: Coupler
Здравствуйте, Maniak_8989!
Ход представленной в минифоруме программы правилен, но есть некоторые замечания:
1) у вас по заданию вещественные числа (Real, Single, Double), а не целые (Integer, Word, Byte, Longint). Если Вы объявляете несколько переменных одного типа и по смыслу они идентичны, то их записывают через запятую : var a,b: byte;
Т.е. объявление переменных записывается в виде:
var
x, y, i: real;
2) Есть 2 формы оператора if - полная и сокращенная. Вы используете сокращенную версию (без else):
if x>=0 then
writeln ('kvadrat 1ogo chisla:', x*x);
Хотя здесь и с точки зрения производительности, и с точки зрения правильности и читабельности кода нужно использовать полную (с else):
if x >= 0 then
writeln('kvadrat 1ogo chisla:', x * x)
else
writeln('nedopustimoe znachenie');
В приложении - исправленная программа, а в прикрепленном файле - справочник по pascal.
Приложение:
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.
Ответ отправил: Coupler (статус: Практикант)
Ответ отправлен: 09.10.2007, 17:03
Отвечает: Lafet
Здравствуйте, Maniak_8989!
Создаешь 3 переменных типа real. Создаешь условие если число больше 0 то возводишь в квадрат.
Ответ отправил: Lafet (статус: 1-ый класс)
Ответ отправлен: 09.10.2007, 19:18
Отвечает: Tribak
Здравствуйте, Maniak_8989!
program www;
var
a,b,c:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c); if a<0 then begin
a:=sqr(a);
write('a='); writeln(a);
end;
if b<0 then begin
b:=sqr(b);
write('b='); writeln(b);
end;
if c<0 then begin
c:=sqr(c);
write('c='); writeln(c);
end;
readln;
end.
Ответ отправил: Tribak (статус: 4-ый класс)
Ответ отправлен: 09.10.2007, 19:25
Отвечает: Артём1983
Здравствуйте, Maniak_8989!
Смотрите код в приложении.
Приложение:
Ответ отправил: Артём1983 (статус: 4-ый класс)
Ответ отправлен: 09.10.2007, 22:48
