Использовать Чертежник
алг
нач
Треугольник(-1.5, 10, 1.5, 12)
Треугольник(-3, 7, 3, 10)
Треугольник(-6, 3, 6, 7)
сместиться в точку(-1.5, 3)
опустить перо
сместиться в точку(-1.5, 0)
сместиться в точку(1.5, 0)
сместиться в точку(1.5, 3)
кон
алг Треугольник(вещ x1, y1, x2, y2)
нач
сместиться в точку(x1, y1)
опустить перо
сместиться в точку(x2, y1)
сместиться в точку((x1 + x2) / 2, y2)
сместиться в точку(x1, y1)
поднять перо
<span>кон</span>
Давайте будем кодировать температуры от 0 до 64 градусов, а потом просто вычитать из них 30. Чтобы закодировать число от 0 включительно до 64 исключительно необходимо 6 бит (2 в 6-ой = 64). Если мы хотим кодировать включительно нам потребуется 7 бит.
Var
A: array [1..10] of real;
B: array [1..10] of real;
i: integer;
begin
writeln('Массив А:');
for i:= 1 to 10 do
begin
A[i]:= random(200) - 100; {Задаем каждый элемент массива А случайным числом на отрезке [-100; 100]}
writeln(A[i]);
end;
writeln('Массив В:');
for i:= 1 to 10 do
begin
B[i]:= A[i] / 5;
writeln(B[i]);
end;
end.
Var r,s:real;
begin
write('R = ');
readln(r);
s:=2*pi*r*r;writeln('Площадь круга = ',s:6:3);
end.
Пример:
<span>R = 2
Площадь круга = 25.133</span>
На дискете обычно 1.4 Мб, на CD-диске - 700 Мб, на DVD - 4700 Мб.
Из второго можем сразу найти, что на флешке 2701.4 - 1.4 - 700 = 2000 Мб.