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

@dimonpwnz · Регистрация: 10.01.2010

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

F=3+tgx

Мой код:

Pascal

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.

Как его с циклами расписать?

@Artishok · 09.05.2010, 01:07

Pascal

while a <= b do 
  begin
    f := 3 + tan(a);
    write(f:3:2, ' ');
    a := a + h;
  end;

Добавлено через 22 минуты

Pascal

repeat
    f := 3 + tan(a);
    write(f:3:2, ' ');
    a := a + h;
  until a>=b;

@dimonpwnz · 10.05.2010, 12:31 **[ТС]**

Спасибо, а можешь вместе с кодом написать, даже не знаю на какое место, что поставить?

@yanyk1n · 10.05.2010, 12:32

Artishok, в Паскале тангенса нет.

@dimonpwnz · 13.05.2010, 01:55 **[ТС]**

Прошу доделайте код

@Artishok · 13.05.2010, 19:32

значит Sin(a)/cos(a)
просто я в Abc.net работаю.но сейчас частично на free pascal стал

Добавлено через 10 минут

Pascal

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

@dimonpwnz 0 / 0 / 0 Регистрация: 10.01.2010 Сообщений: 22
	10.05.2010, 12:31 [ТС]	3
	Спасибо, а можешь вместе с кодом написать, даже не знаю на какое место, что поставить? 0

@yanyk1n 4335 / 1467 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	10.05.2010, 12:32	4
	Artishok, в Паскале тангенса нет. 0

@dimonpwnz 0 / 0 / 0 Регистрация: 10.01.2010 Сообщений: 22
	13.05.2010, 01:55 [ТС]	5
	Прошу доделайте код 0

Опции темы