Валга

Валга

Расположенная на юге Эстонии Валга и на севере Латвии Валка - города близнецы с 1920 года. Площадь города Валга составляет 16,5 кв. км, города Валка - 14,2 кв. км. Количество жителей на начало 2001 года составляет соответственно 15085 и 7100 человек. Валга находится на перекрёстке шоссейных и железнодорожных путей. Город пересекают шоссе в направлении Йыхви - Нарва, Уулу (Пярну), Выру, Рига. Железнодорожные пути Таллинн - Тарту - Рига соединены через Тапа с магистралью Таллинн - Нарва - Петербург. Валгу пересекает путь в направлении Выру - Петсери на Псков. Валга - центр международного железнодорожного движения.Так как в Валка нет железнодорожного вокзала, направляются прибывающие пассажирские поезда из Латвии в Валга, где находится их конечная станция. До Тарту по шоссе 89, до Пярну 144, до Таллинна 245, до Риги 175, до Пскова 170 километров. С 6 ноября 1944 года издаётся газета ''Валгамаалане'' (3 раза в неделю), действует корреспондентский пункт Эстонского телевидения и местное радио - ''Раадио Руут''. Город Валга заключил договор о сотруничестве с соседним городом Валка. Совместно с финским и шведским городами Торнио и Хапаранда осуществлён финансируемый Евросоюзом в рамках программы Оuverture проект ЕSTLA , благодаря которому связи между Валга и Валка оживились. Так же у города долговременные дружеские связи с коммуной Халлсберг в Швеции и городом Любц в Германии. Развитию города характерно оживление строительства. Валгаская Городская Управа в последние годы благоустроила и реставрировала различные муниципальные здания. Сданы различные важные строительные объекты. В начале года завершена реставрация Центра Культуры и Интересов.

На главную

Хостинг от uCoz

var Form1: TForm1; win:integer; Stavka:integer; implementation {$R *.dfm} procedure TForm1.bb_startClick(Sender: TObject); begin win:=8; while not (win in[1..5]) do begin while (RB1.Checked=False) and (RB2.Checked=False)and (RB3.Checked=False) and (RB4.Checked=False) and (RB5.Checked=False) do begin Label1.Caption:='Сделайте ставку!'; exit; end; bb_1Click(Sender); bb_2Click(Sender); bb_3Click(Sender); bb_4Click(Sender); bb_5Click(Sender); Sleep(300); end; if win=Stavka then label1.Caption:='Выйграл '+ IntToStr(win)+ ' Вы выйграли!!!' else label1.Caption:='Выйграл '+ IntToStr(win)+ ' Вы проиграли!'; bt_newgame.Visible:=True; end; procedure TForm1.bb_1Click(Sender: TObject); var R:integer; begin R:=Random(bb_1.Width); bb_1.Left:=bb_1.Left+R; if bb_1.Left>Bevel1.Left+Bevel1.Width then win:=1; end; procedure TForm1.FormCreate(Sender: TObject); begin Randomize; end; procedure TForm1.bb_2Click(Sender: TObject); var R:integer; begin R:=Random(bb_2.Width); bb_2.Left:=bb_2.Left+R; if bb_2.Left>Bevel2.Left+Bevel2.Width then win:=2; end; procedure TForm1.bt_newgameClick(Sender: TObject); begin bt_newgame.Visible:=False; bb_1.Left:=32; bb_2.Left:=32; bb_3.Left:=32; bb_4.Left:=32; bb_5.Left:=32; win:=8; Label1.Caption:=''; RB1.Checked:=False; RB2.Checked:=False; RB3.Checked:=False; RB4.Checked:=False; RB5.Checked:=False; end; procedure TForm1.RB1Click(Sender: TObject); begin Stavka:=1; Label1.Caption:='Ставка сделана!'; end; procedure TForm1.RB2Click(Sender: TObject); begin Stavka:=2; Label1.Caption:='Ставка сделана!'; end; procedure TForm1.bb_3Click(Sender: TObject); var R:integer; begin R:=Random(bb_3.Width); bb_3.Left:=bb_3.Left+R; if bb_3.Left>Bevel3.Left+Bevel3.Width then win:=3; end; procedure TForm1.bb_4Click(Sender: TObject); var R:integer; begin R:=Random(bb_4.Width); bb_4.Left:=bb_4.Left+R; if bb_4.Left>Bevel4.Left+Bevel4.Width then win:=4; end; procedure TForm1.bb_5Click(Sender: TObject); var R:integer; begin R:=Random(bb_5.Width); bb_5.Left:=bb_5.Left+R; if bb_5.Left>Bevel5.Left+Bevel5.Width then win:=5; end; procedure TForm1.RB3Click(Sender: TObject); begin Stavka:=3; Label1.Caption:='Ставка сделана!'; end; procedure TForm1.RB4Click(Sender: TObject); begin Stavka:=4; Label1.Caption:='Ставка сделана!'; end; procedure TForm1.RB5Click(Sender: TObject); begin Stavka:=5; Label1.Caption:='Ставка сделана!'; end; end.