Автор работы: Пользователь скрыл имя, 03 Октября 2011 в 10:14, контрольная работа
работа содержит теоритический вопрос и 4 задачи и их решения
1001101101,0010 1001101101,0010
+
100111,1011
1010010100,1101
4)
1010010100,11012→
660,11 1001000101,10012→
Задание 3
на тему "Циклический вычислительный процесс":
составить блок-схему алгоритма решения задачи и программу на языке PASCAL (одним способом).
Решение: Program summa;
var
t:integer;
s,a:real;
begin
t:=1;
s:=0;
while t<=20 do begin
a:=t/(t*t-5);
s:=s+a;
t:=t+1;
end;
Writeln('s=', s:5:2);
End.
ОТВЕТ:
S=0,51
Задание 4
на тему "Разветвляющийся в цикле
вычислительный процесс":
составить блок-схему алгоритма решения задачи и программу на языке PASCAL (одним способом).
Вычислить значения функции Z
Z = 15y + 7,2 y2
у =
а = 4,5
х =
t
[1;6] ∆t = 1
Program fun_14;
const
a=4.5;
var
t:integer;
y,x,z:real;
begin
t:=1;
repeat
x:=(t*t+4)/(t+1);
if x<0.3 then y:= a*x*x+5;
if x>0.3 then y:= ln(a*x) else
y:=x/a+a*a;
z:=15*y+7.2*y*y;
writeln('z(',x:5:2,')=',z:5:2)
t:=t+1;
until t>6;
end.
ОТВЕТ: