Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 17.06.2009
Сообщений: 17

Процедуры и функции.

21.06.2009, 16:48. Показов 1112. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста...
Написать программу на паскале к задаче:
Отыскание наименьшего и наибольшего значения функции на интервале (А,В)
Табулирование функции на интервале (А,В) с шагом Н и последовательное сравнение
sqrt(0.1*x*x+0.39)-(sqr(sin(x*x)))/2)/(0.15*x*x+0.001)
с клавиатуры вводим A=-1, B=1, E=-, H=0,1
Наименьшее значение функции min и наибольшее значение max.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
21.06.2009, 16:48
Ответы с готовыми решениями:

Процедуры и функции: решить через процедуры S=a*x+b*y+c*z.
Пожалуста помогите решить через процедуры S=a*x+b*y+c*z.

Процедуры и функции. Процедуры с числовыми параметрами
Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям...

Процедуры и функции: вычислить значения функции на заданном отрезке с заданным шагом
ребята, помогите, пожалуйста! Срочно нужна такая программка по выделенному варианту... у самой никак не получается( очень рассчитываю...

1
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
22.06.2009, 07:28
Лучший ответ Сообщение было отмечено Darya как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
function F(x:real):real;
begin
F:=sqrt(0.1*x*x+0.39)-(sqrt(sin(x*x))/2)/(0.15*x*x+0.001);
end;
var x,y,a,b,h,mn,mx:real;
begin
clrscr;
write('Введите начало интервала a=');
readln(a);
repeat
write('Введите конец интервала больше а b=');
readln(b);
until b>a;
repeat
write('ведите шаг табулирования h<b-a  h=');
readln(h);
until h<b-a;
mx:=F(a);
mn:=F(a);
x:=a-h;
while x<=b do
 begin
  x:=x+h;
  y:=F(x);
  writeln('x=',x:4:1,'   y=',y:8:3);
  if y<mn then mn:=y;
  if y>mx then mx:=y;
 end;
writeln;
writeln('Минимальное значение  функции=',mn:8:3);
writeln('Максимальное значение функции=',mx:8:3);
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
22.06.2009, 07:28
Помогаю со студенческими работами здесь

Нахождение значения функции с использованием процедуры или функции
Найти значение функции у, использовать не менее 1й подпрограммы функции или подпрограммы процедуры. Дано массив А, B,C-заданы,...

Найти значение функции, используя процедуры и функции
Помогите плз написать программу с помощью процедур и функций. Найти значение функции a*{a}^{-x}-b*cos(x)+c . Интервал вычисления ,...

Функции и процедуры.
Помогите пожалуйста, ничего не понимаю в программировании. Нужно написать проги в Паскале, желательно всю прогу, а не только тело. Буду Вам...

процедуры и функции
Дано натуральное число Р.Найдите сумму цифр числа Р. Если знаете как решить напишите плиз целую задачу

Процедуры и Функции
Проаналізувати завдання, наведене в таблиці, і виділити частину задачі, яку доцільно оформити у вигляді програми-процедури. Скласти...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
BOINC: 22 года — и всё ещё работает
Programma_Boinc 12.03.2026
BOINC: 22 года — и всё ещё работает Дэвид Андерсон написал ретроспективу. Кратко: в 2001 году он ушёл из United Devices, где был CTO, и за несколько месяцев написал ядро BOINC — клиент, сервер,. . .
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru