Задания

1.1. Запустить интегрированную среду Паскаль (двойной щелчок левой кнопкой мышки на ярлыке Borland Pascal).

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

1.3. Открыть новое окно для записи текста программы: File - New.

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

Program kwur; (*Имя программы*)

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

Var a,b,c :integer; {Коэффициенты уравнения}

xl,x2: real; {Корни уравнения}

d: real; {Дискриминант}

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

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

WriteLn (' Решение квадратного уравнения общего вида ах² + bх + с = 0 ');

ReadLn (a, b, с); {Ввод коэффициентов}

D:=b*b-4*a*c; {Вычисление дискриминанта}

If d>=0 Then

Begin

xl:=-b+sqrt(d)/(2*a); {Вычисление корней уравнения}

x2:=-b-sqrt(d)/(2*a);

writeln ('Корни уравнения:'); {Вывод сообщения}

writeln ('xl=', xl:9:3); {Вывод значений корней

writeln ('x2=', х2:9:3); уравнения}

end

else

WriteLn (' Корней нет '); {Вывод сообщения}

End.

1.5. Используя команду Save пункта меню File, записать набранную программу на диск под именем kwurl. Расширение указывать не обязательно.

1.6. Откомпилировать исходную программу <Alt> +<F9>.

1.7. Исправить допущенные ошибки.

1.8. Запустить программу на выполнение — <Ctrl>+<F9>.

1.9. Записать в тетрадь 3 уравнения для тестирования программы. Решить их на калькуляторе и сравнить полученные результаты вычислений с результатами решения уравнений на ЭВМ.

1.10. Окончание работы — выход из Паскаля: <Alt>+<X>.

Варианты заданий

Найти значение выражения для вводимого с клавиатуры x.

№ варианта	Обозначение функции	Формула функции
1.	f1
2.	f2
3.	f3
4.	f4
5.	f5
6.	f6
7.	f7
8.	f8
9.	f9
10.	f10
11.	f11
12.	f12
13.	f13
14.	f14
15.	f15
16.	f16
17.	f17
18.	f18
19.	f19
20.	f20
21.	f21
22.	f22
23.	f23
24.	f24
25.	f25