Навигация:

Главная Случайная страница Обратная связь ТОП Интересно знать Избранные Новые материалы

Топ:

Отражение на счетах бухгалтерского учета процесса приобретения: Процесс заготовления представляет систему экономических событий, включающих приобретение организацией у поставщиков сырья...

Когда производится ограждение поезда, остановившегося на перегоне: Во всех случаях немедленно должно быть ограждено место препятствия для движения поездов на смежном пути двухпутного...

История развития методов оптимизации: теорема Куна-Таккера, метод Лагранжа, роль выпуклости в оптимизации...

Интересное:

Мероприятия для защиты от морозного пучения грунтов: Инженерная защита от морозного (криогенного) пучения грунтов необходима для легких малоэтажных зданий и других сооружений...

Как мы говорим и как мы слушаем: общение можно сравнить с огромным зонтиком, под которым скрыто все...

Средства для ингаляционного наркоза: Наркоз наступает в результате вдыхания (ингаляции) средств, которое осуществляют или с помощью маски...

Дисциплины:

Автоматизация Антропология Археология Архитектура Аудит Биология Бухгалтерия Военная наука Генетика География Геология Демография Журналистика Зоология Иностранные языки Информатика Искусство История Кинематография Компьютеризация Кораблестроение Кулинария Культура Лексикология Лингвистика Литература Логика Маркетинг Математика Машиностроение Медицина Менеджмент Металлургия Метрология Механика Музыкология Науковедение Образование Охрана Труда Педагогика Политология Правоотношение Предпринимательство Приборостроение Программирование Производство Промышленность Психология Радиосвязь Религия Риторика Социология Спорт Стандартизация Статистика Строительство Теология Технологии Торговля Транспорт Фармакология Физика Физиология Философия Финансы Химия Хозяйство Черчение Экология Экономика Электроника Энергетика Юриспруденция

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

2022-10-05

0.00 из 5.00 0 оценок

Заказать работу

Стр 1 из 3Следующая ⇒

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

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

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

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

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

Буква	Вероятность	Шаг1	Шаг2	Итог
А	4/24	0		0
Е	3/24	1	0	10
Р	2/24	1	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

Конец

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

Вывод f

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

Конец

Начало

Ввод a

X0: =-3

F1<>0

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;

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

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;

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	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