Блок-схема алгоритму. 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.