11. Содержание занятия.

11.1. Самостоятельная работа.

Задание 1. Написать математическое выражение на языке Турбо Паскаль

1) сosx lnx – x2 ex/10 2) 3,8 ex sinx + a x2

3) sinx2- cosx – 5,3 x 4) 8,7 ex ln(tgx)

5) ln lnx + 2,3 xex 6) sin(x+0,6) 5х2

7) 5х2+6,23x ex 8) cos2(2,87x-0,45)

Задание 2. Выражения на языке Турбо Паскаль написать на обычном виде

1) 0.5*x+exp(sin(2*x)) 2) 0.125e-3*(x+0.576)

3) sqrt(exp(3*x))-2.56 4) exp(ln(x/5)+sqr(2*x)

5) 0.4e-3*ln(x+sin(x)) 6) 0.375e6+exp(x-0.3)

7) 7.5*sqr(x)+x*ln(x) 8) (sin(x-1)-3)/exp(3*x)

Задание 3. Запустить Турбо Паскаль (щелкнуть дважды по пиктограмме ТURBO PASCAL и набрать текст программы:

Program delenie (input, output); {Programma vychisleniy chastnogo} const d=3.2; {d - konstanta} var a,b:integer; {a,b – vvodimye chisla } s:real; {s - rezultat } begin write(‘a=’);{soobchenie o vvode chisla а} ReadLn(a);{vvod chisla а} write(‘b=’);{soobchenie o vvode chisla b} ReadLn(b); {vvod chisla b} s :=d*a/b; {vychislenie rezultata s} WriteLn(‘s=d*a/b=’,s:6:3) { vyvod rezultata s} end.

1. Запустить компилятор выполнив: Compile – Compile или Alt+F9, если появится сообщение начинающееся со слов ERROR, значит в тексте программы допущена ошибка. Необходимо найти ее и исправить. Программа показывает, что ошибка находится в строке над строкой с курсором. После исправления снова запустить компилятор, пока не появится диалоговое окно с сообщением “Compile …”.

2. В строке a,b:integer; {a,b - vvodimye chisla} убрать точку с запятой и снова откомпилировать. Результат наблюдения и причину описать в тетради. Поставить точку с запятой на место.

3. В строке a,b:integer; {a,b - vvodimye chisla удалить имя переменной b c убрать точку с запятой и снова откомпилировать. Результат наблюдения и причину описать в тетради. Вписать удаленное.

4. В строке s:real; {s - rezultat} убрать двоеточие и снова откомпилировать. Результат наблюдения и причину описать в тетради. Вписать удаленное.

По результатам наблюдений пунктах 1-4 сделать общий вывод.

5. Запустить программу в работу, выполнив Run – Run или Ctrl+F9 и ввести значения

a) a=5, b=7; б) a=13, b=7; в) a=17, b=5. Данные и результаты переписать в тетрадь

6. В строке WriteLn(‘s=d*a/b=’,s:6:3) {vyvod rezultata s} удалить :6:3. Снова запустить программу в работу и вести выше приведенные данные. Результат переписать в тетрадь.

Сравнив результаты. полученные в пунктах 5 и 6, сделать вывод, указав причину их различия.

Задание 4

Составить программу

1) вычисления функции Y= Z² + T², если Z= 636,7 e^сх и Т= 0,34 sindx и произвести вычисления для с=-1,5 d=3,4 и х : а) 1,6 б) 2,3 в) 2,8 г) 3,1