Міністерство освіти і науки України Національний технічний університет України “Київський політехнічний інститут” Кафедра ОТ ЗВІТ про виконання лабораторної роботи № 2 з дисципліни “Основи програмування та алгоритмічні мови” Для заданого а знайти корінь рівняння f ( x) = 0, де
На початку програми, ми повинні задати параметр а, і в залежності від його значення програма повинна знайти х - корінь рівняння f ( x) = 0. Даний алгоритм реалізується за допомогою розгалуженого ціклу.
Текст програми Program lab_2; uses crt; {Plug crt} var povtor:char; {peremennaya dly zapyska thukla povtora(na4atb c na4ala)} a, {a-zminna a} x:real; {x-koren rivnanna} begin povtor:='y'; {Assign to the variable povtor value of 'y' so that the next run tsykl} While povtor='y' do begin write('Enter a, a='); readln(a); {Sets the value of variable a} if a>0 then begin x:=(-1)*abs(a-1)/(2*a);{Find the value of x if a<0 and find the module a-1} end else x:=ln(sqrt(1+sqr(a))); {Find the value of x for all other values of a} writeln('x=',x:6:2); {Output the value of x} writeln('Type "y" to start over or "n" to exit'); Readln(povtor); clrscr; end; end.
В даному прикладі виконання програми ми ввели значення а, а=1. Отже програма повинна була знайти корені рівняння
, при f ( x) = 0. Отже:
. І дійсно якщо підставити 1 в дане рівняння то отримуємо f ( x) = 0.35.