Задача с функцией

Матроскин · 19.02.2012, 20:28

Нужно составить программу вычисления функции F(x)=x-sinx на отрезке [a;b] с шагом h. Результат представит в виде таблицы первый столбец - значение аргумента, а второй значение функции.
Помогите пожалуйста, завтра сдавать, а я вообще ничего с ней сделать не могу

Vladimir_S · 19.02.2012, 20:34

Матроскин, ну мало мне новичков носом тыкать, так ты еще туда же. ЯЗЫК КАКОЙ?!!!!!

Матроскин · 19.02.2012, 20:44

Блин. Да, накосячил, извините, уже вообще ничего не соображаю. Паскаль язык.

Vladimir_S · 19.02.2012, 21:08

Цитата:

Сообщение от Матроскин

Блин. Да, накосячил, извините, уже вообще ничего не соображаю. Паскаль язык.

Ладно, сейчас нарисую.

Vladimir_S · 19.02.2012, 21:17

Лови:

Код:

Var
 a,b,x,h:Real;
 i,N:Byte;
Begin
 Write('a= ');
 Readln(a);
 Write('b= ');
 Readln(b);
 Write('h= ');
 Readln(h);
 N:=Round((b-a)/h);
 For i:=0 to N do
  begin
   x:=a+h*i;
   Writeln('x = ',x:6:3,'     y = ',x-Sin(x):6:3);
  end;
 Readln
End.

Матроскин · 19.02.2012, 21:23

Спасибо огромное, выручил

19.02.2012, 20:28	#1 (permalink)
Матроскин 4846АМ Регистрация: 07.05.2010 Сообщений: 1,941 Записей в дневнике: 22 Сказал(а) спасибо: 3 Поблагодарили 4 раз(а) в 3 сообщениях Репутация: 7564	Задача с функцией Нужно составить программу вычисления функции F(x)=x-sinx на отрезке [a;b] с шагом h. Результат представит в виде таблицы первый столбец - значение аргумента, а второй значение функции. Помогите пожалуйста, завтра сдавать, а я вообще ничего с ней сделать не могу __________________ Человек будет свободен до тех пор, пока дважды два равно четырем

19.02.2012, 20:44	#3 (permalink)
Матроскин 4846АМ Регистрация: 07.05.2010 Сообщений: 1,941 Записей в дневнике: 22 Сказал(а) спасибо: 3 Поблагодарили 4 раз(а) в 3 сообщениях Репутация: 7564	Блин. Да, накосячил, извините, уже вообще ничего не соображаю. Паскаль язык. __________________ Человек будет свободен до тех пор, пока дважды два равно четырем

19.02.2012, 21:17	#5 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Лови: Код: Var a,b,x,h:Real; i,N:Byte; Begin Write('a= '); Readln(a); Write('b= '); Readln(b); Write('h= '); Readln(h); N:=Round((b-a)/h); For i:=0 to N do begin x:=a+h*i; Writeln('x = ',x:6:3,' y = ',x-Sin(x):6:3); end; Readln End.

19.02.2012, 21:23	#6 (permalink)
Матроскин 4846АМ Регистрация: 07.05.2010 Сообщений: 1,941 Записей в дневнике: 22 Сказал(а) спасибо: 3 Поблагодарили 4 раз(а) в 3 сообщениях Репутация: 7564	Спасибо огромное, выручил __________________ Человек будет свободен до тех пор, пока дважды два равно четырем

19.02.2012, 20:34	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Матроскин, ну мало мне новичков носом тыкать, так ты еще туда же. ЯЗЫК КАКОЙ?!!!!!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070