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

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

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

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

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

Методика выполнения работы. 1. Запустите интегрированную среду Паскаль - student2.ru , если d ≥0 и Методика выполнения работы. 1. Запустите интегрированную среду Паскаль - student2.ru , где Методика выполнения работы. 1. Запустите интегрированную среду Паскаль - student2.ru , Методика выполнения работы. 1. Запустите интегрированную среду Паскаль - student2.ru , если d<0.

Методика выполнения работы. 1. Запустите интегрированную среду Паскаль - student2.ru

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

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

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

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

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

Var a,b,c,d,w,z,x1,x2: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> + <F9> или при помощи мыши выполните пункт меню Compile. Исправьте допущенные ошибки, если они будут обнаруживаться транслятором при компиляции. После исправления ошибок процесс компиляции надо повторять. При отсутствии ошибок будет выдано сообщение: Compile successful: Press any key. В ответ надо нажать любую клавишу и запустить программу на выполнение: <Ctrl> + <F9>или пункт меню Run.

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

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

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

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

Наши рекомендации