Похожие главы из других работ:
Граф и его элементы
Введем исходные данные в матрицу StrinGrid (рисунок 13).
Рисунок 13 - Ввод исходных данных
Вводим значения в editы, от какой и до какой вершины желаем найти кратчайший путь (рисунок 14)...
Нахождение минимального остовного дерева алгоритмом Краскала
// ---------------------------------------------
#include <stdio. h>
#include <conio. h>
#include <iostream...
Несобственные интегралы
program integral;
{$APPTYPE CONSOLE}
uses
SysUtils;
{задаем нижнюю границу интеграла}
const x1=1;
{процедура вывода на экран значения интеграла}
procedure Out(s:real);
begin
writeln (znachenie integrala s =...
Поиск кратчайшего пути между парами вершин в ориентированном и неориентированном графах путем использования алгоритма Флойда
Для удобства решения поставленной задачи будем использовать модульное программирование. Для этого разобьем решение задачи на несколько этапов: ввод исходных данных, построение графиков функции...
Полином Жегалкина
#include<iostream.h>
#include<conio.h>
int FuncVolume (int &f)
{
do {cout <<"Vvedite znachenit funkcii na dannom nabore :"<<endl;
cin>>f;
if ((f!=0)&&(f!=1))
cout<<"Error!!!Funkciya mojet prinimat znachenie libo 0 libo 1!
";
}
while ((f!=0)&&(f!=1));
return f;
}
void main()
{
clrscr();
const N=8;
int m[5];
int f[N]...
Полином Жегалкина
На каждом наборе вводятся единицы, то есть функция является тождественной единицей...
Представление бинарного дерева в виде массива
дерево нелинейное массив бинарное
#include <fstream.h>
#include <stdio.h>
#include <conio.h>
#include <windows.h>
char bufRus[256];
char* Rus(const char* text){
CharToOem(text, bufRus);
return bufRus;
}
int main()
{ int i,k;
int a[]={1,2,3,4,5,6,7,8,9,10,11,12,13,14...
Приближённое вычисление тройного интеграла
Состав программы:
frm_int3.pas - главный программный модуль;
int3.pas - модуль проекта.
Процедуры и функции пользователя:
Функция f(x, y, z)
Вычисление подынтегральной функции.
Процедура INT3P(a1, a2, b1, b2, c1, c2...
Решение дифференциальных уравнений по методу Эйлера
Программа весьма проста. В ней много предусмотрено моментов неправильного ввода данных, о которых программа предупреждает пользователя и сразу же просит повторно ввести данные...
Решение систем дифференциальных уравнений при помощи неявной схемы Адамса 3-го порядка
После проведённого обзора программных средств для разработки данного программного продукта, была выбрана среда Borland C++ Builder. Язык С++ хорошо зарекомендовал себя эффективностью, лаконичностью записи алгоритмов...
Статистически оптимальный генератор псевдослучайных последовательностей
Качественный генератор псевдослучайной последовательности (ПСП), ориентированный на использование в системах защиты информации, должен удовлетворять следующим требованиям:
1. криптографическая стойкость;
2. хорошие статистические свойства...
Теория графов
Заключение
При рассмотрении теории графов можно сделать вывод: решая задачу о нахождении города, для которого сумма расстояний до остальных городов минимальна, удобно было использовать теорию графов...
Численные методы решения типовых математических задач
Далее приведен текст программы решения СЛАУ методом Гаусса-Зейделя.
program metod_Gaussa_Zeidelya;
uses crt;
const c=10;
type mas1=array [1..c,1..c] of real;
mas2=array [1..c] of real;
mas3=array [1..c,0..20] of real;
var dannble_i_rezultat,ekran:text;
shodimostb:boolean;
a,alpha:mas1;
b,beta:mas2;
x:mas3;
imya:string;
chetchik,n...
Численные методы решения типовых математических задач
program Yakobi;
uses crt;
const
maxn=100;
type
matrix=array[1..maxn,1..maxn] of real;
vector=array[1..maxn] of real;
vector1=array[1..maxn] of real;
var
i,j,n,k1: integer;
e,norma:real;
a: matrix;
b: vector;
x2,x3: vector1;
imya,dannble_i_rezultat,ekran:string;
procedure input(var kolvo:integer; var pogreshnostb:real; var matr1:matrix; var matr2:vector);
{Ввод исходных данных}
var i,j...
Численные методы решения типовых математических задач
program newton;
uses crt,graph;
const c=10;
type matr=array[0..c,0..c] of real;
mas=array[0..c] of real;
var x,y,koef_polinoma:mas;
a:matr;
b:mas;
d1:real;
n:integer;
fail,fail1,ekran:text;
procedure Vvod(var kolvo:integer; var uzel...