Помогите, плиз )) другу надо, а я последний раз в школе Паскалем баловался )))
Рассчитать значение функции 1-x+sin(x)-ln(1+x)
заранее псб )
Ну дык так и пиши
Код
var x:real;
begin
ReadLn(x);
WriteLn(1-x+sin(x)-ln(x+1));
end.
begin
ReadLn(x);
WriteLn(1-x+sin(x)-ln(x+1));
end.
можно растянуть)
program func;
uses crt;
var
x,y1:real;
function y (x:real):real;
begin
y:=1-x+sin(x)-ln(1+x);
end;
begin
read(x);
if x<0 then writeln('error')
else begin
y1:=y(x);
writeln('f(x)= ',y1);
end;
readkey;
end.
Код
program func;
uses crt;
var
x,y1:real;
function y (x:real):real;
begin
y:=1-x+sin(x)-ln(1+x);
end;
begin
read(x);
if x<0 then writeln('error')
else begin
y1:=y(x);
writeln('f(x)= ',y1);
end;
readkey;
end.
большое спасибо! 
проверьте, пожалуйста, следующий вариант решения ) правильно или нет? )
program pr;
var x,y:integer;
begin
y:=1-x+sin(x)-ln(1+х);
writeln ('y=' ,y);
readln;
end.
проверьте, пожалуйста, следующий вариант решения ) правильно или нет? )
Код
program pr;
var x,y:integer;
begin
y:=1-x+sin(x)-ln(1+х);
writeln ('y=' ,y);
readln;
end.
икс не инициализирован. Надо либо объявить икс константой, или считать с клавиатуры.
пасиб ) позвольте еще пару вопросиков уточняющих от сдающего ))
1) в коротком варианте точно можно без "program **" обойтись? )
2) по длинному ) за что отвечают function и readkey? )
икс не инициализирован. Надо либо объявить икс константой, или считать с клавиатуры.
считать с клавы можно как wrineln ('vvedite znachenie x') или как?
1) в коротком варианте точно можно без "program **" обойтись? )
2) по длинному ) за что отвечают function и readkey? )
Цитата(Inspektor @ 14.4.2009, 15:21) 
икс не инициализирован. Надо либо объявить икс константой, или считать с клавиатуры.
считать с клавы можно как wrineln ('vvedite znachenie x') или как?
Цитата(Manager @ 14.4.2009, 15:26)
1) в коротком варианте точно можно без "program **" обойтись? )
Да, толку от этого заголовка нет, только лишний идентификатор сжирает.
Цитата(Manager @ 14.4.2009, 15:26)
2) по длинному ) за что отвечают function и readkey? )
Находится в модуле crt.tpu, служит для считывания символа с клавиатуры. Смотрите справку(Help->Using Help), там все функции из стандартных модулей подробно описаны.
Что касается function, то это объявление функции, тут надо любой учебник взять и прочитать.
Цитата(Manager @ 14.4.2009, 15:26)
считать с клавы можно как wrineln ('vvedite znachenie x') или как?
Чтением переменных с клавиатуры занимается функция Read (или ReadLn).
В итоге преподаватель сказал что правильно будет
Цитата
program pr;
var x:real;
begin
ReadLn(x);
y:=1-x+sin(x)-ln(x+1);
WriteLn(y);
end.
var x:real;
begin
ReadLn(x);
y:=1-x+sin(x)-ln(x+1);
WriteLn(y);
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.