Народ помогите пожалуйста!!!
Помогите очень нужно!!! Нет времени работаю учусь на заочке....., в понедельник нужно сдать вот сижу голову ломаю....
Составить блок-схему и программу разветвляющейся структуры. Значение аргумента ввести с клавиатуры.
Подскажите не знаю даже с чего начинать....(((
Составить блок-схему и программу разветвляющейся структуры. Значение аргумента ввести с клавиатуры.
Подскажите не знаю даже с чего начинать....(((
Попробовал решить, но оно не решает......(((
Посмотрите пожалуйста в чем ошибка:
program func;
uses crt;
var x,y:real;
const e=0.00000001;
begin
clrscr;
write('‚ўҐ¤ЁвҐ x=');
read(x);
if x<0.5-e then
begin
y:=exp(ln(sin(x)*2))+2*exp(ln(x)*4);
writeln('y=',y:10:5);
end
else if (x>1-e) and (x<3-e) then
begin
y:=sqrt(1-x)/(sin(3*x));
writeln('y=',y:10:5);
end
else if (x>3+e) and (x<5+e) then
begin
y:=(sin(x)/cos(x))/(1-sqr(x));
writeln('y=',y:10:5);
end
else if (x>5+e) then
begin
y:=sin(2*(x-1));
writeln('y=',y:10:5);
end;
writeln('y=',y:10:5);
End.
Посмотрите пожалуйста в чем ошибка:
Цитата:
program func;
uses crt;
var x,y:real;
const e=0.00000001;
begin
clrscr;
write('‚ўҐ¤ЁвҐ x=');
read(x);
if x<0.5-e then
begin
y:=exp(ln(sin(x)*2))+2*exp(ln(x)*4);
writeln('y=',y:10:5);
end
else if (x>1-e) and (x<3-e) then
begin
y:=sqrt(1-x)/(sin(3*x));
writeln('y=',y:10:5);
end
else if (x>3+e) and (x<5+e) then
begin
y:=(sin(x)/cos(x))/(1-sqr(x));
writeln('y=',y:10:5);
end
else if (x>5+e) then
begin
y:=sin(2*(x-1));
writeln('y=',y:10:5);
end;
writeln('y=',y:10:5);
End.