Отправляет email-рассылки с помощью сервиса Sendsay

Паскаль решенные задачи

Паскаль решенные задачи Определить имеет ли данная функция корень на отрезке х,х+1

Дано: Функция y = sin(x) и действительное число X Задание: Определить имеет ли данная функция корень на отрезке х,х+1. program z_function; uses crt; var NumberX : real; begin clrscr; writeln ( 'Введите начало отрезка X' ) ; readln ( NumberX ) ; if ( sin ( NumberX ) * sin ( NumberX + 1 ) < = 0 ) then writeln ( 'На отрезке ' , NumberX : 0 : 2 , ' , NumberX + 1 : 0 : 2 , ' функция y = sin(x) имеет корень' ) else writeln ( 'На отрезке ' , NumberX : 0 : 2 , ' , NumberX + 1 : 0 : 2 , ' функция y = sin(x) неим...

2010-12-22 12:27:45 + Комментировать

Паскаль решенные задачи Вычислить коэффициенты к-ой производной данного полинома.

Дано: Полином Pn(x) Задание : Вычислить коэффициенты к-ой производной данного полинома. program z_array; uses crt; var ArrayA : array [ 0.100 ] of real; DimensionN , CounterI , DerivativeK , FNumber : byte; begin clrscr; writeln ( 'Введите степень полинома' ) ; readln ( DimensionN ) ; for CounterI = 0 to DimensionN do begin write ( 'Коэффициент при X в степени ' , CounterI , ' = ' ) ; readln ( ArrayA [ CounterI ] ) ; end; writeln; repeat writeln ( 'Введите порядок производной' ) ; readln ( DerivativeK ) ; ...

2010-12-21 14:00:12 + Комментировать