Помощь - Поиск - Пользователи - Календарь
Полная версия: Паскаль Помогите срочно!
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Наталька
Помогите пожалуста почему это не работает????

y=sqrt (x+1)2 (3-x)в 4 степени


Program algor;
uses
Crt;
var
x,a2:word;
a1,y:integer;
begin
clrscr;
writeln('введите');
write('X= ');
readln(x);
a1:=sqr(x+1);
a2:=Exp(4*ln(3-x));
y:=sqrt(a1*a2);
write('y= ');
readln;
end.
Client
Поменяй типы на real
sheka
во-первых, ехр дает не целый результат, а во вторых sqrt - тоже.
сделай лучше все переменные real.
Наталька
Спасибо ОГРОМНОЕ!!!все получилось))
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.