народ помогите с паскалем

[sanek_2011]

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


в общем задание вычислить  на ЭВМ значение функции. Организовать вывод значения аргумента  и вычислить значения функции:

F={sin(2x)(2П)}   x≤0
                         0≤x≤1
                         x≥1;

составить линейную программу

Y= e ^x-e^-x
_______
Ln(x+y)^2

[berkut_174]

Напишите нормально функцию (первую), тогда попробую помочь.

[sanek_2011]

Напишите нормально функцию (первую), тогда попробую помочь.

а что в ней не так??

[berkut_174]

x≤0, 0≤x≤1, x≥1 - таких x нет!

[sanek_2011]

x≤0, 0≤x≤1, x≥1 - таких x нет!

f={x, при x≤0
                 sin(2x)(2П),при 0≤x≤1
                  1-x, при x≥1


в первом посте не могу исправить((

[berkut_174]

program lab;
const pi = 3.14;
var x,y : real;
begin
write ('vvedite x: ');
readln (x);
if x<=0 then y:=x;
if (x>=0) and (x<=1) then y:=(sin(2*x))*2*pi;
if x>=1 then y:=1-x;
writeln ('pri x =',x:7:2, ' znachenie funkcii ravno',y:7:2);
readln;
end.

Типа того...

[sanek_2011]

program lab;
const pi = 3.14;
var x,y : real;
begin
write ('vvedite x: ');
readln (x);
if x<=0 then y:=x;
if (x>=0) and (x<=1) then y:=(sin(2*x))*2*pi;
if x>=1 then y:=1-x;
writeln ('pri x =',x:7:2, ' znachenie funkcii ravno',y:7:2);
readln;
end.

Типа того...

спасибо большое

[berkut_174]

Вторая по аналогии...

[Selyd]

Что-то с условием задачи.
При х=1 функция имеет два значения.
Если это правда, то надо добавить проверку
if x=1 then writeln ('pri x =',x:7:2, ' znachenie funkcii ravno',(sin(2*x))*2*pi:7:2);
if x=1 then writeln ('pri x =',x:7:2, ' znachenie funkcii ravno',1-x:7:2);
Или оформить печать иначе по своему усмотрению.
Ребята, в алгоритмах ловите блох. Они там всегда есть.
Здесь дающий задание, наверное, не подозревал о нюансах.
Удачи.

[berkut_174]

Ага, точно Ещё и при x=0 два варианта!
Должно быть примерно так: x<0, 0≤x≤1, x>1.
Ну или другие варианты!

[Selyd]

При х=0 функция склеивается.