Линейные вычислительные процессы.

ОБЯЗАТЕЛЬНАЯ ЧАСТЬ

Кодирование Шеннона - Фано.

Закодировать свою фамилию имя отчество кодом Шеннона-Фанос

мощностью кода 4.

 

Мажарцев Данил Андреевич

Буква	Вероятность	Шаг1	Шаг2	Итог
А	4/24	0		0
Е	3/24	1	0	10
Р	2/24		1	11
В	2/24	2	0	20
Д	2/24		1	21
Н	2/24		2	22
И	2/24	3	0	30
-	2/24		1	31
М	1/24		2	32
Ж	1/24	4	0	40
Ц	1/24		1	41
Л	1/24		2	42
Ч	1/24		3	43

 

 

Кодирование Хаффмена.

Закодировать свою фамилию имя отчество кодом Хаффменас мощно-

стью кода 4.

 

Мажарцев Данил Андреевич

Буква	Вероятность	Код	Шаг1	Код	Шаг2	Код	Шаг3	Код	Шаг4	Код
А	4/24	3	4/24	3	4/24	2	8/24(3)	1	9/24(4)	0
Е	3/24	00	3/24	00	4/24(2)	3	4/24	2	8/24	1
Р	2/24	01	2/24	01	3/24	00	4/24	3	4/24	2
В	2/24	02	2/24	02	2/24	01	3/24	00	4/24	3
Д	2/24	03	2/24	03	2/24	02	2/24	01
Н	2/24	11	2/24	10	2/24	03	2/24	02
И	2/24	12	2/24	11	2/24	10	2/24	03
-	2/24	13	2/24	12	2/24	11
М	1/24	20	2/24(1)	13	2/24	12
Ж	1/24	21	1/24	20	2/24	13
Ц	1/24	22	1/24	21
Л	1/24	23	1/24	22
Ч	1/24	100	1/24	23
Х1	0/24	101
Х2	0/24	102
Х3	0/24	103

 

 

Системы счисления

Номер студенческого билета (последние 4 цифры) в прямом и обратном порядке перевести в двоичную систему, восьмеричную, шестнадцатеричную. Произвести сложение и вычитание полученных значений.

 

20122169 номер студенческогобилета

А=2169(10)=100001111001(2)=4171(8)=879(16)

B=9612(10)=10010110001100(2)=22614(8)=258C(16)

A+B=11781(10) =10111000000101(2)=27005(8)=2E05(16)

B-A=7443(10) =1110100010011(2)=16423(8)=1D13(16)

Линейные вычислительные процессы.

Вычислить, упростив при помощи дополнительной переменной.

Начало

 

Ввод a, b, c

Y=

R=

Вывод Y

Конец

 

program z4;

var

A,B,C,X,Y: real;

begin

// вводданных

writeLn('введите A, B, C');

readLn(A,B,C);

// вычисление промежуточных данных

Y:=(a+b+c)/2;

//теперь всю формулу:

X:=sqrt(abs(Y*(a-Y)*(b-Y)*(c-Y)));

//вывод результата

writeLn(' X= ', X);

end.

 

 

Простые разветвляющиеся вычислительные процессы.

X: =m/n

Начало

Ввод m, n

P: =3.14

Y: =n/m

M: =m*2

N: =n*2

Вывод m, n

Конец

|x-p|<|y-p|

Program Z5;

Var m, n, x, y, p: real;

Begin

P:=3.14;

writeLn('введитеm, n ');

readLn(m, n);

x:=m/n;

writeLn(‘m/n= ', x);

y:=n/m;

writeLn('n/m= ', y);

ifabs(x-p)<abs(y-p) then

begin

writeLn('первая дробьближе к п’);

m:=m*2;

end

else

begin

writeLn(‘вторая дробь ближе к п');

n:=n*2;

end;

writeLn('числа после изменения m=',m,’n=’,n);

end.

 

Сложные разветвляющиеся вычислительные процессы.

Начало

Ввод h

H<11000

T: =288.16-0.0065*h

H<25000

T: =216.16

T: =216.16+0.00276098(h-25000)

Вывод T

Конец

program ex;

varH, T:real;

Begin

writeLn ('введитевысотуот 0 до 46000 метров');

readLn(h);

ifh<11000 thenT:=288.16-0.0065*h

Else

ifh<25000 thenT:=216.16

elseT:=216.16+0.00276098*(h -25000);

writeLn ('абсолютная температура равна ', t);

End.

Циклические вычислительные процессы (математические ряды).

Используя три различных цикла определить значение.

Начало

Ввод x

S: =0;

n: =1;

Начало

Начало

Ввод x

S: =0;

N: =1, 6

S: =

Вывод S

Конец

N<=k

S: =

n: =n+1;

Вывод S

Конец

Ввод x

S: =0;

n: =1;

n: =n+1;

n>k

Вывод S

Конец

S: =

 

 

(в а р и а н т с ц и к л о м for)

program Z7_1_For;

var n:integer;

x,S:real;

Begin

cls;

writeLn('Введитеx');

readLn(x);

for n:=1 to 6 do

S:=S+(sqr(x*n-1))*(x*n-1);

writeLn (' полученная сумма S = ', S:8:3);

End.

(в а р и а н т с ц и к л о м repeat)

program Z7_2_Repeat;

var n:integer;

x,S:real;

Begin

cls;

writeLn('Введите x');

readLn(x);

S:=0;

n:=1;

Repeat

S:=S+(sqr(x*n-1))*(x*n-1);

n:=n+1;

until n>6;

writeLn(' полученнаясумма S= ',S:8:3);

End.

(в а р и а н т с ц и к л о м while)

program Z7_3_While;

var n:integer;

x,S:real;

Begin

cls;

writeLn('Введите x');

readLn(x);

S:=0;

n:=1;

while n <= 6 do

Begin

S:=S+(sqr(x*n-1))*(x*n-1);

n:=n+1;

end;

writeLn(' полученнаясумма S= ',S:8:3);

End.

Циклические вычислительные процессы (значения функции)

Используя три различных цикла, трижды протабулировать функцию.

Начало

Ввод a

X0: =-3

N:=trunc((6-x0)/1)

N: =1, 6

x:=x0+1*k

F1<>0

f1:=(x*x*x)-(7*x)-6

f1:=(x*x*x)-(7*x)-6

Вывод f

Не вычисляется при данном х

Конец

Начало

Ввод a

X0: =-3

F1<>0

f1:=(x*x*x)-(7*x)-6

f1:=(x*x*x)-(7*x)-6

Вывод f

Не вычисляется при данном х

x:=x0+1

x>6

Конец

Начало

Ввод a

X0: =-3

X<=6

F1<>0

f1:=(x*x*x)-(7*x)-6

Вывод f

Не вычисляется при данном х

x:=x0+1

Конец

(в а р и а н т с ц и к л о м for)

programcicleForTabul;

var x0,f,f1,x,a:real;

N,k:integer;

Begin

cls;

writeln(' введитеа ');

readln(a);

x0:=-3;

N:=trunc((6-x0)/1);

for k:=0 to N do

Begin

x:=x0+1*k;

f1:=(x*x*x)-(7*x)-6;

if f1<>0 then

Begin

f:=(exp(-a*x)+exp(a*x))/f1;

writeln('f(',x:8:2,') =',f:8:2);

End

elsewriteln (не вычисляется при x =', x:8:2);

end;

End.

(в а р и а н т с ц и к л о м repeat)

program Z8_2_Repeat;

var x0,f,f1,x,a:real;

N,k:integer;

Begin

cls;

writeln(' введитеа ');

readLn(a);

x:=-3;

Repeat

f1:=(x*x*x)-(7*x)-6;

if f1<>0 then

Begin

f:=(exp(-a*x)+exp(a*x))/f1;

writeln('f(',x:8:2,') =',f:8:2);

End

elsewriteln (не вычисляется при x =', x:8:2);

x:=x+1;

untilx>6;

End.

(в а р и а н т с ц и к л о м w h i l e)

program Z8_3_While;

var x0,f,f1,x,a:real;

N,k:integer;

Begin

cls;

writeln(' введитеа ');

readLn(a);

x:=-3;

while x <= 6 do

begin

f1:=(x*x*x)-(7*x)-6;

if f1<>0 then

Begin

f:=(exp(-a*x)+exp(a*x))/f1;

writeln('f(',x:8:2,') =',f:8:2);

End

elsewriteln (не вычисляется при x =', x:8:2);

x:=x+1;

end;

End.

Расчетывфайлах

Начало

i:=1, 15

Not EOF(F)

assign(f,'f.dat')

rewrite(f)

F←b

Ввод b

reset(f)

P:=1

b←F

abs(b) > 7 or abs(b) < 2

p:=p*b

K > 0

Вывод P

В файле нет подходящих элементов

K:=k+1

K:=0

close(f)

Конец

 

 

program Z14;

varb,p,k,i:integer;

f:file of integer;

begin

assign(f,'f.dat');

rewrite(f);

writeLn('вводите 9 компонентфайлаf:');

for i:=1 to 15 do

begin

writeLn('введите ',i,'-уюкомпонентуфайлаf');

readLn(b);

write(f,b);

end;

reset(f);

p:=1;

k:=0;

while not EOF(f) do

begin

read(f,b);

if (abs(b) > 7) or (abs(b) < 2) then

begin

p:=p*b;

K:=k+1;

end;

end;

if k>0 then writeLn('произведение =',p) else

writeLn('в файле нет подходящих элементов');

close(f);

end.

Модификация файлов

Начало

assign(f,'f.dat')

rewrite(f)

b←F

reset(f)

i:=1

K:=0

Ввод b

b≠777

F←b

i:=i+1

Ввод b

Not EOF(F)

Вывод b

Not EOF(F)

b←F

(b<5) and (b>-3)

k:=k+1

K mod 2 = 0

1

2

3

4

5

1

2

3

4

5

seek(f,filepos(f)-1)

b:=1

F←b

Конец

b←F

reset(f)

Not EOF(F)

Вывод b

program Z15;

varb,i,k:integer;

f:file of integer;

begin

assign(f,'f.dat');

writeLn('введите первую компоненту файла f или признак конца ввода:"777")');

rewrite(f);

readLn(b);

i:=1;

k:=0;

while b<>777 do

begin

write(f,b);

i:=i+1;

writeLn('введите ',i,'-юкомпонентуфайлаf');

readLn(b);

end;

reset(f);

writeLn('файлfдоизменения:');

while not EOF(f) do

begin

read(f,b);

write(b:5);

end;

writeLn;

reset(f);

while not EOF(f) do

begin

read(f,b);

if (b<5) and (b>-3) then

begin k:=k+1;

if k mod 2 = 0 then

begin

seek(f,filepos(f)-1);

b:=1;

write(f,b);

end;

end;

end;

reset(f);

writeLn('файлfпослеизменения:');

while not EOF(f) do

begin

read(f,b);

write(b:5);

end;

writeLn;

close(f);

end.

ОБЯЗАТЕЛЬНАЯ ЧАСТЬ

Кодирование Шеннона - Фано.

Закодировать свою фамилию имя отчество кодом Шеннона-Фанос

мощностью кода 4.

 

Мажарцев Данил Андреевич

Буква	Вероятность	Шаг1	Шаг2	Итог
А	4/24	0		0
Е	3/24	1	0	10
Р	2/24		1	11
В	2/24	2	0	20
Д	2/24		1	21
Н	2/24		2	22
И	2/24	3	0	30
-	2/24		1	31
М	1/24		2	32
Ж	1/24	4	0	40
Ц	1/24		1	41
Л	1/24		2	42
Ч	1/24		3	43

 

 

Кодирование Хаффмена.

Закодировать свою фамилию имя отчество кодом Хаффменас мощно-

стью кода 4.

 

Мажарцев Данил Андреевич

Буква	Вероятность	Код	Шаг1	Код	Шаг2	Код	Шаг3	Код	Шаг4	Код
А	4/24	3	4/24	3	4/24	2	8/24(3)	1	9/24(4)	0
Е	3/24	00	3/24	00	4/24(2)	3	4/24	2	8/24	1
Р	2/24	01	2/24	01	3/24	00	4/24	3	4/24	2
В	2/24	02	2/24	02	2/24	01	3/24	00	4/24	3
Д	2/24	03	2/24	03	2/24	02	2/24	01
Н	2/24	11	2/24	10	2/24	03	2/24	02
И	2/24	12	2/24	11	2/24	10	2/24	03
-	2/24	13	2/24	12	2/24	11
М	1/24	20	2/24(1)	13	2/24	12
Ж	1/24	21	1/24	20	2/24	13
Ц	1/24	22	1/24	21
Л	1/24	23	1/24	22
Ч	1/24	100	1/24	23
Х1	0/24	101
Х2	0/24	102
Х3	0/24	103

 

 

Системы счисления

Номер студенческого билета (последние 4 цифры) в прямом и обратном порядке перевести в двоичную систему, восьмеричную, шестнадцатеричную. Произвести сложение и вычитание полученных значений.

 

20122169 номер студенческогобилета

А=2169(10)=100001111001(2)=4171(8)=879(16)

B=9612(10)=10010110001100(2)=22614(8)=258C(16)

A+B=11781(10) =10111000000101(2)=27005(8)=2E05(16)

B-A=7443(10) =1110100010011(2)=16423(8)=1D13(16)

Линейные вычислительные процессы.

Вычислить, упростив при помощи дополнительной переменной.

Начало

 

Ввод a, b, c

Y=

R=

Вывод Y

Конец

 

program z4;

var

A,B,C,X,Y: real;

begin

// вводданных

writeLn('введите A, B, C');

readLn(A,B,C);

// вычисление промежуточных данных

Y:=(a+b+c)/2;

//теперь всю формулу:

X:=sqrt(abs(Y*(a-Y)*(b-Y)*(c-Y)));

//вывод результата

writeLn(' X= ', X);

end.