Найти корни уравнения - Turbo Pascal (33914)
Формулировка задачи:
Отыскание корня уравнения F(x)=0 с точностью до 0,0001 , методом простой интеграции. Результат решения: Корень уравнения X
Решение задачи: «Найти корни уравнения»
textual
Листинг программы
uses crt; const n=4;m=5; type mas = array [1..n,1..m] of integer; var a:mas; procedure sozd_mas (var d:mas); var i,j:integer; begin for i:=1 to n do for j:=1 to m do d[i,j]:=random(100); end; procedure vivod_mas (d:mas); var i,j:integer; begin for i:=1 to n do begin for j:=1 to m do write(d[i,j]:5); writeln; end; end; procedure maxel (d: mas); var i,j,max,maxi,maxj:integer; begin max:=-(maxint+1); for i:=1 to n do for j:=1 to m do if (d[i,j]>max) then begin max:=d[i,j]; maxi:=i; maxj:=j; end; writeln('Max el raspolozhen v ',maxi,' stroke i v ',maxj,' stolbce i raven ',max); end; procedure minel( d:mas); var i,j,min,mini,minj:integer; begin min:=maxint; for i:=1 to n do for j:=1 to m do if (d[i,j]<min) then begin min:=a[i,j]; mini:=i; minj:=j; end; writeln('Min el raspolozhen v ',mini,' stroke i v ',minj,' stolbce i raven ',min); end; BEGIN clrscr; randomize; sozd_mas(a); vivod_mas(a); maxel(a); minel(a); readkey; end.
Объяснение кода листинга программы
- В начале кода используются необходимые библиотеки и объявляются переменные.
- В функции
sozd_mas
создается массивa
типаmas
, который представляет собой матрицу целых чисел размеромn
наm
. - В функции
vivod_mas
происходит вывод значений массиваa
на экран построчно. - В функции
maxel
находится максимальное значение в массивеa
. Выводится информация о найденном максимуме. - В функции
minel
находится минимальное значение в массивеa
. Выводится информация о найденном минимуме. - В основной части программы происходит следующее:
- Выполняется инициализация генератора случайных чисел.
- Создается массив
a
с помощью функцииsozd_mas
. - Выводится содержимое массива
a
с помощью функцииvivod_mas
. - Находится максимальное значение в массиве
a
с помощью функцииmaxel
. - Находится минимальное значение в массиве
a
с помощью функцииminel
. - Очищается экран с помощью функции
clrscr
. - Запускается цикл до тех пор, пока пользователь не нажмет клавишу.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д