Циклический процес

@agasfer · Регистрация: 22.09.2011

Author24 — интернет-сервис помощи студентам

Написать программу расчета функции, используя операторы цикла WHILE.

Заранее спасибо !

@agasfer · 24.12.2011, 17:23 **[ТС]**

Не могли б вы чуток начать программку, попробую сам закончить

@Andyc · 24.12.2011, 18:29

Pascal

uses crt;
const
  A=0.25;
  B=11.6;
  xn=0.2;
  xk=1.2;
  N=11;
var
  X, y, h: Real;
begin
  ClrScr;
  h:=(xk-xn)/(N-1);
  X:=xn;
  Writeln('X':4,'y':10);
  while X<xk+h do
  begin
    y:=(A+Sqrt(X))/Sqrt(B-X);
    Writeln(X:6:2, y:12:8);
    X:=X+h;
  end;
  Readkey;
end.

@agasfer · 24.12.2011, 19:33 **[ТС]**

А можно сделать с тем же условием только использовать операторы REPEAT в первом способе и
FOR во-втором.

Буду весьма благодарен !

@Andyc · 24.12.2011, 21:09

Pascal

uses crt;
const
  A=0.25;
  B=11.6;
  xn=0.2;
  xk=1.2;
  N=11;
var
  X, y, h: Real;
begin
  ClrScr;
  h:=(xk-xn)/(N-1);
  X:=xn;
  Writeln('X':4,'y':10);
  repeat
    y:=(A+Sqrt(X))/Sqrt(B-X);
    Writeln(X:6:2, y:12:8);
    X:=X+h;
  until X>xk+h;
  Readkey;
end.

Pascal

uses crt;
const
  A=0.25;
  B=11.6;
  xn=0.2;
  xk=1.2;
  N=11;
var
  X, y, h: Real;
  i: Integer;
begin
  ClrScr;
  h:=(xk-xn)/(N-1);
  X:=xn;
  Writeln('X':4,'y':10);
  for i:=1 to  N do
  begin
    y:=(A+Sqrt(X))/Sqrt(B-X);
    Writeln(X:6:2, y:12:8);
    X:=X+h;
  end;
  Readkey;
end.

@agasfer 0 / 0 / 0 Регистрация: 22.09.2011 Сообщений: 52
		1
	Циклический процес 24.12.2011, 15:35. Показов 473. Ответов 4 Метки нет (Все метки) Написать программу расчета функции, используя операторы цикла WHILE. Заранее спасибо ! Миниатюры 0

@agasfer 0 / 0 / 0 Регистрация: 22.09.2011 Сообщений: 52
	24.12.2011, 17:23 [ТС]	2
	Не могли б вы чуток начать программку, попробую сам закончить 0

@agasfer 0 / 0 / 0 Регистрация: 22.09.2011 Сообщений: 52
	24.12.2011, 19:33 [ТС]	4
	А можно сделать с тем же условием только использовать операторы REPEAT в первом способе и FOR во-втором. Буду весьма благодарен ! 0

	24.12.2011, 21:09