Begin. Заключение

Вместе с развитием вычислительных систем, стремительно развиваются и другие отрасли цифрового мира. С каждым днем цифровые технологии все больше входят в нашу жизнь. И уже сложно представить себе окружающий мир без различных цифровых устройств, которые с каждой секундой появляются все новые и новые, и становятся все интеллектуальнее и интеллектуальнее.

Цель данной курсовой была достигнута.

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

В ходе работы над курсовой работой была изучена научная и учебная литература по теме «Информатика и программирование» и изучены материалы Интернет – ресурсов.

Список используемой литературы

1. Кловский Д.Д. Теория передачи сигналов.- М.,“Связь”,1973.

2. Ткаченко А.П. Бытовая радиоэлектронная техника. Энциклопедический справочник. – Мн.: БелЭн, 1995.

3. Шинаков Ю.С. Теория передачи сигналов в электросвязи. – М.: Радио и связь. 1989.

Приложения А

(обязательное)

Листинг программ

var

a:array[1..120]of integer;

i:integer;

count:integer;

function dsum(i:integer):integer;

var sum:integer;

begin

sum:=0;

while(i<>0) do

begin

sum:=sum+(i mod 10);

i:=i div 10;

end;

dsum:=sum;

end;

Begin

count:=0;

i:=1;

while count<>120 do

begin

if (dsum(i) mod 10 = 0) then

begin

inc(count);

a[count]:=i;

write(a[count]:6);

if (count mod 12 = 0) then writeln;

end;

inc(i);

end;

readln;

end.

Приложения Б

(обязательное)

Листинг программ

uses Graph,Crt;

var

dx,dy:integer;

angle,posx,posy:integer;

maxx,maxy:integer;

ainc:integer;

xinc:integer;

yInc:integer;

k:real;

kinc:real;

procedure DrawObj(x,y,a:integer;k:real);

var

dx,dy:real;

nx,ny,px,py:integer;

i:integer;

begin

MoveTo(x,y);

dx:=7*k*cos(a*3.14/180);

dy:=7*k*sin(a*3.14/180);

LineTo(x+round(dx),y+round(dy));

a:=a+45;

dx:=20*k*cos(a*3.14/180);dy:=20*k*sin(a*3.14/180);

LineTo(x+round(dx),y+round(dy));

a:=a+45;

dx:=7*k*cos(a*3.14/180);dy:=7*k*sin(a*3.14/180);

LineTo(x+round(dx),y+round(dy));

end;

procedure DrawStar(x,y,a:integer;k:real);

begin

DrawObj(x,y,-a,k);

DrawObj(x,y,-a+90,k);

DrawObj(x,y,-a+180,k);

DrawObj(x,y,-a+270,k);

end;

begin

randomize;

ainc:=random(40)-20;

xinc:=random(40)-20;

yinc:=random(40)-20;

angle:=random(90);

posx:=100+random(200);

posy:=100+random(200);

k:=1+random(20)/10;

kinc:=random(10)/10;

dx:=Detect;

InitGraph(dx,dy,'');

maxx:=getmaxx;

maxy:=getmaxy;

repeat

ClearDevice;

angle:=angle+ainc;

if (angle>360) then angle:=angle-360;

if (k+kinc>3)or(k+kinc<1) then kinc:=-1*kinc;

K:=k+kinc;

if ((posx+xinc+20*k>=maxx)or(posx+xinc-20*k<=0)) then xinc:=-1*xinc;

if ((posy+yinc+20*k>=maxy)or(posy+yinc-20*k<=0)) then yinc:=-1*yinc;

posx:=posx+xinc;

posy:=posy+yinc;

drawstar(posx,posy,angle,k);

delay(250);

until (KeyPressed);

CloseGraph;

end.