Помогите с паскалем)

[Shrek-Ogre]

Помогите пожалуйста написать программу, буду очень благодарен)

вот что у меня получилось):

program lab2;
var max,u,x,y,A,B,C:real;
begin
x:=1;
while(x<=3)
        do begin
        y:=2;
        while(y<=4)
                do begin
                A:=(exp(1)*sin(sqr(x)-sqrt(y)));
                B:=cos(exp((2/3)*ln(x*y)));
                C:=cos(x*sqr(y));
                if A<B then max:=B else max:=A;
                if (x/sqr(y))<1 then U:=max else U:=C;
                writeln(' x=',x:4:2,' y=',y:4:2,' U=',u:4:2);
        y:=y+1.5;end;
x:=x+1.3;end;
end.

[ProZZaK]

О_о...погоди с полчасика,у меня где то были такие примеры))

[Axel2150]

ммм... помню на 1 курсе писали вычесление значений функции либо по заданому интервалу либо по точкам...
напоротся было там на что

[YuP]

а ты уверен в этой строчке:
B:=cos(exp((2/3)*ln(x*y)));
???

вроде как x в первой степени в подкоренном выражении

[Shrek-Ogre]

вот я немножко поправил):

а со степенью вот так??

exp(2/3)*ln(y)*exp(1/3)*ln(x)

[YuP]

ну насколько я помню (лень проверять, четыре года уже не программил)
x^y=exp(y*ln(x))
а так, то, что ты предложил про перемножение корней верно с учетом внесения под скобки exp.

но я особо в смысл не вникал. чисто формально глянул.

[Shrek-Ogre]

что-то не работает((

program lab2;
var max,U,x,y,A,B,C:real;
begin
x:=1;
while x<=3
do begin
y:=2;
while y<=4
do begin
A:=((exp(1)*sin(sqr(x)))-sqrt(y));
B:=cos(((exp((2/3)*ln(y)))*(exp((1/3)*(x)))/sin((exp((2/3)*ln(y)))*(exp((1/3)*ln(x)))); (показывает, что в этой строке ошибка со скобками )
C:=cos(x*y*y);
if A<B then max:=B else max:=A;
if (x/sqr(y))<1 then U:=max else U:=C;
writeln(' x=',x:4:2,' y=',y:4:2,' U=',u:4:2);
y:=y+1.5;end;
x:=x+1.3;
end;
readln;
end.

[YuP]

Скобки считать учись. Код работает, но суть я не проверял.

1:

program lab2;
var max,U,x,y,A,B,C,qq,q:real;
begin
x:=1;
while x<=3
do begin
y:=2;
while y<=4
do begin
A:=((exp(1)*sin(sqr(x)))-sqrt(y));
B:=cos((exp((2/3)*ln(y))*exp((1/3)*(x))))/sin((exp((2/3)*ln(y))*exp((1/3)*ln(x))));
C:=cos(x*y*y);
if A<B then max:=B else max:=A;
if (x/sqr(y))<1 then U:=max else U:=C;
writeln(' x=',x:4:2,' y=',y:4:2,' U=',u:4:2);
y:=y+1.5;end;
x:=x+1.3;
end;
readln;
end.

[Shrek-Ogre]

спасибо большое)

а с repeat так будет)??:

program lab2;
var max,U,x,y,A,B,C:real;
begin
writeln('data function');
x:=1;
repeat
 x:=3;
repeat
 y:=2;
while y<=4
do begin
A:=((exp(1)*sin(sqr(x)))-sqrt(y));
B:=cos((exp((2/3)*ln(y))*exp((1/3)*ln(x))))/sin((exp((2/3)*ln(y))*exp((1/3)*ln(x))));
C:=cos(x*y*y);
if A<B then max:=B else max:=A;
if (x/sqr(y))<1 then U:=max else U:=C;
writeln(' x=',x:4:2,' y=',y:4:2,' U=',u:4:2);
y:=y+1.5
until(y>3);
writeln;
x:=x+1.3
until(x>4);
readln;
end.

[YuP]

нет, не так.
посмотри. у тебя во втором repeat каждый раз y присваивается 2.

потом есть начало: while y<=4
do begin


где end;?

[Shrek-Ogre]

что-то не догадался куда енд сунуть)

program lab2;
var max,U,x,y,A,B,C:real;
begin
writeln('data function');
x:=2;
repeat
 y:=1;
 repeat
A:=((exp(1)*sin(sqr(x)))-sqrt(y));
B:=cos((exp((2/3)*ln(y))*exp((1/3)*ln(x))))/sin((exp((2/3)*ln(y))*exp((1/3)*ln(x))));
C:=cos(x*y*y);
if A<B then max:=B else max:=A;
if (x/sqr(y))<1 then U:=max else U:=C;
writeln(' x=',x:4:2,' y=',y:4:2,' U=',u:4:2);
y:=y+1.5
until(y>3);
writeln;
x:=x+1.3
until(x>4);
readln;
end.

[YuP]

на первый взгляд ляпов нет

Добавлено через 2 минуты 30 секунд
хотя токи с запятой после последней операции присвоения перед until я бы поставил

[Shrek-Ogre]

неа, что-то не так, разные результаты получаются(




почему-то через 1 (

[YuP]

Ну смотри. в одной из вышеприведенных прог ты x присваиваешь вначале 1.
в этой версии - 2

Добавлено через 35 секунд
аналогично с y (ранее - 2, сейчас - 1)

[Shrek-Ogre]

вот переделал, но ничего не меняется:

program lab2;
var max,U,x,y,A,B,C:real;
begin
writeln('data function');
x:=1;
repeat
 y:=2;
 repeat
A:=((exp(1)*sin(sqr(x)))-sqrt(y));
B:=cos((exp((2/3)*ln(y))*exp((1/3)*ln(x))))/sin((exp((2/3)*ln(y))*exp((1/3)*ln(x))));
C:=cos(x*y*y);
if A<B then max:=B else max:=A;
if (x/sqr(y))<1 then U:=max else U:=C;
writeln(' x=',x:4:2,' y=',y:4:2,' U=',u:4:2);
y:=y+1.5;
until(y>3);
writeln;
x:=x+1.3;
until(x>4);
readln;
end.

[YuP]

условия прерывания цикла смотри. у тебя вместо: until(x>4); должно быть until(x>3);

и until(y>4);

[Shrek-Ogre]

YuP

спасибо тебе большое)

[Axel2150]

ммм... как то поменьше тут можно переменных ввести мне кажется и цикл один убрать... хотя я сделал на С... а С - гибкий мать его язык >__<
На паскале не помню уже можно ли так сделать...

C:

#include <stdio.h>
#include <math.h>
#include <conio.h>

int main()
{
float x=1.,y=2.,FF,SF,TF;

do
{
if ((x/(y*y))<1)
{
FF = exp(1)*sin((x*x)) - sqrt(y);
SF = cos((exp((2/3)*log(y))*exp((1/3)*log(x))))/sin((exp((2/3)*log(y))*exp((1/3)*log(x))));
if (FF>=SF)
{
printf("x= %f y= %f U= %f \n", x,y,FF);
} else
{
printf("x= %f y= %f U= %f \n", x,y,SF);
}
} else
{
TF = cos(x*(y*y));
printf("x= %f y= %f U= %f \n", x,y,TF);
}
x += 1.3;
y += 1.5;


}while(x<2.3);


getch();
return 0;
}

[Shrek-Ogre]

я С вообще не знаю)

[Axel2150]

Значит тебе в каком то смысле повезло