Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Образовательный студенческий форум _ Информатика / Программирование _ Рассчитать функцию на Паскале
Автор: Manager 14.4.2009, 5:19
Помогите, плиз )) другу надо, а я последний раз в школе Паскалем баловался )))
Рассчитать значение функции 1-x+sin(x)-ln(1+x)
заранее псб )
Автор: Inspektor 14.4.2009, 7:09
Ну дык так и пиши
Код
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.
Автор: crazymaster 14.4.2009, 7:28
можно растянуть)
Код
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.
Автор: Manager 14.4.2009, 11:17
большое спасибо! 
проверьте, пожалуйста, следующий вариант решения ) правильно или нет? )
Код
program pr;
var x,y:integer;
begin
y:=1-x+sin(x)-ln(1+х);
writeln ('y=' ,y);
readln;
end.
Автор: Inspektor 14.4.2009, 11:21
икс не инициализирован. Надо либо объявить икс константой, или считать с клавиатуры.
Автор: Manager 14.4.2009, 11:26
пасиб ) позвольте еще пару вопросиков уточняющих от сдающего ))
1) в коротком варианте точно можно без "program **" обойтись? )
2) по длинному ) за что отвечают function и readkey? )
Цитата(Inspektor @ 14.4.2009, 15:21) 
икс не инициализирован. Надо либо объявить икс константой, или считать с клавиатуры.
считать с клавы можно как wrineln ('vvedite znachenie x') или как?
Автор: Inspektor 14.4.2009, 11:40
Цитата(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).
Автор: Manager 15.4.2009, 11:04
В итоге преподаватель сказал что правильно будет
Цитата
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.
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)