помогите пожалуйста, где ошибки
Program hello;
var a,x,y:real;
var a:=-pi;
var x1:=8.3;
var x2:=0;
var x3:=-5.7;
begin
readln(a,x);
if ax<0
then
y := sgrt(x)+2*a
else
if ax=0
then
y := 1.38*a+x
else
y := exp(1/3*ln(a*x));
writeln('y=',y);
end.
Program hello;
var a,x,y:real;
var a:=-pi;
var x1:=8.3;
var x2:=0;
var x3:=-5.7;
begin
readln(a,x);
if ax<0
then
y := sgrt(x)+2*a
else
if ax=0
then
y := 1.38*a+x
else
y := exp(1/3*ln(a*x));
writeln('y=',y);
end.
More Questions From This User See All
Answers & Comments
program hello;
var
a, x, y: real;
begin
readln(a, x);
if (a * x < 0) then
y := sqrt(x) + 2 * a ;
if (a * x = 0) then
y := 1.38 * a + x ;
if (a * x > 0) then
y := exp((1 / 3) * ln(a * x)) ;
writeln('y=', y);
end.
Примечания:
1. В Паскале нельзя объявлять значения переменных в области var.
Можно только в программе.
Либо присвоением, либо вводом с клавиатуры(readln, которое есть в этой программе)
2. Паскаль не поддерживает 2 и более else.
3.Не sgrt, а sqrt (от английского square root)