Міністерство освіти і науки України Національний технічний університет України “Київський політехнічний інститут” Кафедра ОТ ЗВІТ про виконання лабораторної роботи № 3.1 з дисципліни “Основи програмування та алгоритмічні мови” Постановка задачі Для заданого натурального числа n обчислити
Блок – схема
Текст програми Program lab_3; uses crt; {Plug crt} var povtor:char; {parametr dlz zapyska tcukla povtora} i:integer; {i - peremennaya dly tcukla for i to n} n:integer; {n- peremennaya po ysloviy zada4i} y:real; begin povtor:='y'; While ((povtor='y') or (povtor='Y')) do begin write('Enter n, n='); readln(n); {enter n} if n>0 then begin y:=3*n; for i:=n downto 1 do {Schotchik tsykla umenshaetsa from n to 1} y:=sqrt(3*(n-1)+y); {Using this tsykl we find the value of y} writeln('y=',y:5:2); writeln; end else writeln('n>0'); writeln('Type "y" to start over or "n" to exit'); Readln(povtor); clrscr; end; end.
В даному прикладі виконання програми ми ввели значення а, а=1. Отже програма повинна розв’язати рівняння
Коренем якого є
. І дійсно квадратний корінь із трьох дорівнює 1.73. Отже ми можемо зробити висновок що програма працює коректно.