всем привет)

[elena68r]

теперь другая ошибка))) boolean expression  expected

[InfStudent]

Напишите while x<=2 do
               

[elena68r]

теперь пишут '>' exepted

[InfStudent]

А какой у вас код

[elena68r]

не знаю)))я ж говорила что ни че не понимаю

[InfStudent]

приведите тот код, который у вас есть сейчас

[elena68r]

error 89) этот?блин...такая тупая даже самой стыдно

[InfStudent]

Да нет я имел ввиду исходный текст программы))

[elena68r]

VAR
 a,f.x: real;
begin
writeln('введите a,f,x');
read(a,f,x);
for x:=0.5 to 2 do
begin
if x<= 1  then
begin
f:= sin(sqrt(a*x)*sin(sqrt(a*x));
end
else
begin
f:=lg(x+1);
end;

writeln(a='a:8:3,' x=', x:8:3);
writeln(результат=', f:8:3);
end;
readln;
end.
 
 
 
этот??

[InfStudent]

VAR
 a,f.x: real;
begin
writeln('введите a,f,x');
read(a,f,x);
while x<=2  do
begin
if x<= 1  then
begin
f:= sin(sqrt(a*x)*sin(sqrt(a*x));
end
else
begin
f:=lg(x+1);
end;

writeln(a='a:8:3,' x=', x:8:3);
writeln(результат=', f:8:3);
x:=x+0.2;
end;
readln;
end.
 
 

[elena68r]

опять эта ошибка '>' exepted

[InfStudent]

А вы используете Delphi?

[elena68r]

нет. турбо

[elena68r]

если хотите я могу скинуть алгоритм похожей задачи?. может чем нибудь поможет.

[InfStudent]

Что значит алгоритм? Условие может, а оно мне не нужно)Не знаю че не работает, может быть в турбо просто по другому пишутся условные выражения