Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.97/39: Рейтинг темы: голосов - 39, средняя оценка - 4.97
2 / 2 / 0
Регистрация: 26.11.2009
Сообщений: 49
1

Протабулировать функцию на заданном отрезке

13.12.2009, 10:51. Показов 8000. Ответов 2
Метки нет (Все метки)

Короче задание в общем то такое протабулировать функцию на заданном отрезке с заданным шагом Y=3*SIN(3*x+1) в интервале [a;b] с шагом h программа написана верно...но вот не задача при компиляции задаем a=2, b=5, h=0.3 и вот в принципе сама проблема считает только до 4.7 ....запустите кто может ппроверьте ...как это устранить ?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Uses crt;
var
 zy,a,b,h,y,x,sumpol,Sa:real;
begin
clrscr;
  sumpol:=0;zy:=0;
Write('a=');Readln(a);
Write('b=');Readln(b);           {vozmozen li otr shag}
Write('h=');Readln(h);
 x:=a;
While x<=b do begin
y:=3*sin(3*x+1);   Writeln('x=',x,' ', 'y=',y);
If y<0 then Writeln('Y prinimaet otr zn')
            else if y>0
             then begin  sumpol:=sumpol+1;zy:=zy+y;
Writeln('Kol-vo Pol znachenij Y=',sumpol,' ','Summa Pol znachenij Y=',zy);
 Sa:=zy/sumpol;
                end;
 x:=x+h;  End;
Writeln;
 Writeln('Srednee arifm pol zn=',Sa);
readln;
end.
Добавлено через 7 минут
Вот таже программа только без премудростей
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Uses crt;
var
 zy,a,b,h,y,x,sumpol,Sa:real;
begin
clrscr;
  sumpol:=0;zy:=0;
Write('a=');Readln(a);
Write('b=');Readln(b);
Write('h=');Readln(h);
 x:=a;
While x<=b do begin
y:=3*sin(3*x+1);Writeln('x=',x,'y=',y);
 x:=x+h;  End;
Writeln;
 
readln;
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2009, 10:51
Ответы с готовыми решениями:

Протабулировать функцию на заданном отрезке
Здравствуйте. Помогите пожалуйста. Используя два вида операторов цикла составить программы...

Протабулировать функцию y=x2-2x+1 на отрезке от -1 до 3 с шагом 0.25
2)Протабулировать функцию y = x2-2x+1 на отрезке от -1 до 3 с шагом 0.25. Вывести на экран все пары...

Протабулировать функцию на отрезке ab с шагом h
протабулировать функцию на отрезке ab с шагом h. y=ln(ln(x-1)+ln(\sqrt{x+2})) Добавлено через...

Протабулировать функцию на отрезке ab с шагом h
протабулировать функцию на отрезке ab с шагом h. y={x}^{3/5}+\sqrt{x-8}

2
ЙожЪ
63 / 59 / 17
Регистрация: 23.10.2009
Сообщений: 652
13.12.2009, 11:04 2
всё работает, считает все значения от 2х до 5ти, если ставить от 3х, то только до 4.8...

а вам нельзя это делать через цикл?
0
2 / 2 / 0
Регистрация: 26.11.2009
Сообщений: 49
13.12.2009, 14:18  [ТС] 3
В том то и дело что если считать именно те значения которые я задавал он останавливается на 4.7 а должен на 5 вот в чем проблема как от этого избавиться чтоб до 5 все таки считал?.........
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2009, 14:18

Протабулировать функцию на заданном интервале
на интервале 0,1&lt;=t&lt;=1,0 с шагом дельта t=0,2 протабулировать функцию...

Протабулировать функцию на заданном интервале
задача на циклы. Протабулируйте функцию f(x)=x*sin10x на отрезке с шагом n=1, вычислить квадрат...

Протабулировать функцию на заданном интервале
uses crt; function F(u:real):real; begin if u&gt;=2 then F:=ln(u)/ln(10)+sqr(ln(u+1)/ln(10)) else...

Протабулировать функцию на заданном интервале
Помогите, пожалуйста, добрые люди! Надо протабулировать функцию на интервале 80 ≤ x...

Подпрограммы-функции: протабулировать функцию на заданном промежутке
y=x-√x+2 на интервале с шагом 0,2

При помощи оператора WHILE протабулировать функцию в заданном диапазоне
7. Разработать алгоритмы и программы решения задач: a) при помощи оператора WHILE протабулировать...


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

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

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