Висновок. Обчислити вираз за приведеною формулою:
Завдання Обчислити вираз за приведеною формулою: X=(-2.25(A + 2BC))/(B - D1/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 результатів
Як ми бачимо зі 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 Мета:
|
