Найти корни уравнения - Turbo Pascal

  1. Отыскание корня уравнения F(x)=0 с точностью до 0,0001 , методом простой интеграции. Результат решения: Корень уравнения X


textual

Код к задаче: «Найти корни уравнения - Turbo Pascal»

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.

СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 3.800 из 5



Похожие ответы
  1. вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет. Должна вводиться информация о студентах(фамилии, имена, отчества, пол, возраст).

  1. Здравствуйте ребят, нужна ваша помощь помогите составить программу: а) Y=е^x –sin(x) при Х=2.312; б) координаты используемой точки: (1.5;0.5). Cкрин задачи

  1. (Фотография текста заменена текстом) Материальная точка движется вдоль плоскости OXY согласно закону Построить траекторию точки.№x(t)y(t)1sin(2t)cos(3t)2sin(3t)cos(4t)3sin(4t)cos(5t)4sin(5t)cos(6t)5sin(6t)cos(7t)6sin(7t)cos(8t)7sin(8t)cos(9t)8sin(9t)cos(10t)9sin(10t)cos(11t)10sin(11t)cos(12t)

  1. Задание собственно такое: Составить программу формирования из вектора A={ai}, i=1/3n вектора B={bi}, i=1/n, очередная компонента которого равна среднему арифметическому очередной тройки компонент вектора. вот сама программа:

  1. Дана матрица 7x7. Определить суммы всех элементов матрицы, лежащих на диагоналях. Помогите сделать, пожалуйста! Заранее спасибо ОГРОМНОЕ!

  1. В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран. Помогите пожалуйста!

  1. Пусть дана вещественная матрица размером n*m. Найдите среднее арифметическое наибольшего и наименьшего значений её элементов, расположенных ниже главной диагонали.- это условие. Напиши пожалуйста программу!

  1. Заданы три числа, надо найти минимальное число. Составить программу для вычисления периметра 10 прямоугольников.

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

  1. Подскажите, наведите на путь, я реально не могу сообразить как она должна работать!! Танк в компьютерной игре может двигаться в одном из четырех направлений, обозначим их числами: 1 — север, 2 — восток, 3 — юг, 4 — запад. Направление движения изменяется тремя командами: 1 — поворот направо, 2 — поворот налево, 3 — поворот кругом. Пользователь вводит начальное направление движения, а затем ряд команд. Программа должна определять и печатать всякий раз новое направление. Выход из цикла — команда 0.