11*1024*8=90112 бит
90112\11264=8 бит на символ. Мощность алфавита 2^8=256
Программа
{
опусти_перо;
вектор(0,30);
вектор(15,0);
вектор(0,-30);
подними_перо;
вектор(10,0);
опусти_перо;
вектор(10,30);
вектор(10,-30);
подними_перо;
вектор(-15,15);
опусти_перо;
вектор(10,0);
подними_перо;
вектор(15,-15);
опусти_перо;
вектор(0,30);
вектор(15,0);
вектор(0,-30);
подними_перо;
вектор(10,0);
опусти_перо;
вектор(10,30);
вектор(10,-30);
подними_перо;
вектор(-15,15);
опусти_перо;
вектор(10,0);
}
Допустим, есть таблица "Цены" с полем "Цена". Считаем коэффициент для скидки. Допустим, скидка 20%, тогда K = 1 - (20% / 100%) = 1 - 0.2 = 0.8
Создаём запрос на основе таблицы "Цены". В построителе выражений (или непосредственно в заголовке столбца с данными в конструкторе запросов) пишем так:
ЦенаСоСкидкой: Цены.Цена*0,8
Function Dec2Bin(n:longint): string;
{ Перевод натурального десятичного n в систему счисления по основанию 2 }
var
s: string;
begin
s := '';
while n > 0 do
begin
if Odd(n) then s:='1'+s else s:='0'+s;
n := n div 2
end;
Dec2Bin := s;
end;
var
A:longint;
i,k:integer;
s:string;
begin
Write('Введите натуральное число А: '); Read(A);
Write('Введите номер бита i (счет с 1 справа налево): '); Read(i);
s:=Dec2Bin(A);
k:=Length(s);
if (i>0) and (i<=k) then Writeln('Значение бита: ',s[k+1-i])
else Writeln('Неверный номер бита')
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число А: 37
Введите номер бита i (счет с 1 справа налево): 5
Значение бита: 0
ДЛЯ ЧЕТЫРЕХЗНАЧНЫХ ЧИСЕЛ:
var x: integer;
begin
writeln ('Введите четырехзначное число.');
read (x);
x:=x mod 10 * 1000 + x div 100 mod 10 * 100 + x div 10 mod 10 * 10 + x div 1000;
writeln ('Число после перестановки цифр:',x);
end.
ДЛЯ ЛЮБЫХ ЧИСЕЛ:
program znanija;
var n,m,c1,cp:integer;
k,i:byte;
begin
write('Введите число.');
readln(n);{например 12345}
cp:=n mod 10;{последняя цифра=5}
n:=n div 10;{число без последней цифры=1234}
m:=n;{запомним его}
k:=0;
while m>9 do{пока не останется 1 цифра}
begin
m:=m div 10;{первая цифра=1}
k:=k+1;{количество разрядов без первого=4}
end;
c1:=m;{запомним первую цифру=1}
for i:=1 to k do
begin
m:=m*10;{повышаем разряд числа, равного первой цифре=1000}
cp:=cp*10;{повышаем разряд последней цифры=5000}
end;
n:=(n-m)*10+c1+cp*10;{получаем число=(1234-1000)*10+1+5000*10=52341}
writeln('Число после перестановки цифр:',n);
end.
