Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Апрель 2009   →
 1
 2
 3
 4
 5
 6
06.04.2009
00:32:49
22:17:29
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
20.04.2009
15:37:51
16:49:42
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Botsman
Статус: Студент
Рейтинг: 197
∙ повысить рейтинг >> 		Micren
Статус: Практикант
Рейтинг: 102
∙ повысить рейтинг >> 		Пупорев Юрий Борисович
Статус: Специалист
Рейтинг: 75
∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 849
от 10.04.2009, 13:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 248, Экспертов: 37
В номере:Вопросов: 3, Ответов: 3
Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 164166: Решите пожалуйста задачку : Решить при помощи численных методов уравнение (найти действительные корни) указанным методом X<sup>4</sup>-4x+1=0 метод Ньютон (напишите числа для работы программы) ...

Вопрос № 164167: Решите пожалуйста задачку : Написать программу для вычисления определенного интеграла указанными методами. ∫2,4-0,8 1÷√2x<sup>2</sup> +3 dx метод прямоугольников (напишите числа для работы программы)<br...
Вопрос № 164170: Уважаемые эксперты. Прошу помощи в решении контрольной. Заранее спасибо. 1. Составить логическое выражение, значение которого равно True, если высказывание истинно, и False, — если ложно. Сумма цифр четырехзначного натурального числа является ...

< td height=30 valign=middle>Вопрос № 164.166
Решите пожалуйста задачку :

Решить при помощи численных методов уравнение (найти действительные корни) указанным методом

X4-4x+1=0 метод Ньютон

(напишите числа для работы программы)
Отправлен: 05.04.2009, 12:07
Вопрос задал: Хренков Олег Петрович (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Пупорев Юрий Борисович
Здравствуйте, Хренков Олег Петрович!
Программа в приложении.

Приложение:

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист)
Ответ отправлен: 06.04.2009, 07:26

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 246892 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Вопрос № 164.167
    Решите пожалуйста задачку :

    Написать программу для вычисления определенного интеграла указанными методами.

    ∫2,4-0,8 1÷√2x2 +3 dx метод прямоугольников

    (напишите числа для работы программы)
    Отправлен: 05.04.2009, 12:11
    Вопрос задал: Хренков Олег Петрович (статус: Посетитель)
    Всего ответов: 1
    Мини-форум вопроса >>> (сообщений: 5)
    Отвечает: Киселева Светлана Александровна
    Здравствуйте, Хренков Олег Петрович!
    Может эта программа Вам поможет. Я не совсем поняла из чего берется корень. Если что, откорректируйте формулу в первой функции сами.
    program Integral;
    var
    x0,xn:real; {Пределы интегрирования}
    n:byte; { Количество разбиений отрезка}

    function f(x:real):real; {Подинтегральная функция}
    Begin
    f:= 2.4-0.81/sqrt(2*x*x+3);
    end;

    function integ(a,b:real):real; {Функция, реализующая метод прямоугольников}
    var
    S,h:real; {S накапливает значение для вычисления интеграла}
    j:integer; {h - шаг аргумента, j - параметр для цикла}
    Begin
    h:=(b-a)/n;
    S:=0;
    for j:=0 to n-1 do
    S:= S+f(a+h*j);
    integ:=h*S; {В названии функции integ будет как в переменную записано значение интеграла}
    end;

    Begin
    writeln('BBEDITE KONCI OTRREZKA'); {Ввод данных - концов отрезка и кол-во разбиений}
    write('X0=');
    readln(X0);
    write('XN=');
    readln(XN);
    writeln('NA SKOLKO OTREZROV RAZBIT INTERVAL?');
    write('n=');
    readln(n);
    writeln('ZNACHENIE INTEGRALA RAVNO ',integ(x0,xn):8:3); {Вывод значения интеграла на экран с точностью - 3 знака после запятой}
    readln
    END.
    Ответ отправила: Киселева Светлана Александровна (статус: 2-й класс)
    Ответ отправлен: 07.04.2009, 12:16

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 246992 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Вопрос № 164.170
    Уважаемые эксперты. Прошу помощи в решении контрольной. Заранее спасибо.

    1. Составить логическое выражение, значение которого равно True, если высказывание истинно, и False, — если ложно. Сумма цифр четырехзначного натурального числа является однозначным числом.

    2. Точно и четко сформулировать условие задачи, которая решается в данной программе:
    Program Kr_2_3;
    Var I, N : LongInt; S : Real;
    Begin
    Write('Введите натуральное число: '); ReadLn(N);
    S := 0;
    For I := 1 To N Do
    If Odd(I) Then S := S + 1 / (Sqr(I) * I)
    Else S := S - 1 / (Sqr(I) * I);
    WriteLn('Ответ: ', S : 10 : 9)
    End.

    Задать натуральное число N <= 4. Определить, чему будет равно S для заданного N.

    3. Вычислить произведение: P=-1*(1/2)*(-1/4)*(1/8)*...*(-1)n/(2)n-1

    4. В данном линейном массиве действительных чисел найти количество элементов, которые меньше среднего арифмет ического всех элементов этого массива.

    5. В данной строке определить количество цифр.
    Отправлен: 05.04.2009, 12:50
    Вопрос задал: Александров Анатолий Олегович (статус: Посетитель)
    Всего ответов: 1
    Мини-форум вопроса >>> (сообщений: 0)
    Отвечает: Пупорев Юрий Борисович
    Здравствуйте, Александров Анатолий Олегович!
    Решение задач и ответ на вопрос в приложении.

    Приложение:

    Ответ отправил: Пупорев Юрий Борисович (статус: Специалист)
    Ответ отправлен: 05.04.2009, 18:15

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 246871 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Вы имеете возможность оценить этот выпуск рассылки.
    Нам очень важно Ваше мнение!
    Оценить этот выпуск рассылки >>

    Отправить вопрос экспертам этой рассылки

    Приложение (если необходимо):

    * Код программы, выдержки из закона и т.п. дополнение к вопросу.
    Эта информация будет отображена в аналогичном окне как есть.

    Обратите внимание!
    Вопрос будет отправлен всем экспертам данной рассылки!
    Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
    экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


    Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
    Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров >>

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2009, Портал RusFAQ.ru, Россия, Москва.
    Авторское право: ООО "Мастер-Эксперт Про"
    Техподдержка портала, тел.: +7 (926) 535-23-31
    Хостинг: "Московский хостер"
    Поддержка: "Московский дизайнер"
    Авторские права | Реклама на портале

    ∙ Версия системы: 5.13 от 01.12.2008

    		Яндекс Rambler's Top100
    RusFAQ.ru | MosHoster.ru | MosDesigner.ru
    RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru
    В избранное