Висновок. Обчислити вираз за приведеною формулою:

Завдання

Обчислити вираз за приведеною формулою:

X=(-2.25(A + 2BC))/(B - D^1/2)

Значення змінних A,B,C,D задати самостійно.

Код програми

Program lab1_1;

var a,b,c,d, {a,b,c,d-variable for counting,

x: real; x-variable for result}

Begin

writeln ('Calculate x:=(-2.25*(a+2*b*c))/(b-sqrt(d))'); {task of lab}

write ('Enter a,b,c,d: '); {enter parameters}

readln (a,b,c,d); {input parameters}

writeln ('Result of lab1_1');

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

if (d>=0) and (b-sqrt(d)<>0) then {codition correct parameters}

Begin

x:=(-2.25*(a+2*b*c))/(b-sqrt(d)); {counting expresion}

writeln ('a= ',a:4:2,' b= ',b:4:2,' c= ',c:4:2,' d= ', d:4:2); {passed variables}

writeln ('Result x=',x); {display results}

writeln ('Format result x=',x:4:2); {format real number}

End

else writeln ('error division by zero or extraction of the root');{incorrect entering variables}

Readln;

End.

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

4. Аналіз результатів

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

1. Якщо a,b,c =0, то x = 0.

2. Якщо d<0, то підкореневе значення не може бути менше нуля або b=√d, то знаменник буде дорівнювати нулю. В цьому випадку програма видасть повідомлення про помилку і коректно завершить роботу.

3. При введенні значень a=1,b=1,c=1 та d=4, відповідь обчислень x=6.75.

Висновок

Програма працює правильно, про що свідчить аналіз результатів та ScreenShot’и. Програма захищена від ділення на 0 чи добування кореню з від’ємного числа.

1.2 ПРОЦЕСИ РОЗГАЛУЖЕННЯ

Варіант № 5

Мета: