всем привет)

[elena68r]

вот так?
{Лабораторная работа 2А}
 {Студент группы Г-11 Иванов А.В.}
 VAR
 a,f.x: read;
begin
writeln('введите a,f,x');
read(a,f,x);
f:=lg(x+1);
if x<= 1  then f:= sin(sqrt(ab))*sin(sqrt(ab));
else x> 1  then f:= lg(x+1);
writeln(a='a:8:3,' x=', x:8:3);
writeln(результат=', f:8:3)
end.

[InfStudent]

VAR
 a,f.x: real;
begin
writeln('введите a,f,x');
read(a,f,x);
for x:=0.5 to 2
begin
if x<= 1  then
begin
f:= sin(sqrt(a*x)*sin(sqrt(a*x));
end
else
begin
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);
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]

Объясняю логику: мы используем цикл for, где x изменяет значение от 0.5 до 2 с шагом 1. Внутри условие с проверкой какую формулу использовать

[elena68r]

спасибо большое)))))))щас буду пробывать

[elena68r]

а...еще такой вопрос. разве этот логарифм так записывается?я знаю что ln есть а lg  вроде нет

[InfStudent]

Это ж десятичный логарифм))

[elena68r]

ну да)а мне типа сказали такого нет в паскале и типа по другому пишется

[InfStudent]

Да извините надо вызов lg на log10()

[elena68r]

все равно какая то ошибка(

[InfStudent]

Скопируйте сообщение об ошибке и привидите

[elena68r]

ЗДРАВСТВУЙТЕ) ВОТ ТАКАЯ ОШИБКА 'INVALID FOR CONTROL VARIABLE

[InfStudent]

Корректируюсь надо применять цикл while   

[elena68r]

вместо else ?

[InfStudent]

Вместо for))