 Рассчитать функцию на Паскале |
Здравствуйте, гость ( Вход | Регистрация )
  |
| Manager |
  14.4.2009, 5:19
Сообщение
#1
|
|
Студент  Группа: Руководители Сообщений: 152 Регистрация: 6.2.2007 Город: Казань  |
Помогите, плиз )) другу надо, а я последний раз в школе Паскалем баловался )))
Рассчитать значение функции 1-x+sin(x)-ln(1+x) заранее псб ) |
   |
 
|
| Inspektor |
14.4.2009, 7:09
Сообщение
#2
|
|
Аспирант Группа: Активисты Сообщений: 384 Регистрация: 11.6.2008 Город: Крыжополь Учебное заведение: БГТУ Вы: студент |
Ну дык так и пиши
Код var x:real; begin ReadLn(x); WriteLn(1-x+sin(x)-ln(x+1)); end. |
|
|
|
| crazymaster |
14.4.2009, 7:28
Сообщение
#3
|
|
Студент Группа: Продвинутые Сообщений: 240 Регистрация: 9.3.2007 Город: Нефтеюганск Учебное заведение: ТУСУР Вы: студент |
можно растянуть)
Код 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
Сообщение
#4
|
|
Студент Группа: Руководители Сообщений: 152 Регистрация: 6.2.2007 Город: Казань |
большое спасибо! (IMG:style_emoticons/default/smile.gif)
проверьте, пожалуйста, следующий вариант решения ) правильно или нет? ) Код 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
Сообщение
#5
|
|
Аспирант Группа: Активисты Сообщений: 384 Регистрация: 11.6.2008 Город: Крыжополь Учебное заведение: БГТУ Вы: студент |
икс не инициализирован. Надо либо объявить икс константой, или считать с клавиатуры.
|
|
|
|
| Manager |
14.4.2009, 11:26
Сообщение
#6
|
|
Студент Группа: Руководители Сообщений: 152 Регистрация: 6.2.2007 Город: Казань |
пасиб ) позвольте еще пару вопросиков уточняющих от сдающего ))
1) в коротком варианте точно можно без "program **" обойтись? ) 2) по длинному ) за что отвечают function и readkey? ) Цитата(Inspektor @ 14.4.2009, 15:21)  икс не инициализирован. Надо либо объявить икс константой, или считать с клавиатуры. считать с клавы можно как wrineln ('vvedite znachenie x') или как? (IMG:style_emoticons/default/smile.gif) |
|
|
|
| Inspektor |
14.4.2009, 11:40
Сообщение
#7
|
|
Аспирант Группа: Активисты Сообщений: 384 Регистрация: 11.6.2008 Город: Крыжополь Учебное заведение: БГТУ Вы: студент |
Цитата(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') или как? (IMG:style_emoticons/default/smile.gif) Чтением переменных с клавиатуры занимается функция Read (или ReadLn). |
|
|
|
| Manager |
15.4.2009, 11:04
Сообщение
#8
|
|
Студент Группа: Руководители Сообщений: 152 Регистрация: 6.2.2007 Город: Казань |
В итоге преподаватель сказал что правильно будет
Цитата program pr; var x:real; begin ReadLn(x); y:=1-x+sin(x)-ln(x+1); WriteLn(y); end. |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | Сейчас: 3.5.2024, 10:52 |
Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.
Русская версия Invision Power Board
v2.1.7 © 2024 IPS, Inc.
Зеркало сайта Решебник.Ру - reshebnik.org.ru