Разветвляющиеся процессы, ввод данных с клавиатуры

Program nadia2;         {  заголовок программы

Лабораторная работа 2

РАЗВЕТВЛЯЮЩИЕСЯ ПРОЦЕССЫ

ВВОД ДАННЫХ С КЛАВИАТУРЫ

Выполнила студентка группы ТО-07 Бузинова Надежда

Раздел описания переменных: }

var x,y:real;   dog:text;

begin   { Начало раздела операторов

Приглашение к вводу значения аргумента х с клавиатуры: }

writeln('Введите значение аргумента х:');

{ Ввод значения аргумента х с клавиаатуры

и перевод курсора на следующюю строку: }

readln(x);

If x=-1.5 then begin   { начало ветви 1

Организация и открытие канала вывода dog - файла F:\NADIA\a2-1 }

Assign(dog,'f:\nadia\a2-1');

rewrite(dog);

{ Вывод результата по ветви один  на экран

и перевод курсор на следующую строку: }

writeln('При х=-1.5 функция не существует');

{ Вывод результата по ветви 1 по каналу dog в файл F:\nadia\a2-1

и перевод курсор на следующую строку: }

writeln(dog,'При х=-1.5 функция не существует');

{Закрытие канала вывода dog: }

close(dog)

end  { завершение ветви 1 }

Else if x=0.7 then begin  { начало ветви 2

Организация и открытие канала вывода dog - файла F:\NADIA\a2-2 }

Assign(dog,'f:\nadia\a2-2');

rewrite(dog);

y:=2.6*x+4.2; { расчетная формула для ветви 2

Вывод результата по ветви 2  на экран

и перевод курсор на следующую строку: }

writeln('При х= 0.7  y=', y:4:2);

{ Вывод результата по ветви 2 по каналу dog в файл F:\nadia\a2-2

и перевод курсор на следующую строку: }

writeln(dog,'При х= 0.7  y=', y:4:2);

{Закрытие канала вывода dog: }

close(dog)

end  { завершение ветви 2 }

Else if x=9.7 then begin  { начало ветви 3

Организация и открытие канала вывода dog - файла F:\NADIA\a2-3 }

Assign(dog,'f:\nadia\a2-3');

rewrite(dog);

y:=cos(x-3.2); { расчетная формула для ветви 3

Вывод результата по ветви 3  на экран

и перевод курсор на следующую строку: }

writeln('При х= 9.7  y=', y:6:4);

{ Вывод результата по ветви 3 по каналу dog в файл F:\nadia\a2-3

и перевод курсор на следующую строку: }

writeln(dog,'При х= 9.7  y=', y:6:4);

{Закрытие канала вывода dog: }

close(dog)

end  { завершение ветви 3 }

Else begin   { начало ветви 4

Организация и открытие канала вывода dog - файла F:\NADIA\a2-4 }

Assign(dog,'f:\nadia\a2-4');

rewrite(dog);

{ Вывод результата по ветви 4  на экран

и перевод курсор на следующую строку: }

writeln('В данной точке функция не определена');

{ Вывод результата по ветви 4 по каналу dog в файл F:\nadia\a2-4

и перевод курсор на следующую строку: }

writeln(dog,'В данной точке функция не определена');

{Закрытие канала вывода dog: }

close(dog)

end  { завершение ветви 4 }

end.  { завершение раздела операторов - конец программы }

Результаты по ветви 1,записанные в файл f:\nadia\a2-1

При х=-1.5 функция не существует

Результаты по ветви 2,записанные в файл f:\nadia\a2-2

При х= 0.7  y=6.02

Результаты по ветви 3,записанные в файл f:\nadia\a2-3

При х= 9.7  y=0.9766

Результаты по ветви 4,записанные в файл f:\nadia\a2-4

В данной точке функция не определена