Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
anbrodier
0 / 0 / 1
Регистрация: 19.12.2012
Сообщений: 36
#1

Значения функции вывести в виде таблицы на интервале от до с шагом h. . Сама программа готова - Turbo Pascal

25.02.2013, 22:18. Просмотров 853. Ответов 3
Метки нет (Все метки)

Доброго времени суток, прошу немного помочь. необходимо оформить в виде таблицы(согласно с заданием), сама программа готова.
Вычислить с заданной точностью значения данной функции на интервале от х(нач) до х(кон) с шагом h, используя разложение функции в степенной ряд. Значения функции вывести в виде таблицы на интервале от х(нач) до х(кон) с шагом h. Таблицу снабдить заголовком и шапкой. Каждая строка таблицы должна содержать значение аргумента, приближённое значение функции, вычисленное с заданной точностью e и точное значение, вычисленное с использованием стандартных математических функций. Исходные данные выбрать самостоятельно в соответствии с заданным условием(на вложении).
Код программы:
Delphi
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
uses crt;
Var
    i,n: longint;
    cosx,x: double;
    fact,tln:double;
begin
    write('Введите кво итераций n ');
    Readln(n);
    n:=20;
    write('Введите x градусы ');
    Readln(x);
    x:=x*3.1415926/180;
    cosx:=0;
    fact:=1;
        tln:=1;
    for i:=0 to n do
    begin
        cosx:=cosx+tln/fact;
        fact:=-fact*(i*2+1)*(i*2+2);
                tln:=tln*x*x;
    end;
    x:=cos(x);
    writeln('Расч знач = ',cosx:10:2,' функц знач = ',x:10:2);
        readln();
 end.
Спасибо за внимание.
0
Миниатюры
Значения функции вывести в виде таблицы на интервале от   до  с шагом h. . Сама программа готова  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.02.2013, 22:18
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Значения функции вывести в виде таблицы на интервале от до с шагом h. . Сама программа готова (Turbo Pascal):

Вычислить и вывести на экран в виде таблицы значения функции F на интервале от Хнач до Хкон с шагом dX
Вычислить и вывести на экран в виде таблицы значения функции F на интервале от...

Вычислить и вывести на экран в виде таблицы значение функции, заданной графически, на интервале от хнач до хкон с шагом dx
Помогите решить задание 1: Вычислить и вывести на экран в виде таблицы...

Вычислить и вывести на экран в виде таблицы значения сложной функции на заданном интервале
Вычислить и вывести на экран в виде таблицы(таблицу снабдить заголовком и...

Вычислить и вывести на экран в виде таблицы значения функции, заданной с помошью ряда, на интервале
Вычислить и вывести на экран в виде таблицы значения функции, заданной с...

Вычислить и вывести на экран в виде таблицы значения функции, заданной с помошью ряда, на интервале от Хнач до Хкон
Вычислить и вывести на экран в виде таблицы значения функции, заданной с...

Вычислить и вывести на экран в виде таблицы значение функции F на интервале
Вычислить и вывести на экран в виде таблицы(таблицу снабдить заголовком и...

3
anbrodier
0 / 0 / 1
Регистрация: 19.12.2012
Сообщений: 36
25.02.2013, 22:58  [ТС] #2
Это код на паскале вставленный в форму делфи(форумную) для красоты и удобства*
0
Puporev
Модератор
54137 / 41770 / 28880
Регистрация: 18.05.2008
Сообщений: 98,313
26.02.2013, 09:43 #3
Pascal
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
uses crt;
const n=20;
var xn,xk,x,s,h,t:real;
    i,k:integer;
begin
clrscr;
write('Введите начало интервала xn=');
readln(xn);
repeat
write('Введите конец интервала, больше ',xn:0:1,' xk=');
readln(xk);
until xk>xn;
repeat
write('Введите шаг табуляции, меньше ',xk-xn:0:1,' h=');
readln(h);
until h<xk-xn;
clrscr;
x:=xn;
writeln('       Табулирование функции F(x)=cos(x),');
writeln('     представленной разложением в степенной ряд');
writeln('        на интервале ',xn:0:1,'..',xk:0:1,' с шагом ',h:0:1);
writeln;
writeln('        -----------------------------');
writeln('        |   X   |    S    |   cosx  |');
writeln('        -----------------------------');
while x<=xk+h/2 do
 begin
  s:=1;
  t:=1;
  for i:=1 to n do
   begin
    t:=-t*x*x/((2*i-1)*2*i);
    s:=s+t
   end;
  writeln('        |',x:6:1,' |',s:8:4,' |',cos(x):8:4,' |');
  k:=k+1;
  if k mod 15=0 then
   begin
    write('Нажмите Enter');
    readln;
    clrscr;
    writeln('        -----------------------------');
    writeln('        |   X   |    S    |   cosx  |');
    writeln('        -----------------------------');
   end;
  x:=x+h;
 end;
writeln('        -----------------------------');
readln
end.
0
anbrodier
0 / 0 / 1
Регистрация: 19.12.2012
Сообщений: 36
28.10.2013, 19:58  [ТС] #4
Ответ дан, прошу удалить тему.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2013, 19:58
Привет! Вот еще темы с решениями:

Вычислить и вывести на экран в виде таблицы значение функции на интервале
Вычислить и вывести на экран в виде таблицы значение функции на интервале от X...

Вычислить и вывести на экран в виде таблицы N значении функции F на интервале от Хнач. до Хкон
Вычислить и вывести на экран в виде таблицы N значении функции F на интервале...

(8 баллов). Вывести в файл значение функции для значений x от минус 2 до 2 с шагом 0.1 в виде таблицы (x, y).
(8 баллов). Вывести в файл значение функции для значений x от минус 2 до 2 с...

Вычислить и вывести на экран в виде таблицы значения функции, заданной в виде ряда Тейлора
Вычислить и вывести на экран в виде таблицы значения функции, заданной с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru