Блок-схема алгоритму

початок

 

 

Введення x

 

 

x<>0

так ні

x<0

Невизначена функція

так ні

 

 

y:=7.5*sqr(x)*sqr(x)*x

x>5

так ні

 

 

x=5

y:=-18+17.8+sqr(x)

так ні

 

y:=17.3+85*x+14*sqr(x)

y:=17.3+85*x+14*sqr(x)

 

 

Вивведення y

 

Умова закін

ні

кінець

так

3. Код програми:

 

Program lab1_2;

var x, {x-variable for counting,

y:real; y-variable for result}

ans:char; {ans-user answer variable}

begin

writeln('Result of lab1_2');

writeln('Variant 5, made by Znakhurenko Viktoriya');

writeln(' 3.5x+7x-5.8x^2,0<x<5'); {task of lab}

writeln('Y=17.3+85x+14x^2,x=5');

writeln(' -18+17.8+x^2,x>5');

writeln(' 7.5x^5,x<0');

repeat {do while user wish}

write('Enter x: ');

readln(x); {input variable}

if(x<>0)then {condition correct calculation}

begin

if(x<0)then {condition 1}

y:=7.5*sqr(x)*sqr(x)*x {expression 1}

else if(x>5)then {condition 2}

y:=-18+17.8+sqr(x) {expression 2}

else if(x=5)then {condition 3}

y:=17.3+85*x+14*sqr(x) {expression 3}

else y:=3.5*x+7*x-5.8*sqr(x); {expression 4}

writeln('x= ',x:6:2);

writeln('Result y=',y); {display result}

writeln('Format result y=',y:6:4); {formation of result}

end {end of condition}

else writeln('y not definition when x=0'); {incorrect value for calculation}

write('repeat calculate? [y/n]'); {answer user}

readln(ans); {for again calculation}

until((ans='n')or(ans<>'y'));

end. {end of program}

 

4. Screen Shot результатів

 

5. Аналіз роботи

Як ми бачимо зі ScreenShot’ів, ми ввели 6 варіантів даних.

1. Якщо x= - 1, тобто входить у проміжок x<0, тому розрахунок здійснюється за формулою y= 7.5x^5. Отримали відповідний результат y=-7.5.

2. Якщо x= 6, тобто входить у проміжок x>5, тому розрахунок здійснюється за формулою y= -18+17.8+x^2. Отримали відповідний результат y=35.8.

3. Якщо x= 5, тому розрахунок здійснюється за формулою y= 17.3+85x+14x^2. Отримали відповідний результат y=792.3.

4. Якщо x= 1, тобто входить у проміжок 0<x<5, тому розрахунок здійснюється за формулою y= 3.5x+7x-5.8x^2. Отримали відповідний результат y=4.7.

5. Якщо x= 0, то функція y не визначена. Отримали відповідне повідомлення.