Написал "алгоритм", но что-то упустил

[Геворг]

Друзья, помогите ошибку найти и дайте плз совет в правильном ли я для этого ур-я направлении написал алгоритм? спасибо!

program kr1_2;

uses crt;

var
x,y,R,F:real;
begin;
writeln('Enter x,y');
readln(x,y);
Case x*y of
x*y<0:R:=exp(x+y/1-x*y);
0<=x*y<=1:R:=arctan(x*y);
x*y>1,x>0:R:=lg(x*y-x);
end;
begin;
F:=R+1/(sqr(x)+sqr(y))/sqrt(sqr(R)+abs(x*y));
end.

[GetMax]

0<=x*y<=1

Кто ж вас так учил записывать условия в паскале.

var
x,y,R,F:real;
begin;
  writeln('Enter x,y');
  readln(x,y);
  If (x*y < 0)then R:=exp(x+y/1-x*y)
  Else
  If (x*y >= 0) and (x*y <=1) then R:=arctan(x*y)
  Else
  If (x*y > 1) and (x > 0) then R:=ln(x*y-x)/ln(10);
  F:=(R+1/(sqr(x)+sqr(y)))/sqrt(sqr(R)+abs(x*y));
  Writeln(F:4:2);
  Readln
End.

[Геворг]

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

0<=x*y<=1

Кто ж вас так учил записывать условия в паскале.

К сожалению никто, заочников не учат у нас, вы мой 1 из первых учителей, огромное спасибо,что помогли!

var
x,y,R,F:real;
begin;
  writeln('Enter x,y');
  readln(x,y);
  If (x*y < 0)then R:=exp(x+y/1-x*y)
  Else
  If (x*y >= 0) and (x*y <=1) then R:=arctan(x*y)
  Else
  If (x*y > 1) and (x > 0) then R:=ln(x*y-x)/ln(10);
  F:=(R+1/(sqr(x)+sqr(y)))/sqrt(sqr(R)+abs(x*y));
  Writeln(F:4:2);
  Readln
End.

А можно поинтересоваться зачем нужна эта строка, всё понял, кроме неё?

Writeln(F:4:2);

[GetMax]

Writeln(F:4:2)

А здесь мы просто выводим получившийся результат, то есть значение переменной F. Выделяя 4 позиции на все число и 2 из них на дробную часть(2 знака после запятой).

[Геворг]

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

Writeln(F:4:2)

А здесь мы просто выводим получившийся результат, то есть значение переменной F. Выделяя 4 позиции на все число и 2 из них на дробную часть(2 знака после запятой).

аа понятно, прикольно)!!!

Сейчас думаю как через опрератор выбора case сделать, вдуг препод спросит... Что указать после case?

[aleks15]

у меня есть нормальный учебник в электронном виде я сам без учителей по нему занимаюсь все понятно там очень хорошо изложено у меня нет на него ссылки но
автора сказать могу С.Н.Лукин очень хорошая книга правда там и про case есть и про все что надо;думаю она тебе поможет раз ты заочник

[GetMax]

Сейчас думаю как через опрератор выбора case сделать

Оператором Case of здесь лучше не пользоваться, так как слишком много вариантов выбора

[_-Re@l-_]

Оператором Case of здесь лучше не пользоваться, так как слишком много вариантов выбора

Вообще-то case предназначен для множественного выбора.

[GetMax]

Вообще-то case предназначен для множественного выбора.

Абсолютно согласен. Но я например так и не придумал как в Сase указать диапазон X < 0. Ну и остальные тоже. Поэтому и посоветовал отказаться от этого оператора

[XandrMoro]

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

Абсолютно согласен. Но я например так и не придумал как в Сase указать диапазон X < 0. Ну и остальные тоже. Поэтому и посоветовал отказаться от этого оператора

В принципе, не так уж и сложно:

...
if x <> 0 then k:= trunc(x/abs(x)) else k:= 0;
case k of
1: ... //больше нуля
-1: ... //меньше нуля
0: ... //равно нулю

Но да, это извращение)