Блок-схема алгоритму. var x, {variable for counting}
3. Код програми:
Program lab1_3; var x, {variable for counting} mX, {multiple x} i, {counter} n:integer; {number of summand} s:real; {sum of elements-result} usans:char; {user answer} begin repeat {do while user wish} writeln; writeln('Result of lab1_3'); {TASK} writeln('Variant 5, made by Znakhurenko Viktoriya'); writeln('Calculation of S=x-x^2/2+x^3/3-x^4/4+x^5/5...'); write('Enter x='); {input parameter for counting} readln(x); {reading value} repeat {number of element must be positive} write('number of summand elements n='); readln(n); until(n>0); {number of summand element must be positive} s:=0; {finagle sum} mX:=x; {definition of mX,before calculation} for i:=1 to n do {circle counting} begin s:=s+mX/i; {expression for calculation} mX:=-mX*x; {new summand} end; writeln('Result of calculation expression s=',s:4:2); {output result} write('Do you want to try again?[y/n]'); readln(usans); {reading user answer} until(usans<>'y'); {question for again calculation} end.
3. Screen Shot результатів
4. Аналіз роботи Як ми бачимо зі ScreenShot’ів, ми ввели 4 варіанти даних. 1. Якщо x=7 та кількість елементів для підрахунку n=1, то результат розрахунку s= x=7. 2. Якщо x=2 та кількість елементів для підрахунку n=2, то розрахунок здійснюється за формулою s= x-x*x/2. Отримали відповідний результат s=0. 3. Якщо x=6 та кількість елементів для підрахунку n=3, то розрахунок здійснюється за формулою s=x-x*x/2+x*x*x/3. Отримали відповідний результат s=60. 4. Здійснене зациклення програми при введенні від’ємного значення n.
|
