Составить блок-схему и программу для вычисления значения функции U при заданных значениях x и y

@Bydapesht · Регистрация: 07.11.2013

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

Добрый день! Нужна помощь в решение задачи.
Требуется :
Составить блок-схему и программу для вычисления значения функции U при заданных значениях x и y.
для Предусловие (1)и Постусловие.(2)
Прикладываю в самом низу условия,прошу прощения ,что картинкой..
попробовал код написать:
предусловие
тут мне выдает ошибку на стадии компиляции,не понимаю почему..

Pascal

program lab11 ;
Var
x,y,u:real;
begin
x:=-11;
While x<=7.4 do
Begin
y:=0;
While y<=1 do
Begin
If (abs(sqr(x)+exp(2*ln(y))))<=5 then
U:= cos(x+y)/sin(x+y) else
If (abs(sqr(x)+exp(2*ln(y)))>5) and (abs(sqr(x)+exp(2*ln(y)))<13) then
U:=(sqr(x)+exp(3*ln(y))) else
U:=x-y;
Writeln('x= ',x:3:2,'y= ',y:3:2,'u= ',u:3:2);
Y:=y+0.2;
End;
X:=x+4.6;
End;
End.

выдает ошибку в 13 строке,хз почему..
постусловие

Pascal

Program lab21;
Var
x,y,u:real;
begin
x:=-11;
Repeat
y:=0;
If (abs(sqr(x)+exp(2*ln(y))))<=5 then
U:= cos(x+y)/sin(x+y) else
If (abs(sqr(x)+exp(2*ln(y)))>5) and (abs(sqr(x)+exp(2*ln(y)))<13) then
U:=(sqr(x)+exp(3*ln(y))) else
U:=x-y;
Writeln('x= ',x:3:2,'y= ',y:3:2,'u= ',u:3:2);
Y:=y+0,2;
Until y>1;
X:=x+4.54;
Until x>7.4;
End.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?U=\begin{cases}\text{ctg}(x+y)&\text{, if }\left|x^2+y^2\right|\leq 5\\\\x^2+y^3&\text{, if }5<\left|x^2+y^2\right|<13\\\\x-y&\text{, if }\left|x^2+y^2\right|\geq 13\end{cases}$

-11 ≤ x ≤ 7.4 с шагом h = 4.6 и 0 ≤ y ≤ 1 с шагом h = 0.2.

Так же сделал попытку построить блок-схемы(слева-предусловия,справа-постусловие):

@Joy · 27.10.2014, 05:48

Bydapesht, ln(y) при y=0 не существует

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

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

sqr(x)+exp(2*ln(y))

- это зачем? можно же просто написать sqr(x)+sqr(y)
или x*x+y*y

@Bydapesht · 27.10.2014, 07:32 **[ТС]**

Joy, "ln(y) при y=0 не существует" можете поправить?это в какой строке?

@Joy · 27.10.2014, 07:56

с постусловием:

Pascal

const hx=4.6;hy=0.2;
var
  x,y,u,z:real;
begin
  x:=-11.0;
  repeat
   y:=0;
   repeat
     z:=x*x+y*y;
     if z<=5 then u:=cos(x+y)/sin(x+y) else
     if (z>=13) then u:=x-y else u:=x*x+y*y*y;
     writeln(x:8:2,y:8:2,u:8:4);
     y:=y+hy;
   until y>1;
   x:=x+hx;
 until x>7.4;
end.

Добавлено через 5 минут
c спредусловием:

Pascal

const hx=4.6;hy=0.2;
var
  x,y,u,z:real;
begin
  x:=-11.0;
  while x<=7.4 do begin
   y:=0;
   while y<=1 do begin
     z:=x*x+y*y;
     if z<=5 then u:=1/sin(x+y) else
     if (z>=13) then u:=x-y else u:=x*x+y*y*y;
     writeln(x:8:2,y:8:2,u:8:4);
     y:=y+hy;
   end;
   x:=x+hx;
 end;
end.

@Bydapesht · 27.10.2014, 07:58 **[ТС]**

Joy, большое спасибо!Хочу уточнить, мои блок-схемы актуальны для вашего кода?
Есть ещё такой вопрос..

Pascal

1	writeln(x:8:2,y:8:2,u:8:4)

(x:8:2,y:8:2,u:8:4)=какая природа этих значений?не вижу связи с заданием.прошу прощение если глупый вопрос задаю.

@Joy · 27.10.2014, 08:18

x:8:2 - 8 знаков размер числа, 2 знака после запятой
u:8:4 - 8 знаков размер числа, 4 знака после запятой
блок схемы не актуальны.

Составить блок-схему и программу для вычисления значения функции U при заданных значениях x и y

Решение

Решение

@Joy 2386 / 1298 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	27.10.2014, 05:48	2
	Bydapesht, ln(y) при y=0 не существует Добавлено через 3 минуты Сообщение от Bydapesht sqr(x)+exp(2ln(y)) - это зачем? можно же просто написать sqr(x)+sqr(y) или xx+y*y 1

@Bydapesht 0 / 0 / 0 Регистрация: 07.11.2013 Сообщений: 21
	27.10.2014, 07:32 [ТС]	3
	Joy, "ln(y) при y=0 не существует" можете поправить?это в какой строке? 0

@Joy 2386 / 1298 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	27.10.2014, 08:18	6
	Сообщение было отмечено Bydapesht как решение Решение x:8:2 - 8 знаков размер числа, 2 знака после запятой u:8:4 - 8 знаков размер числа, 4 знака после запятой блок схемы не актуальны. 1

Опции темы