31.03.2011, 21:59 | #1 (permalink) |
Member
Регистрация: 19.03.2011
Сообщений: 30
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вычислить количество значений функции
Вот вроде сделал...есть ошибки.проверьте пожалуйста и скажите, что неверно program enem4; Function f(x:real):real; begin end; var x,x0,xn,hx,y1,y2:real; s:integer; begin writeln('Введите диапазон исследования функции, шаг и интервал(x0,xn,hx,y1,y2):'); readln(x0,xn,hx,y1,y2); writeln('Таблица значений функции(оператор while)'); x:=x0; s:=0; while x<=xn+hx/2 do begin writeln('x=',x:5:2,'y=',f(x):8:3); if (f(x)<y1) and (f(x)>y2) then s:=s+1; x:=x+hx; end; writeln('Количество значений функции принадлежащих интервалу (y1;y2) равно:'); writeln; writeln('Таблица значений функции(оператор repeat):'); x:=x0 s:=0 repeat begin writeln('x=',x:5:2,'y=',f(x):8:3); if (f(x)<y1) and (f(x)>y2) then s:=s+1; x:=x+hx; end; until x>xn+hx/2 writeln('Количество значений функции принадлежащих интервалу (y1;y2) равно:'s); end. заранее спасибо! |
31.03.2011, 21:59 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Упростить решение проблемы могут эти темы Вычислить методом тарапеции в VBA Дана квадратная матрица.Найти наибольшее из значений... Вычислить сумму Составить программу, вычисляющую количество точек на графике функции |
01.04.2011, 16:17 | #2 (permalink) |
Member
Регистрация: 15.02.2011
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ошибки чисто синтаксиса.
если программа вычисляет все правильно, то вот код: Код:
program enem4; uses crt; Function f(x:real):real; begin end; var x,x0,xn,hx,y1,y2:real; s:integer; begin writeln('Ââåäèòå äèàïàçîí èññëåäîâàíèÿ ôóíêöèè, øàã è èíòåðâàë(x0,xn,hx,y1,y2):'); readln(x0,xn,hx,y1,y2); writeln('Òàáëèöà çíà÷åíèé ôóíêöèè(îïåðàòîð while)'); x:=x0; s:=0; while x<=xn+hx/2 do begin writeln('x=',x:5:2,'y=',f(x):8:3); if (f(x)<y1) and (f(x)>y2) then s:=s+1; x:=x+hx; end; writeln('Êîëè÷åñòâî çíà÷åíèé ôóíêöèè ïðèíàäëåæàùèõ èíòåðâàëó (y1;y2) ðàâíî:'); writeln; writeln('Òàáëèöà çíà÷åíèé ôóíêöèè(îïåðàòîð repeat):'); x:=x0; s:=0; repeat begin writeln('x=',x:5:2,'y=',f(x):8:3); if (f(x)<y1) and (f(x)>y2) then s:=s+1; x:=x+hx; end; until x>xn+hx/2; writeln('Êîëè÷åñòâî çíà÷åíèé ôóíêöèè ïðèíàäëåæàùèõ èíòåðâàëó (y1;y2) ðàâíî:',s); end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|