Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 09.01.2014
Сообщений: 8

Через процедуры

29.01.2014, 16:17. Показов 1027. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам


Решить данную задачку через процедуры

Если можно то с граф.схемой
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
29.01.2014, 16:17
Ответы с готовыми решениями:

Сделать через Процедуры и функции
1)var s, sl, smax: string; i, n, dmax, nmax: integer; begin write('Вводим строку s='); readln(s); s := s + ' ';...

Через процедуры вывести матрицу
Через процедуры вывести матрицу, в которой к каждому элементу прибавили максимальный элемент

Переделать программу через процедуры
Переделать программу через процедуры!!! Случайным образом заполнить матрицу символов 6х6. Сформировать вектор: если в строке матрицы...

1
Почетный модератор
 Аватар для ildwine
6201 / 2963 / 1300
Регистрация: 04.03.2013
Сообщений: 5,797
Записей в блоге: 1
30.01.2014, 08:55
Лучший ответ Сообщение было отмечено Spiritalis как решение

Решение

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
const
  min = -1;
  max = 1;
  step = 0.1;
var
  f, x, mn, xmn : real;
  
{процедура расчета значений функции}
procedure fx (arg : real; var res : real);
begin
  res := sqrt(0.83 * sqr(arg) + 0.5) - sqr(sin(arg / 2))
end;
 
begin
  x := min;
  mn := maxreal;
  while x <= max do
  begin
    fx(x, f);
    if f <= mn then
    begin
      mn := f;
      xmn := x
    end;
    writeln('x = ', x:4:1, ' F(x) = ', f:6:4);
    x := x + step
  end;
  writeln('минимальное значение функции F(', xmn:4:1, '): ', mn:6:4)
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
30.01.2014, 08:55
Помогаю со студенческими работами здесь

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

через процедуры и функции
дано чётное число n&gt;2. Проверить для этого числа гипотезу Гольдбаха. эта гипотеза заключается в том что каждое четвёртое n больше двух,...

Последовательность через процедуры и функции
Помогите решить задачку пожалуйста: Даны последовательности a, b, c натуральных чисел: Определить в каждой последовательности...

Последовательности через процедуры и функции на уровень 4
Помогите пожалуйста решить задачку: Ввести две последовательности по k чисел. Найти в каждой значения минимального элемента среди...

Произведение матриц в степени р через процедуры
Даны натуральное число P и вещественные квадратные матрицы A, B и C 4-го порядка. Получить (ABC)^p.{в степени р} Через процедуры и/или...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
1С: Контроль уникальности заводского номера
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru