Для организации цикла использовать оператор условного перехода

@AlexK812 · Регистрация: 12.03.2013

Для организации цикла использовать оператор условного перехода, в процессе разработки использовать компоненты Label, Button, Edit.

вычислить:

Z=exp(ln(y))+2/2*y-0.4;

R= b*SIN(sqr(z)), если z>0.8;
R=a*Ln(abs(cos(z))), если z<=0.8;

если y=[1.2;2.4] с шагом h=0.2, a=2.7, b=-2.

@Puporev · 31.01.2015, 08:05

Сообщение от AlexK812

Для организации цикла использовать оператор условного перехода

Оператор условного перехода находится внутри цикла.

Delphi

const a=2.7;
      b=-2;
      h=0.2;
var y,r,z:real;
begin
y:=1.2;
while y<=2.4 do
 begin
  z:=exp(ln(y))+2/(2*y)-0.4;//или z:=exp(ln(y))+2/(2*y-0.4); ??
  if z>0.8 then r:=b*sin(sqr(z))
  else r:=a*ln(abs(cos(z)));
  //вывод y,z,r
  y:=y+h
 end;

@tuwm · 31.01.2015, 17:31

Может так:

Delphi

const a=2.7;
      b=-2;
      h=0.2;
var y,r,z:real;
label lb;
begin
  y:=1.2;
  lb:
  z:=exp(ln(y))+2/(2*y)-0.4;//или z:=exp(ln(y))+2/(2*y-0.4); ??
  if z>0.8 then r:=b*sin(sqr(z))
  else r:=a*ln(abs(cos(z)));
  //вывод y,z,r
  y:=y+h;
  if y<=2.4 then goto lb;
end

@Puporev · 31.01.2015, 17:34

Что, знакомое слово увидел?

Сообщение от AlexK812

использовать ... Label, ....

@tuwm · 02.02.2015, 22:08

ну здесь есть хоть какой-то label

@AlexK812 0 / 0 / 0 Регистрация: 12.03.2013 Сообщений: 26
		1
	Для организации цикла использовать оператор условного перехода 31.01.2015, 02:01. Показов 996. Ответов 4 Метки нет (Все метки) Для организации цикла использовать оператор условного перехода, в процессе разработки использовать компоненты Label, Button, Edit. вычислить: Z=exp(ln(y))+2/2y-0.4; R= bSIN(sqr(z)), если z>0.8; R=a*Ln(abs(cos(z))), если z<=0.8; если y=[1.2;2.4] с шагом h=0.2, a=2.7, b=-2. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Puporev Почетный модератор 64272 / 47571 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	31.01.2015, 17:34	4
	Что, знакомое слово увидел? Сообщение от AlexK812 использовать ... Label, .... 0

@tuwm 0 / 0 / 0 Регистрация: 01.01.2015 Сообщений: 21
	02.02.2015, 22:08	5
	ну здесь есть хоть какой-то label 0

Опции темы