0 / 0 / 0
Регистрация: 10.01.2010
Сообщений: 22
1

Построить алгоритм ДО и алгоритм ПОКА для вычислений значения функции на отрезке [a,b] с шагом h.

08.05.2010, 21:24. Показов 2275. Ответов 5
Метки нет (Все метки)

Построить алгоритм ДО и алгоритм ПОКА для вычислений значения функции на отрезке [a,b] с шагом h. Написать программу:

F=3+tgx


Мой код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
label m1;
var y,x,a,b,h:real;
begin
clrscr;
writeln('vvedit a,b,h:');
readln(a,b,h);
x:=a;
m1: y:=3+sin(x)/cos(x);
writeln('y=',y);
x:=x+h;
if x<=b then goto m1;
repeat until keypressed
end.
Как его с циклами расписать?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.05.2010, 21:24
Ответы с готовыми решениями:

Построить алгоритм ДО и алгоритм ПОКА дя вычислений значения функции на отрезке [а,b] с шагом h. Написать программу
F=3+tg x

Алгоритм и программа вычисления значений функции на произвольном отрезке с произвольным шагом
Составьте алгоритм и программу вычисления значений функции на произвольном отрезке с произвольным...

Составьте алгоритм и программу вычисления значений функции на произвольном отрезке с произвольным шагом
Коллеги помогите Составьте алгоритм и программу вычисления значений функции на произвольном...

Вычислить значения функции y=sinx на отрезке [-pi,pi] с шагом h= pi/5. Найти max и min значения функции на этом отрезке
Вычислить значения функции y=sinx на отрезке с шагом h= pi/5. Найти max и min значения функции на...

5
ЧакЭ одобряЭ
285 / 284 / 86
Регистрация: 27.12.2009
Сообщений: 1,767
09.05.2010, 01:07 2
Pascal
1
2
3
4
5
6
while a <= b do 
  begin
    f := 3 + tan(a);
    write(f:3:2, ' ');
    a := a + h;
  end;
Добавлено через 22 минуты
Pascal
1
2
3
4
5
repeat
    f := 3 + tan(a);
    write(f:3:2, ' ');
    a := a + h;
  until a>=b;
1
0 / 0 / 0
Регистрация: 10.01.2010
Сообщений: 22
10.05.2010, 12:31  [ТС] 3
Спасибо, а можешь вместе с кодом написать, даже не знаю на какое место, что поставить?
0
4341 / 1473 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
10.05.2010, 12:32 4
Artishok, в Паскале тангенса нет.
0
0 / 0 / 0
Регистрация: 10.01.2010
Сообщений: 22
13.05.2010, 01:55  [ТС] 5
Прошу доделайте код
0
ЧакЭ одобряЭ
285 / 284 / 86
Регистрация: 27.12.2009
Сообщений: 1,767
13.05.2010, 19:32 6
значит Sin(a)/cos(a)
просто я в Abc.net работаю.но сейчас частично на free pascal стал

Добавлено через 10 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  a, b, f, h: real;
 
begin
  readln(a, b, h);
  f := 0;
  while a <= b do 
  begin
    f := 3 + tan(a);
    write(f:3:2, ' ');
    a := a + h;
  end;
end.
вот для while.если tan "барахлит" сделайте через sin/cos
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.05.2010, 19:32
Помогаю со студенческими работами здесь

Алгоритм вычисления значения функции у = -2,7х^3 + 0,23 х^2 - 1,4 на отрезке [a; b]
Разработайте алгоритм вычисления значения функции у = -2,7х^3 + 0,23 х^2 - 1,4 на отрезке ...

Составить программу для вычисления значения функции ,на отрезке АВ с шагом Н
2. Составить программу для вычисления величины стартого значения 1. N=П(вверху над П 25,внизу...

Вывести на печать значения функции y= sqrt(х) + х, для х, изменяющегося на отрезке (-10,10) с шагом 1,5
Составить программы на языке паскаль: 1) Вывести на печать значения функции y= sqrt(х) + х, для...

Y=-2*x2+3*x+1.5 Составить алгоритм для поиска max значения y, х изменяется в диапазоне 0.1<=х<=1 с шагом дх=0
Дана функция y=-2*x2+3*x+1.5. Составить алгоритм для поиска максимального значения y, если х...

Табулировать функцию на отрезке с шагом и вычислить значение данной функции для промежуточного значения аргумента.
Задание. 2. Табулировать функцию F(x) на отрезке 0;x3] с шагом h=(x3-x0)/3 и вычислить значение...

Вычислите значения функции y = sin(ax) для x, изменяющегося от 1 с шагом 1 до тех пор, пока данная функция возрастает
Вычислите значения функции y = sin(ax) для x, изменяющегося от 1 с шагом 1 до тех пор, пока данная...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru