Var x,y:real;
begin
write('x = ');
readln(x);
if (x<-4)or(x>4)
then writeln('Функция не определена')
else begin
if x<0
then y:=0
else if x<2 then y:=x*x
else y:=4;
writeln('Y = ',y);
end;
end.
Пример:
x = 1.5
Y = 2.25
1) Для начала подсчитаем общее кол-во символов.
350 * 60 * 18 = 378000 символов
Теперь подсчитаем информационный вес одного символа по формуле N = 2^i.
128 = 2^i
i = 7 бит
Теперь найдем информационный вес всех символов.
378000 * 7 = 2646000 бит = 323 Кбайт (приблизительно)
2) Найдем информационный вес 1 символа первого алфавита.
N = 2^i
512 = 2^i
i = 9 бит
Найдем информационный вес 1 символа второго алфавита.
N = 2^i
64 = 2^i
i = 6 бит
Найдем количество символов первого ( и 2 ) алфавита.
640Кбайт = 5242880 бит
5242880 / 9 = 58320 символов
Теперь найдем информационный объем второго алфавита.
58320 * 6 = 349920 бит = 43 Килобайт ( приблизительно)
3) 1Кбайт = 8192 бит
8192 / 1024 = 2^13 / 2^10 = 2^3 = 8 бит
program abc;
var a,b,c:integer;
begin
writeln('Заштрихованная область=x,y');
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
Mas=array[,] of integer;
procedure GetMas(s:string; var a:Mas);
begin
Writeln('*** Массив ',s,' ***');
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('Вводите элементы массива');
a:=ReadMatrInteger(n,m)
end;
function SumDiag(a:Mas):integer;
begin
Result:=0;
for var i:=0 to Min(a.RowCount,a.ColCount)-1 do Result+=a[i,i]
end;
begin
var a,b,c:Mas;
GetMas('A',a);
GetMas('B',b);
GetMas('C',c);
Writeln('Общая сумма элементов главных диагоналей равна ',
SumDiag(a)+SumDiag(b)+SumDiag(c))
end.
<u>Пример</u>
*** Массив A ***
Количество строк в массиве: 3
Количество столбцов в массиве: 4
Вводите элементы массива
-33 -50 34 -41
-31 10 37 31
32 -49 -32 -27
*** Массив B ***
Количество строк в массиве: 2
Количество столбцов в массиве: 2
Вводите элементы массива
-22 35
0 11
*** Массив C ***
Количество строк в массиве: 3
Количество столбцов в массиве: 2
Вводите элементы массива
23 38
17 -8
16 -1
Общая сумма элементов главных диагоналей равна -51