Полный цикл работы с программой в системе программирования Turbo Pascal

Цель работы: Освоение работы в интеллектуальной интегрированной среде системы программирования Turbo Pascal.

Методика выполнения работы

 

1. Запустите интегрированную среду Паскаль.

2. Смените при необходимости рабочий каталог, установленный по умолчанию: File → Change dir.

3. Откройте новое окно для набора текста программы: File → New.

Наберите в окне редактора программу, написанную на языке Паскаль, предназначенную для вычисления корней квадратного уравнения      по следующему алгоритму:

 

, если d ≥0 и , где , , если d<0.

 

           

 

Рис.5.1. Блок-схема алгоритма вычисления корней квадратного уравнения

 

Программа на языке Паскаль, реализующая этот алгоритм

Текст в фигурных скобках – это комментарий, его можно не набирать.

 

Program KwUr;                          {Имя программы}

Uses crt;                        {Использование библиотечного модуля CRT}

       Var a, b, c, d, w, z, x 1, x 2: Real;           {Объявление переменных}

        otvet: Char;

Begin                                           {Начало основного блока программы}

Clrscr;                                    {Очистка экрана}

       Writeln (‘ Программа вычисления корней уравнения a * x ^2 + b * x + c = 0’);

Repeat                          {Начало итерационного цикла с постусловием}

       Write (‘Введите значение a =’); ReadLn (a); {Ввод коэффициента а}

    If a=0 Then Writeln(‘ Уравнение не квадратное ’) Else

Begin

Write (‘Введите значение b =’); ReadLn (b);

       Write (‘Введите значение c =’); ReadLn (c);

d:= b*b-4*a*c;

z:=-b/(2*a);

w:=sqrt(abs(d))/(2*a);

Writeln(‘ При а = ’,a:5:2,’ b= ’,b:5:2,’ c= ’,c:5:2);

If d<0 Then

                Begin

                         Writeln(‘x1= ‘,z:6:3,’+j*’,w:5:3);

                         Writeln(‘x2= ‘,z:6:3,’-j*’,w:5:3);

      End

      Else

                Begin

                         x1:=z+w;x2:=z-w;

                         Writeln(‘x1= ‘,x1:5:2,’ x2= ‘,x2:5:2);

                End

End;

Writeln (‘Желаете продолжить работу? (y/n)’);

Readln(otvet);

Until otvet <>’ y ’;   {Повторять, пока переменная otvet примет значение отличное от y}

Writeln (‘Спасибо, До свидания!’)

End.

 

4. Используя команду Save пункта меню File, запишите набранную Вами программу на диск под именем KwUr1. Откомпилируйте исходную программу, нажав комбинацию клавиш < Alt > + < F 9> или при помощи мыши выполните пункт меню Compile. Исправьте допущенные ошибки, если они будут обнаруживаться транслятором при компиляции. После исправления ошибок процесс компиляции надо повторять. При отсутствии ошибок будет выдано сообщение: Compile successful: Press any key. В ответ надо нажать любую клавишу и запустить программу на выполнение: < Ctrl > + < F 9> или пункт меню Run.

5. Для того чтобы, находясь в окне с исходной программой, посмотреть, при необходимости, результаты расчетов, надо нажать < Alt > + < F 5>. Повторное нажатие этих клавиш снова откроет окно с программой.

6. Проведите серию расчетов для набора значений коэффициентов a, b и c так, чтобы работали все ветви данной программы. Проверьте полученные результаты путем подстановки найденных корней в исходное уравнение.

7. Окончание работы – выход из Паскаля: < Alt > + < X > или с помощью мыши: File → Exit.

 

 

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