Program ex16;
var
a,b,x,z,alpha:real;
begin
Write('a,b=');
Read(a,b);
x:=(a+b)/2;
z:=(1+x)/(1+(1+x)/x);
alpha:=a*x*x-cos(b*x)+z/2;
Writeln('x=',x,' z=',z,' alpha=',alpha)
end.
Контрольное решение
Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International
a,b=0.58 -2.4
x=-9.1000000000E-01 z= 9.9878048780E-02 alpha= 1.1057274246E+00
1) 52*60=3000 (кб) в минуту
2) 3000*4= 12000 (кб) всего
<span>Приклад 1. Скласти
алгоритм обчислення і роздрукування значення виразу у = (Ax+B)(Cx+D). 1. Ввести значення А, В, С, D, х. 2. Обчислити у = (Ax+B)(Cx+D). 3. Роздрукувати у. <span>4. Процес обчислення завершити.</span></span>
Клавиатура, сканер, граф. планшет
1тб=1024гб*1024мб*1024кб*1024б*8бит
Получится 8796093022208 бит