Информатика и выч. техника \ Информатика в химии

Написание программы получения химического продукта (дибромпентана) по заданному уравнению реакции, страница 2

pascal

химия

Входные данные

m1

Масса  C4H8

m2

Масса  HBr

Выходные данные

m3

Масса  C4H9Br


2.2 Распечатка текста программы

 Program Brombutan;

 Uses Crt;

 Const

   Mr1=56; Mr2=81; Mr3=137;

 Var

   m1,m2,m3,v0,v1,v2:Real;

   Simb:Char;

   F:Text;

 Begin

   ClrScr;

   Writeln('Уравнение реакции получения 2-бромбутана:');

   Writeln('C4H8+HBr=C4H9Br');

   Writeln('Укажите по какому пути проводить расчеты:');

   Writeln('Клавиша "1" - по массам исходных вешеств');

   Writeln('Клавиша "2" - по необходимой массе 2-бромбутана');

   Readln(Simb);

   If Simb='1' Then

   Begin

     Write('Масса 2-бутена = '); Readln(m1);

     Write('Масса бромоводорода = '); Readln(m2);

     v1:=m1/Mr1;

     v2:=m2/Mr2;

     If v1>v2 Then v0:=v2

              Else v0:=v1;

     m3:=v0*Mr3;

     Writeln('В результате реакции образовалось:');

     Writeln('2-бромбутана = ',m3:6:3,' кг');

   End;

   If Simb='2' Then

   Begin

     Write('Масса 2-бромбутана, которую необходимо получить = '); Readln(m3);

     v0:=m3/Mr3;

     m1:=v0*Mr1;

     m2:=v0*Mr2;

     Writeln('Для этого потребуется:');

     Writeln('2-бутена = ',m1:6:3,' кг');

     Writeln('бромоводорода = ',m2:6:3,' кг');

   End;

   Assign(F,'reshenie.txt');

   Rewrite(F);

   If Simb='1' Then Writeln(F,'Расчет ведется по массам исходных вешеств');

   If Simb='2' Then Writeln(F,'Расчет ведется по необходимой массе 2-бромбутана ');

   Writeln(F,'Уравнение реакции получения 2-бромбутана:');

   Writeln(F,'C4H8+HBr=C4H9Br');

   Writeln(F,'В результате реакции ',m1:6:3,' кг 2-бутена');

   Writeln(F,m2:6:3,' кг бромоводорода');

   Writeln(F,'образовалось ',m3:6:3,' кг 2-бромбутена');

   Close(F);

   Readln;

 End.


 


2.3 Блок – схема


 2.4 Детали работы с файлом программы

Содержание файла по первому пути решения задачи:

Расчет ведется по массам исходных веществ

Уравнение реакции получения 2-бромбутана: C4H8+HBr=C4H9Br

В результате реакции 280 г 2-бутена,

405 г бромоводорода образовалось 685 г 2-бромбутена.

Содержание файла по второму пути решения задачи:

Расчет ведется по необходимой массе 2-бромбутена

Уравнение реакции получения 2-бромбутана: C4H8+HBr=C4H9Br

В результате реакции 280 г 2-бутена,

405 г бромоводорода образовалось 685 г 2-бромбутена.


 


3 Эксплуатационные процедуры

3.1  Требования к подготовке и представлению данных

Данные для задачи: масса 2-бутена, бромоводорода, 2-бромбутана вводятся с файлов.      

Единицы измерения m1,m2,m3 - граммы, для v1,v2 - моль, для Mr1,Mr2,Mr3 -г/моль.


 


4  Процедуры тестирования и сопровождения

процедуры тестирования и сопровождения являются центральным местом заключительной    стадии разработки программы. Цель тестирования – убедиться в том, что программа функционирует правильно, соответствует спецификациям и решает поставленную задачу. Тестовые данные и соответствующие им выходные данные являются результатами работы программы.

4.1 Тестовые данные

Тестовые данные для первого пути решения:

m1=280 г, m2=405 г

Тестовые данные для второго пути решения:

m3=685 г

4.2 Результаты, соответствующие тестовым данным

Результаты для первого пути решения:

m3=685 г

Результаты для второго пути решения:

m1=280 г, m2=405 г.

Литература

1.  Глинка Н.Л. Общая химия. Изд. 16-е, перераб. Л. «Химия», 1974.

2.  Шауцукова Л.З. – 2-е изд.,дораб. – М.: Просвещение, 2002. – 416с.: ил.

3.  Word 6 для Windows. с англ.-«3-D Серия».-М.:Центрполиграф, 1997.-250 с.

4.  Зубарева Н.М. Информатика в химии “Ч 1-2”.-«СибГТУ», 2005

 

Скачать файл