Microsoft Word Лаб практ инф

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. Откомпилируйте исходную программу, 
нажав комбинацию клавиш + или при помощи мыши выполните 
пункт меню Compile. Исправьте допущенные ошибки, если они будут 
обнаруживаться транслятором при компиляции. После исправления ошибок 
процесс компиляции надо повторять. При отсутствии ошибок будет выдано 
сообщение: Compile successful: Press any key. В ответ надо нажать любую 
клавишу и запустить программу на выполнение:  +  или пункт меню 
Run. 
5. Для того чтобы, находясь в окне с исходной программой, посмотреть, 
при необходимости, результаты расчетов, надо нажать + . 
Повторное нажатие этих клавиш снова откроет окно с программой. 

---

74
6. Проведите серию расчетов для набора значений коэффициентов a, b и c 
так, чтобы работали все ветви данной программы. Проверьте полученные 
результаты путем подстановки найденных корней в исходное уравнение. 
7. Окончание работы – выход из Паскаля: + или с помощью 
мыши: File → Exit. 
Лабораторная работа №
 2 
Программирование алгоритмов линейной структуры