В задании требуется ввести код программы, описанной на странице 228 учебника и надо изменить программу так, чтобы она считала отклонения средней температуры каждого месяца от среднегодовой величины, должно получиться так:
Program Temperature;
var T: array[1..12] of real;
Dt:array[1..12] of real;
i:integer; Tsred:real;
begin
for i:=1 to 12 do begin
write('T[',i:2,'] = ');
readln(T[i]);
end;
Tsred:=0;
for i:=1 to 12 do
Tsred:=Tsred+T[i];
Tsred:=Tsred/12;
Writeln('Среднегодовая температура = ',Tsred:6:2);
for i:=1 to 12 do begin
Dt[i]:=T[i]-Tsred;
writeln('Dt[',i:2,']',Dt[i]:6:2);
end;
end.
Ну а результаты получите, когда запустите программу.
Дано:
N = 34 символа.
n = 10 страниц.
x = 30 строк.
y = 15 символов.
Найти: V.
N = 2^i, где
N - мощность алфавита;
i - количество бит на символ.
V = K * I, где
V - объем;
K - количество символов в сообщении;
K = n * x * y, где
n - количество страниц;
x - количество строк на странице;
y - количество символов в строке.
K = n*x*y = 10*30*15 = 4500 символов в сообщении.
N = 2^i.
34 = 2^i.
I = 6 бит (не можем взять 5 бит, так как 32 < 34. Округляем в большую сторону).
V = K * I = 4500 * 6 = (27000 бит)/8 = 3375 байт.
Ответ: 3375 байт.
1)
var a,c:real; b:integer;
begin
for b:=2 to 7 do
begin
c:=cos((2*b+1)/2-1);
a:=0.4*c*c;
writeln('b = ',b,', a = ',a:5:3);
end;
end.
2)
var a,c:real; b:integer;
begin
b:=1;
while b<7 do
begin
b:=b+1;
c:=cos((2*b+1)/2-1);
a:=0.4*c*c;
writeln('b = ',b,', a = ',a:5:3);
end;
end.
3)
var a,c:real; b:integer;
begin
b:=1;
repeat
b:=b+1;
c:=cos((2*b+1)/2-1);
a:=0.4*c*c;
writeln('b = ',b,', a = ',a:5:3);
until b=7;
end.
Результат:
b = 2, a = 0.002
b = 3, a = 0.257
b = 4, a = 0.351
b = 5, a = 0.018
b = 6, a = 0.201
b = 7, a = 0.381
2 байта- 16бит, 16бит*18символов=288бит
Ворд это универсальная штука при помощи нее мы можем даже создавать рисунки и редактировать текст, распечатывать раздичные рисунки и набраный текст созранение там очень простое,жмещь сохрнатить , и указываещь путь.ПРости за опечатки