Реферат: Выработка рекомендаций по защите оператора ЭВМ от воздействия СДЯВ

#pragma package(smart_init)

#pragma resource "*.dfm"

#include <math.h>

#include <vcl/dstring.h>

#include <stdlib.h>

#include <stdio.h>

// Описания глобальных переменных и таблиц рассчета коэффициентов

// (все значения взяты из методички ОЦЕНКА ХИМИЧЕСКОЙ ОБСТАНОВКИ для выполнения

// практической работы по теме 1.6)

TForm1 *Form1;

int G,L,V;

float k1,k2,k3,k4,k5,k6,D,ti;

// Таблица: вертикальная устойчивость атмосферы

float atm[3][3] = {{0.03, 0.15, 0.8},{1, 1/3.0, 1/9.0},{2, 1.5, 1.5}};

// Таблица рассчета k5 в зависимости от скорости ветра

float velocity[6] = {1, 0.7, 0.55, 0.43, 0.37, 0.32};

// Таблица рассчета k3 в зависимости от вида хранилища

float store[2] = {1, 2/3.0};

// Таблица рассчета k4 в зависимости от вида местности

float place[2] = {1, 1/3.0};

// Таблица рассчета времени испарения СДЯВ в зависимости от типа СДЯВ и вида

// хранилища

float timeOF[4][2] = {{1.3, 22},{1.2, 20},{1.3, 20},{1.4, 23}};

// Таблица: токсические свойства СДЯВ

float prop[4][2] = {{0.2, 360},{0.01, 60},{0.05, 10},{0.4, 50}};

//Функция конструтор

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{