Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 31.03.2011, 21:59   #1 (permalink)
diagen_62
Member
 
Регистрация: 19.03.2011
Сообщений: 30
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Вычислить количество значений функции

вычислить количество значений функции sin(x),лежащих вне заданного интервала (y1;y2)
Вот вроде сделал...есть ошибки.проверьте пожалуйста и скажите, что неверно



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.


заранее спасибо!
diagen_62 вне форума   Ответить с цитированием

Старый 31.03.2011, 21:59
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Упростить решение проблемы могут эти темы

Вычислить методом тарапеции в VBA
Дана квадратная матрица.Найти наибольшее из значений...
Вычислить сумму
Составить программу, вычисляющую количество точек на графике функции

Старый 01.04.2011, 16:17   #2 (permalink)
ZEKE
Member
 
Регистрация: 15.02.2011
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Arrow

Ошибки чисто синтаксиса.
если программа вычисляет все правильно, то вот код:
Код:
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.
Ты бы описал, что такое x0,xn,hn.
ZEKE вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:36.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.