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

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

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


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


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

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

Статистика

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

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


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

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

Лучшие эксперты данной рассылки

Орловский Дмитрий
Статус: Профессор
Рейтинг: 3716
∙ повысить рейтинг » 		Boriss
Статус: Академик
Рейтинг: 2666
∙ повысить рейтинг » 		Абаянцев Юрий Леонидович aka Ayl
Статус: Профессионал
Рейтинг: 2275
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)

Номер выпуска:1160
Дата выхода:15.01.2011, 04:30
Администратор рассылки:Boriss (Академик)
Подписчиков / экспертов:181 / 176
Вопросов / ответов:1 / 1

Вопрос № 181804: Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос: 1 задание. Дано уравнение: f(x)=0 В качестве изменяемой переменной выбрана величина . Остальные величины произвольные и выбираются самостоятельно. Найти оди...

Вопрос № 181804:

Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос:

1 задание.
Дано уравнение: f(x)=0

В качестве изменяемой переменной выбрана величина . Остальные величины произвольные и выбираются самостоятельно.
Найти один из корней уравнения.
Указания к выполнению курсовой работы
1. Самостоятельно изучить следующие методы решения уравнений
∙ метод половинного деления;
∙ метод Ньютона (метод касательных);
2. Составить программу на языке Pascal, которая выводит в текстовой файл data1.txt в два столбца значения переменной x и функции . (Шаг изменения аргумента следует принять постоянным).
3. Затем, используя программное приложение Excel построить график функции по данным файла data1.txt.
4. Графически определить отрезок изменения переменной x вблизи корня уравнения , учитывая требования, описанные в литературе по методам решения уравнения (п.1).
5. Границы отрезка и погрешность вычислений задать в текстовом файле data2.txt .
6. Нарисовать блок-схемы решения задачи каждым методом из п.1.
7. Написать программу на языке Pascal решения уравнения методами п.1. Исходные данные считать из файла data2.txt. Вычисление оформить в виде подпрограммы (функции). Решение уравнения каждым методом оформить в виде подпрограммы (процедуры).
8. В программе подсчитать количество шагов (итераций) требуемых для нахождения решения уравнения с заданной точностью каждым из методов п.1.
9. В текстовой файл result.txt вывести результаты решения задачи и число итераций для каждого метода с соответствующими комментариями.

Моё уровнение: 2lnx-1/x


2 задание.

ЗАДАЧИ ПО ПРОГРАММИРОВАНИЮ

УСЛОВНЫЙ ОПЕРАТОР
На плоскости XOY задана своими координатами точка A. Указать, где она расположена: на какой оси или в каком координатном угле.

ЦИКЛЫ
Дано действительное число. Вычислить: x-((x^3)/3!)+((x^5)/5!)+((x^7!)/7)+((x^9)/9!)+((x^11)/11!)+((x^13)/13!)

МАССИВЫ
Дана посл едовательность натуральных чисел a1, a2,..., an. Создать массив из четных чисел этой последовательности. Если таких чисел нет то вывести сообщение об этом факте.

Помогите кто может

Отправлен: 10.01.2011, 04:13
Вопрос задал: Смирнов (Посетитель)
Всего ответов: 1
Страница вопроса »

Отвечает Andrew Kovalchuk (Профессионал) :
Здравствуйте, Смирнов!
Вы гораздо быстрее получили бы результат оформив по одной задаче в каждой бесплатной консультации (что, впрочем, и предписывается правилами: "один вопрос - одна задача").
Могу предложить вариант решения задачи на ЦИКЛЫ (решается задача отличная от предоставленной вами - я счел, что в предложенном вами задании опечатка).
Код:
{
 Дано действительное число х.
 Вычислить: x-((x^3)/3!)+((x^5)/5!)+((x^7)/7!)+((x^9)/9!)+((x^11)/11!)+((x^13)/13!)
}
uses
 crt;
var
 x, sum, p, f: real;
 i: byte;
begin
 clrscr;
 write('x = ');
 readln(x);
 p := x;
 f := 1;
 sum := 0;
 for i := 2 to 13 do begin
  p := p
  * x;
  f := f * i;
  writeln(i:3, p:7:3, f:12:0);
  if odd(i) then begin
   sum := sum + p/f;
   writeln(sum:0:11);
  end;
 end;
 writeln;
 writeln('Result: ', (x - sum):0:5);
 writeln('Done. Press any key...');
 readkey;
end.

-----
Временная неудача лучше временной удачи

Ответ отправил: Andrew Kovalchuk (Профессионал)
Ответ отправлен: 10.01.2011, 13:35
Номер ответа: 265323
Украина, Киев

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

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

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

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

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

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

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

    © 2001-2011, Портал RFPRO.RU, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Калашников О.А. | Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2011.6.26 от 05.01.2011
    В избранное