Текущее время: Вт сен 17, 2019 7:20 pm   
 
* Вход   * Регистрация * FAQ    * Поиск
 

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 45 ]  На страницу 1, 2, 3  След.
Автор Сообщение
 Заголовок сообщения: Программа «Спартакиада» Delphi 7
СообщениеДобавлено: Сб ноя 03, 2007 2:59 pm 
1. Введение
До сих пор в разных дискуссиях преобладают словеса. Пример «Капитал». По моему мнению, бессмысленный набор слов, созданных больным человеком.
http://forum.cprf.info/forum/viewtopic. ... highlight= Можно ли разбогатеть, прочитав «Капитал».
Многие придерживаются прямо противоположного мнения, и так 150 лет.
Ясно, что для выяснения истины надо переходить к другой методологии дискуссий.
Можно создать строго доказуемую математическую модель, но это не всегда возможно.
Проще промоделировать предмет дискуссии. В части экономики я предложил свою модель:
http://forum.cprf.info/forum/viewtopic. ... highlight= Матмоделирование развития экономики. Начало. Программа «Развитие

Если кто верит в истинность учение Маркса, пускай попробует промоделировать положения «Капитала».
Также разработаны программы для изучения ипотеки и военного искусства:
http://forum.cprf.info/forum/viewtopic. ... highlight= Программа моделирования «Ипотека»
http://forum.cprf.info/forum/viewtopic. ... highlight= Моделирование военных действий. Программа "Фронт"

Сформулированы принципы программы http://forum.cprf.info/forum/viewtopic. ... highlight= Моделирование танковых сражений сражений

Сейчас сложилась интересная ситуация. Успешны только мероприятия властей, копирующих что-нибудь советское.
Вот подошли и к ГТО.
http://forum.cprf.info/forum/viewtopic. ... highlight= Обновленный ГТО
Хотя одновременно режим крушит целые виды спорта:
http://47news.ru/1/33272/
В Токсово рушат лыжную трассу СКА
12:16
Более 30 лет Спортивный Комплекс СКА ЛенВО являлся базой для круглогодичной подготовки представителей зимних видов спорта и ареной проведения соревнований различного ранга и масштаба. Теперь этот комплекс может быть безвозвратно потерян.


Я тоже хочу внести свой вклад в развитие спорта. Предлагаю программу «Спартакиада». Конечно, для редких спартакиад можно проводить расчёты и вручную. Однако использование программы на DELPHI позволяет проводить спартакиады, хоть на каждом уроке. Альтернатива, использование Excel, не дает столь гибких возможностей подведения итогов. Впрочем, как кому удобней!
2. Цели программы
В разных коллективах, пока в основном в учебных, для повышения интереса к спорту проводятся спартакиады.
Под личной спартакиадой понимаются обычно следующие спортивные соревнования.
Каждый спортсмен принимает участие в нескольких видах соревнований.
В зависимости от результатов спортсмены занимает определенные места. За каждое место присваиваются определенные баллы. Сумма баллов по всем видам соревнований определяет место каждого спортсмена в общих соревнованиях.
Для спартакиад возможны разные соглашения для следующих случаев:
1) Два или более участников показали одинаковые результаты.
2) Число баллов, в соответствии с занимаемым местом;
3) Определение победителей при равенстве чисел суммарных баллов.

Принятые в программе соглашения будут объяснены позже.
Пример правил Спартакиады в http://www.gov.karelia.ru/gov/Power/Com ... spart.html

3. Общее описание программы
Программа решает три задачи:
1) Таблица 1
Вводится список спортсменов (участников), пол, год рождения.
По признакам «мальчики» - «девочки», «год рождения» участники делятся на 12 групп.
2) Таблица 2
Вводятся спортивные результаты. Три первых соревнования, чем выше результат, тем выше место. Например, прыжки в длину
Два последних соревнования, чем ниже результат, тем выше место. Например, бег.
Для каждого вида соревнований вычисляются порядковые места.
Если результаты равные более высокое место присваивается участнику, занимающему более высокое место в исходном списке. Например, по дате регистрации. Каждому участнику присваивается в каждом виде соревнований число баллов. Например, число баллов может равняться порядковому номеру в упорядоченном по результатам списке спортсменов. Например, спортсмены Петров, Иванов, Сидоров, Квашин показали в подтягивании результаты 7, 12, 21, 5. То есть спортсмены занимают места №1 – Сидоров, №2 –Иванов, №3 – Петров, №4 – Квашин и число баллов соответственно Петров – 3, Иванов - 2, Сидоров – 1, Квашин -4.
Для каждого участника складываются занятые места, и определяется победитель. То есть результаты упорядочиваются по мере возрастания результатов.
Допустим, четыре участника набрали баллов и заняли места, соответственно после знаков = и «:
1, 4, 2, 1, 3 = 11 «1
2, 3, 3, 2, 4 = 14 «3
4, 2, 1, 3, 1 =11 «2
3, 1, 4, 4, 2…=14 «4
Если при сложении результатов несколько спортсменов набрали одинаковое количество баллов, то их фамилии идут подряд в списке с присвоением высшего номера в соответствии с последовательностью фамилий в исходном списке.
3) Таблица 3
Вводятся спортивные результаты в табл.2. Победители по отдельным видам соревнований определяются по тому же принципу, что и в табл. 2. Если спортсмены показали одинаковые результаты, то им присваивается среднеарифметическое от занятых мест. Допустим четыре спортсмена А, Б, В и Г показали в подтягивании результаты соответственно 5, 9, 9, 6. Им присваиваются баллы:
А: 5 «4
Б: 9 «1,5
В: 9 «1,5
Г: 6 «3
В таблице 3 баллы умножены на 1000. То есть: 4000, 1500, 1500, 3000
Далее определяется число баллов для каждого участника, и участники упорядочиваются по возрастанию баллов. При одинаковом числе баллов высшее место – участник первый по исходному списку.
Если результаты равные более высокое место присваивается участнику, занимающему более высокое место в исходном списке.
Или вручную спортсменам присваивается несколько мест. Например, в примере выше места 1, 2 поделили спортсмены Б и В.

4. Пользование программой
Дан листинг программы с комментариями. То есть можно вносить необходимые изменения. Это проще, чем писать заново программу.
Ниже дается описание пользования программы после трансляции. Язык Дельфи-7 (DELPHI).
1) Открытие Программы: кликнуть на EXE
2) В Окне (на форме) три таблицы №1 зеленоватая, №2 – желтая, №3 голубая
3) Нажатие на форме кнопки «ВВОД»
Появляется:
Нумерация строк и столбцов, а также заголовки столбцов таблиц №1, №2, №3
4) Таблица №1
Название столбцов. Названия соответствуют номеру группы (деление по возрасту и полу)
В окошко «Номер группы» вводится номер группы, для которой на данном этапе будут проводиться расчёты. Всего групп 12. Годы рождения: 2000, 1999, 1998, 1997, 1996, 1995, всего 6. Мальчики, девочки - итого 12 групп.
4) Таблица 1.
В столбец 1 вводятся фамилии участников, до 30 символов. Символы любые. Фамилий до 1000.
В столбец 2 вводятся сведения: «м» ли «д». Мальчики, девочки. Русские строчные буквы.
В столбец 3 вводятся сведения: год рождения. 4 цифры.
5) Нажатие на форме кнопки «Итог 1» В таблице №1 появляется разбивка на группы. В столбце 17 число участников по каждой группе.
6) Нажатие на кнопку «Итог 2». В таблице №2 – столбец 1, появляется список фамилий в группе, для которой проводятся расчёты.
7) Таблица №2. Ввод данных по видам спорта. Столбцы 2, 4. 6, 8, 10.
Пр. Расстояния в см, время в сек, а также показатели в разах, например подтягивание.
8) Нажатие на кнопку «Итог 3»
9) Таблица №. 2. В столбцах 3, 5, 7, 9, 11 места, занимаемые участниками.
Пр. Если результаты одинаковые, то места в порядке исходного списка фамилий!
В столбце 12 сумма мест (баллов) участников
В столбце 13 повторно список участников (как в столбце 1).
В столбце 14 места, занятые участниками. Если результаты одинаковы, в порядке исходного списка. По принятой системе баллов победители имеют меньшее число баллов.
Столбец 15, список участников, упорядоченный по занятым местам.
Столбец 16, число баллов для списка в столбце 15.

10) Нажатие кнопки «Итог – 0»
11) Таблица №3
В столбцах 3, 5, 7, 9, 11 места (баллы), занимаемые участниками.
Столбец 12 -16 как табл.№2.
12) Расчёт для следующей группы.
Вводится номер группы. Далее Итог 1, Итог2 , Итог3, Итог0.

Кнопка Итог 4 –резерв.

Следующие посты: файлы DFM и PAS.

PS 1) Установить на комп Дельфи-7
2) Создать на форме компоненты. Пример: файл DFM
3) Написать программу. Скопировать из WORD файл PAS


Вернуться к началу
  
 
 Заголовок сообщения: DFM
СообщениеДобавлено: Сб ноя 03, 2007 3:01 pm 
object Form1: TForm1
Left = 70
Top = 612
Width = 935
Height = 780
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 472
Top = 56
Width = 57
Height = 21
AutoSize = False
Caption = 'E1 '
Color = clBtnShadow
ParentColor = False
end
object Label2: TLabel
Left = 88
Top = 56
Width = 106
Height = 20
Caption = #1053#1086#1084#1077#1088' '#1075#1088#1091#1087#1087#1099
Color = clSkyBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Button1: TButton
Left = 16
Top = 24
Width = 75
Height = 25
Caption = #1042#1042#1054#1044
TabOrder = 0
OnClick = Button1Click
end
object StringGrid1: TStringGrid
Left = 0
Top = 560
Width = 913
Height = 385
Color = clMoneyGreen
ColCount = 18
DefaultColWidth = 50
FixedColor = clSkyBlue
RowCount = 600
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSizing, goColSizing, goEditing, goTabs, goAlwaysShowEditor]
ParentFont = False
ScrollBars = ssVertical
TabOrder = 1
ColWidths = (
50
50
34
36
50
50
50
50
50
50
50
50
50
50
50
50
50
50)
RowHeights = (
24
37
24
24
24
24
24
24
24
24
24
24
27
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
55
26
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24)
end
object Button3: TButton
Left = 112
Top = 24
Width = 75
Height = 25
Caption = #1048#1090#1086#1075' 1'
TabOrder = 2
OnClick = Button3Click
end
object Button2: TButton
Left = 400
Top = 24
Width = 75
Height = 25
Caption = #1048#1090#1086#1075' -0'
TabOrder = 3
OnClick = Button2Click
end
object Edit1: TEdit
Left = 584
Top = 56
Width = 33
Height = 21
TabOrder = 4
end
object Button4: TButton
Left = 200
Top = 24
Width = 75
Height = 25
Caption = #1048#1090#1086#1075' 2'
TabOrder = 5
OnClick = Button4Click
end
object StringGrid2: TStringGrid
Left = 40
Top = 88
Width = 857
Height = 233
Color = clYellow
ColCount = 18
DefaultColWidth = 45
FixedColor = clFuchsia
RowCount = 130
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goEditing, goAlwaysShowEditor]
ParentFont = False
TabOrder = 7
end
object Edit2: TEdit
Left = 216
Top = 56
Width = 57
Height = 21
TabOrder = 8
end
object Button5: TButton
Left = 312
Top = 24
Width = 75
Height = 25
Caption = #1048#1090#1086#1075' 3'
TabOrder = 9
OnClick = Button5Click
end
object Button6: TButton
Left = 528
Top = 24
Width = 75
Height = 25
Caption = #1048#1090#1086#1075' 4'
Default = True
TabOrder = 10
end
object Edit3: TEdit
Left = 408
Top = 56
Width = 33
Height = 21
TabOrder = 11
end
object StringGrid3: TStringGrid
Left = 40
Top = 328
Width = 873
Height = 233
Color = clAqua
ColCount = 18
DefaultColWidth = 45
FixedColor = clRed
RowCount = 130
TabOrder = 6
RowHeights = (
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24)
end
end


Вернуться к началу
  
 
 Заголовок сообщения: PAS
СообщениеДобавлено: Сб ноя 03, 2007 3:03 pm 
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton; // ВВОД
StringGrid1: TStringGrid; // Табл.№1
Button3: TButton; // Итог 1
Button2: TButton; // Итог-0
Edit1: TEdit; // резерв
Label1: TLabel; // резерв
Button4: TButton;// Итог 2
StringGrid2: TStringGrid; // Табл.№2
Edit2: TEdit; // ввод номера группы
Button5: TButton; // Итог 3
Label2: TLabel; //Номер группы
Button6: TButton;// резерв
Edit3: TEdit; // резерв
StringGrid3: TStringGrid; // Табл.№3
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button2Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
const
u=120; // максимальное число участников в одной группе
u1=1000;// максимальное число участников спартакиады
{b1=2;}
var
Tick: Cardinal;
q,w,e,r,t,y,i1,o,p,v,k,z,i2,j: word;
b1:WORD; //номер группы
y1,y2,y3,y4,y5,y6: word;
r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12: word;//соответствуют номерам групп
u01,u2,u3,u4,u5,u6,u7,u8,u9,u10, u11,u12: word; //переменные
a: array [1..u1, 1..3] of String[30];//1 общий список фамилий, год и м - д
s: array [1..u1] of String[30];// резерв

d: array [1..4,1..u] of Cardinal;// }
f1: array [1..u] of String[30]; // списки по годам рождения -мальчики
f2: array [1..u] of String[30]; // списки по годам рождения - девочки
f3: array [1..u] of String[30]; // списки по годам рождения -мальчики
f4: array [1..u] of String[30]; // списки по годам рождения - девочки
f5: array [1..u] of String[30]; // списки по годам рождения -мальчики
f6: array [1..u] of String[30]; // списки по годам рождения -девочки
f7: array [1..u] of String[30]; // списки по годам рождения -мальчики
f8: array [1..u] of String[30]; // списки по годам рождения - девочки
f9: array [1..u] of String[30]; // списки по годам рождения - мальчики
f10: array [1..u] of String[30]; // списки по годам рождения - девочки
f11: array [1..u] of String[30]; // списки по годам рождения - мальчики
f12: array [1..u] of String[30]; // списки по годам рождения - девочки

s1: array [1..u,1..24]of Cardinal;//массив результатов и мест
s2: array [1..14]of Cardinal;//массив числа участников по каждой группе
m: array [1..u,1..10]of Cardinal;{массив промежуточный, для
нахождения распеделения мест по результатам соревнований}
m1: array [1..u,1..10]of Cardinal;{массив промежуточный, для
нахождения распеделения мест по результатам соревнований}
s3: array [1..u,1..24]of Cardinal;//массив результатов и мест
s4: array [1..14]of Cardinal;//массив участников по каждой группе
s5: array [1..u,1..100]of Cardinal;//массив результатов и мест по таблице № 3
{s6: array [1..u] of Cardinal;//массив результатов и мест по таблице № 3 }



procedure TForm1.Button1Click(Sender: TObject);
begin
begin
for q:=1 to 17 //нумерация по горизонтали в табл №1 ,
do StringGrid1.Cells[q,0]:=IntToStr(q);
for q:=1 to u1 // нумерация по вертикали в табл №1 ,

do StringGrid1.Cells[0,q]:=IntToStr(q-1);
for q:=1 to 25 //нумерация по горизонтали в табл №2 ,
do StringGrid2.Cells[q,0]:=IntToStr(q);
for q:=1 to u1 // нумерация по вертикали в табл №2 ,
do StringGrid2.Cells[0,q]:=IntToStr(q-1);

for q:=1 to 27 //нумерация по горизонтали в табл №3 ,
do StringGrid3.Cells[q,0]:=IntToStr(q);
for q:=1 to u1 // нумерация по вертикали в табл №3 ,
do StringGrid3.Cells[0,q]:=IntToStr(q-1);
for q:=1 to u1 //условные фамилии, как цифры. Закомментировать
do StringGrid1.Cells[1,q]:=IntToStr(q-1);
//заголовки столбцов Табл.№1
StringGrid1.Cells[1,1]:='Весь список' ;
StringGrid1.Cells[2,1]:='м или д';
StringGrid1.Cells[3,1]:='год рождения ';
StringGrid1.Cells[4,1]:='2000, м №1' ;
StringGrid1.Cells[5,1]:='2000, д №2';
StringGrid1.Cells[6,1]:='1999, м №3';
StringGrid1.Cells[7,1]:='1999, д №4';
StringGrid1.Cells[8,1]:='1998, м №5';
StringGrid1.Cells[9,1]:='1998, д №6';
StringGrid1.Cells[10,1]:='1997,м №7' ;
StringGrid1.Cells[11,1]:='1997, д №8';
StringGrid1.Cells[12,1]:='1996, м №9' ;
StringGrid1.Cells[13,1]:='1996, д №10';
StringGrid1.Cells[14,1]:='1995, м №11' ;
StringGrid1.Cells[15,1]:='1995, д №12';
StringGrid1.Cells[17,1]:='Кол. в гр.';

for q:=2 to StringGrid1.ColCount-1 do //заполнение таблицы услоными знаками
for w:= 2 to StringGrid1.RowCount-2 do
StringGrid1.Cells[q,w]:='---';
for q:=2 to StringGrid2.ColCount-1 do
for w:= 2 to StringGrid2.RowCount-2 do
StringGrid2.Cells[q,w]:='*';
{Заголовки табл №2}
StringGrid2.Cells[1,1]:='Вся группа, №';
StringGrid2.Cells[2,1]:='Прыжки в длину';
StringGrid2.Cells[3,1]:='места ';
StringGrid2.Cells[4,1]:='прыжки в высоту' ;
StringGrid2.Cells[5,1]:='места';
StringGrid2.Cells[6,1]:=',подтягивание' ;
StringGrid2.Cells[7,1]:='места';
StringGrid2.Cells[8,1]:='бег 60' ;
StringGrid2.Cells[9,1]:='места';
StringGrid2.Cells[10,1]:=',бег 1000' ;
StringGrid2.Cells[11,1]:='места';
StringGrid2.Cells[12,1]:='итог';
StringGrid2.Cells[13,1]:='участники' ;
StringGrid2.Cells[14,1]:='места' ;
StringGrid2.Cells[15,1]:='победители' ;
StringGrid2.Cells[16,1]:='очки' ;
StringGrid2.Cells[17,1]:='примеч.' ;

{Заголовки табл №3}
StringGrid3.Cells[1,1]:='Вся группа, №';
StringGrid3.Cells[2,1]:='Прыжки в длину';
StringGrid3.Cells[3,1]:='места ';
StringGrid3.Cells[4,1]:='прыжки в высоту ' ;
StringGrid3.Cells[5,1]:='места';
StringGrid3.Cells[6,1]:=',подтягивание' ;
StringGrid3.Cells[7,1]:='места';
StringGrid3.Cells[8,1]:='бег 60 ' ;
StringGrid3.Cells[9,1]:='места';
StringGrid3.Cells[10,1]:=',бег 1000' ;
StringGrid3.Cells[11,1]:='места';
StringGrid3.Cells[12,1]:='итог';
StringGrid3.Cells[13,1]:='участники' ;
StringGrid3.Cells[14,1]:='места' ;
StringGrid3.Cells[15,1]:='победители' ;
StringGrid3.Cells[16,1]:='очки' ;
StringGrid3.Cells[17,1]:='примеч.' ;

end; end;
/////////////////////////////////////////////////////////////////////////


procedure TForm1.Button3Click(Sender: TObject);
begin
for q:=1 to StringGrid2.ColCount-1 do //заполнение таблицы значками
for w:= 2 to StringGrid2.RowCount-2 do begin
StringGrid2.Cells[q,w]:='*';
StringGrid3.Cells[q,w]:='+';
end;
for i1:=4 to 24 do
for j:=2 to u1 do
StringGrid1.Cells[i1,j]:='***';



for i1:=1 to u do //заполнение массивов нулями
for j:=1 to 24 do begin s1[i1][j]:=0; s3[i1][j]:=0;end;
for i1:=1 to 5 do s2[i1]:=0;
for i1:=1 to u do //заполнение таблицы нулями
for j:=1 to 100 do begin s5[i1][j]:=0; end;

for t:=1 to 12 do s2[t]:=0;

Tick:=GetTickCount;

r1:=1; r2:=1; r3:=1; r4:=1; r5:=1; r6:=1; r7:=1; r8:=1; r9:=1;r10:=1;
r11:=1; r12:=1;
b1:= StrToInt(Edit2.Text);
for w:=1 to u1 do //ввод данных из таблицы: фамилия, пол, год
begin
a[w][1]:= StringGrid1.Cells[1,w+1];//считывание фамилий
a[w][2]:= StringGrid1.Cells[2,w+1]; //мальчики, девочки
a [w,3]:= StringGrid1.Cells[3,w+1];// год рождения
end;

for e:=1 to u1 do //гр.1 //сортировка для первой группы
if (a[e][3]='2000')and (a[e][2]='м')
then
begin f1[r1]:= a[e][1]; //сортировка для первой группы
r1:=r1+1; s2[1]:= s2[1]+1; end;
for t:=1 to u1 do StringGrid1.Cells[4,t+1]:=f1[t];


for e:=1 to u1 do //гр.2
if (a[e][3]='2000')and (a[e][2]= 'д')
then
begin f2[r2]:= a[e][1];
r2:=r2+1; s2[2]:= s2[2]+1; end;
for t:=1 to u1 do StringGrid1.Cells[5,t+1]:=f2[t];


for e:=1 to u1 do //гр.3
if (a[e][3]='1999')and (a[e][2]= 'м')
then
begin f3[r3]:= a[e][1];
r3:=r3+1; s2[3]:= s2[3]+1; end;
for t:=1 to u1 do StringGrid1.Cells[6,t+1]:=f3[t];


for e:=1 to u1 do //гр.4
if (a[e][3]='1999')and (a[e][2]= 'д')
then
begin f4[r4]:= a[e][1];
r4:=r4+1; s2[4]:= s2[4]+1; end;
for t:=1 to u1 do StringGrid1.Cells[7,t+1]:=f4[t];


for e:=1 to u1 do //гр.5
if (a[e][3]='1998')and (a[e][2]= 'м')
then
begin f5[r5]:= a[e][1];
r5:=r5+1; s2[5]:= s2[5]+1; end;
for t:=1 to u1 do StringGrid1.Cells[8,t+1]:=f5[t];


for e:=1 to u1 do //гр.6
if (a[e][3]='1998')and (a[e][2]= 'д')
then
begin f6[r6]:= a[e][1];
r6:=r6+1; s2[6]:= s2[6]+1; end;
for t:=1 to u1 do StringGrid1.Cells[9,t+1]:=f6[t];


for e:=1 to u1 do //гр.7
if (a[e][3]='1997')and (a[e][2]= 'м')
then
begin f7[r7]:= a[e][1];
r7:=r7+1; s2[7]:= s2[7]+1; end;
for t:=1 to u1 do StringGrid1.Cells[10,t+1]:=f7[t];


for e:=1 to 1000 do //гр.8
if (a[e][3]='1997')and (a[e][2]= 'д')
then
begin f8[r8]:= a[e][1];
r8:=r8+1; s2[8]:= s2[8]+1; end;
for t:=1 to u1 do StringGrid1.Cells[11,t+1]:=f8[t];


for e:=1 to u1 do //гр.9
if (a[e][3]='1996')and (a[e][2]= 'м')
then
begin f9[r9]:= a[e][1];
r9:=r9+1;s2[9]:= s2[9]+1; end;

for t:=1 to u1 do StringGrid1.Cells[12,t+1]:=f9[t];


for e:=1 to u1 do //гр.10
if (a[e][3]='1996')and (a[e][2]= 'д')
then
begin f10[r10]:= a[e][1];
r10:=r10+1; s2[10]:= s2[10]+1; end;
for t:=1 to u1 do StringGrid1.Cells[13,t+1]:=f10[t];


for e:=1 to u1 do //гр.11
if (a[e][3]='1995')and (a[e][2]= 'м')
then
begin f11[r11]:= a[e][1];
r11:=r11+1; s2[11]:= s2[11]+1; end;
for t:=1 to u1 do StringGrid1.Cells[14,t+1]:=f11[t];

for e:=1 to u1 do //гр.12
if (a[e][3]='1995')and (a[e][2]= 'д')
then
begin f12[r12]:= a[e][1]; //
r12:=r12+1; s2[12]:= s2[12]+1; end;
for t:=1 to u1 do StringGrid1.Cells[15,t+1]:=f12[t];

{Ниже. Число участников по группам 1-12}
for t:=1 to 12 do StringGrid1.Cells[17,t+1]:=IntToStr( s2[t]);


Form1.Caption:=IntToStr(GetTickCount-Tick);
end;
////////////////////////////////////////////////////////////////////////
procedure TForm1.Button4Click(Sender: TObject);
{Порядковые номера строк и столбцов}
begin
b1:= StrToInt(Edit2.Text);//ввод номера группы, для которой проводятся расчёты


begin
for i1:=1 to 5 do //Обнуление
for q:=1 to s2[b1] do
begin
s1[q][i1*2]:=0;
s3[q][i1*2]:=0;
end;

for q:=1 to 24
do StringGrid2.Cells[q,0]:=IntToStr(q);
for q:=1 to u
do StringGrid2.Cells[0,q]:=IntToStr(q-1);

begin

{Ввод данных в таблицу №1 об участниках групп №1-12}
case b1 of
1:for q:=1 to s2[b1] do StringGrid2.Cells[1,q+1]:=f1[q];
2:for q:=1 to s2[b1] do StringGrid2.Cells[1,q+1]:=f2[q];
3: for q:=1 to s2[b1] do StringGrid2.Cells[1,q+1]:=f3[q];
4: for q:=1 to s2[b1] do StringGrid2.Cells[1,q+1]:=f4[q];
5: for q:=1 to s2[b1] do StringGrid2.Cells[1,q+1]:=f5[q];
6: for q:=1 to s2[b1] do StringGrid2.Cells[1,q+1]:=f6[q];
7:for q:=1 to s2[b1] do StringGrid2.Cells[1,q+1]:=f7[q];
8: for q:=1 to s2[b1] do StringGrid2.Cells[1,q+1]:=f8[q];
9: for q:=1 to s2[b1] do StringGrid2.Cells[1,q+1]:=f9[q];
10: for q:=1 to s2[b1] do StringGrid2.Cells[1,q+1]:=f10[q];
11: for q:=1 to s2[b1] do StringGrid2.Cells[1,q+1]:=f11[q];
12: for q:=1 to s2[b1] do StringGrid2.Cells[1,q+1]:=f12[q];

end;
end;
end; end;

/////////////////////////////////////////////////////////////////////////


procedure TForm1.Button5Click(Sender: TObject);

begin

begin
for q:=1 to u1 // нумерация по вертикали в табл №2, столбец №17
do StringGrid2.Cells[17,q]:=IntToStr(q-1);

for q:=1 to u1 // нумерация по вертикали в табл №3, столбец №17
do StringGrid3.Cells[17,q]:=IntToStr(q-1);


for i1:=1 to 5 do //Ввод результатов по видам спорта
for q:=1 to s2[b1] do begin
s1[q][i1*2]:=StrToInt( StringGrid2.Cells[i1*2,q+1] );
StringGrid3.Cells[i1*2,q+1] := IntToStr( s1[q][i1*2]) ;
StringGrid3.Cells[1,q+1] := StringGrid2.Cells[1,q+1];
end;
// заполняется промежуточный массив

for i1:=1 to 5 do
begin
for q:=1 to s2[b1] do
begin
if (i1 =1) or (i1 =2)or(i1 =3) //виды спорта, победители с максимальным результатом
then
m[q][1]:= s1[q][i1*2];
if (i1=4) or (i1=5)//виды спорта, победители с минимальным результатом
// используется процедура для поиска максимального результат , но
//делается вычет и находится минимальный элемент
then m[q][1]:= 10000- s1[q][i1*2];
m[q][2]:= 0;
m[q][3]:= 0;
m[q][4]:= 0;
end;
//блок для присвоения порядка мест
for k:=1 to s2[b1] do begin
begin for z:=1 to s2[b1] do m[z][4]:=0 end;
t:=0 ; if t=1 then continue;
for i2:=1 to s2[b1] do begin
begin begin if t=1 then break; end;
for j:=1 to s2[b1] do begin
if ((m[i2][2]=0) and (m[j][2]=0)
and (m[i2][1]< m[j][1])) then m[i2][4]:=1; end;
if ((m[i2][4]=0) and (m[i2][2]=0)) then begin m[i2][2]:=k;
m[i2][3]:=k; StringGrid2.Cells[2*i1+1,i2+1]:= IntToStr (m[i2][3]);
t:=1; s1[i2][i1*2+1]:=m[i2][3];


end; end; end; end; end; end;
for y:=1 to s2[b1] do
for r:=1 to 5 do
s1[y][12]:= s1[y][12] +s1[y][2*r+1];
for y:=1 to s2[b1] do
StringGrid2.Cells[12,y+1]:= IntToStr (s1[y][12]);

//определение победителей спортакиады

begin
for q:=1 to s2[b1] do
begin

m[q][1]:= 10000-s1[q][12];
m[q][2]:= 0;
m[q][3]:= 0;
m[q][4]:= 0;
end;
begin
for k:=1 to s2[b1] do begin
begin for z:=1 to s2[b1] do m[z][4]:=0 end;
t:=0 ; if t=1 then continue;
for i2:=1 to s2[b1] do begin
begin begin if t=1 then break; end;
for j:=1 to s2[b1] do begin
if ((m[i2][2]=0) and (m[j][2]=0)
and (m[i2][1]< m[j][1])) then m[i2][4]:=1; end;
if ((m[i2][4]=0) and (m[i2][2]=0)) then begin m[i2][2]:=k;
m[i2][3]:=k; StringGrid2.Cells[14,i2+1]:= IntToStr (m[i2][3]);
t:=1; s1[i2][14]:=m[i2][3];
StringGrid2.Cells[13,i2+1]:= StringGrid2.Cells[1,i2+1];

end; end; end; end; end;

end;

for i1:=1 to s2[b1] do
for j:=1 to s2[b1] do
if s1[j][14]=i1 then begin
StringGrid2. Cells[15,i1+1]:= StringGrid2.Cells[1,j+1];
StringGrid2.Cells[16,i1+1]:= StringGrid2.Cells[12,j+1];
end;
end;


///////////////////////////////////////////////// //////////////////////////
//Расчёт мест со средним арифметических для одинаковых результатов
procedure TForm1.Button2Click(Sender: TObject);
begin
begin
begin
for y1:=1 to u do begin //вводится массив s3
for j:=1 to 24
do s3[y1][j]:= s1[y1][j]; end; end;
begin

for i1:=1 to 5 do // Присвоение мест
begin
for q:=1 to s2[b1] do
begin
m1[q][1]:= s3[q][i1*2]; //Результаты участников
m1[q][2]:= s3[q][i1*2+1]; //Места участников
m1[q][3]:= 0; //метка
m1[q][4]:= 0;//первый неотмеченный учатстник
m1[q][5]:= 0; // счёт числа участников с одинаковым результатом
m1[q][6]:= 0; //сумма призовых мест
m1[q][7]:= 0; //сумма призовых мест
end;

begin
for r:=1 to s2[b1] do begin
for t:=r to s2[b1] do
if (m1[r][1]= m1[t][1]) and (m1[t][3]=0)
then begin m1[t][3]:=r;
s5[t][i1]:= r ;
s5[r][i1+5]:= s5[r][i1+5] + 1;
s5[r][i1+10]:=s5[r][i1+10] + m1[t][2];
end;
//определение среднего арифметического при равенстве результатов
if (s5[r][i1+10]>0) and (s5[r][i1+5]>0) then
s5[r][i1+15]:= (s5[r][i1+10]*1000) div s5[r][i1+5];
end;

end; end;


for u2:=16 to 20 do
for u3:=1 to s2[b1] do begin
if s5[u3][u2]>0 then
for u5:=1 to s2[b1] do
if s5[u5][u2-15]=s5[u3][u2-15]
then s5[u5][u2+5]:=s5[u3][u2]
end; end;
for u7:=1 to s2[b1] do
for u8:=21 to 25 do
s5[u7][26]:= s5[u7][26]+s5[u7][u8];

begin
for y1:=1 to s2[b1] do
for u8:= 1 to 5 do
StringGrid3.Cells[2*u8+1,y1+1]:= IntToStr( s5[y1][u8+20]);

for y1:=1 to s2[b1] do
StringGrid3.Cells[12,y1+1]:= IntToStr( s5[y1][26]);
for y1:=1 to s2[b1] do
StringGrid3.Cells[13,y1+1]:=StringGrid3.Cells[1,y1+1];
end;
end;
{определение победителей спартакиады с учётом равных спортивных результатов -
дубль определения победителей спартакиады без учёта
равных спортивных результатов }

begin
for q:=1 to s2[b1] do
begin
m[q][1]:= 2000000-s5[q][26];
m[q][2]:= 0;
m[q][3]:= 0;
m[q][4]:= 0;
end;
begin
for k:=1 to s2[b1] do begin
begin for z:=1 to s2[b1] do m[z][4]:=0 end;
t:=0 ; if t=1 then continue;
for i2:=1 to s2[b1] do begin
begin begin if t=1 then break; end;
for j:=1 to s2[b1] do begin
if ((m[i2][2]=0) and (m[j][2]=0)
and (m[i2][1]< m[j][1])) then m[i2][4]:=1; end;
if ((m[i2][4]=0) and (m[i2][2]=0)) then begin m[i2][2]:=k;
m[i2][3]:=k; StringGrid3.Cells[14,i2+1]:= IntToStr (m[i2][3]);
t:=1; s5[i2][27]:=m[i2][3];
StringGrid3.Cells[13,i2+1]:= StringGrid3.Cells[1,i2+1];

end; end; end; end; end;

end;

for i1:=1 to s2[b1] do
for j:=1 to s2[b1] do

if s5[j][27]=i1 then begin
StringGrid3. Cells[15,i1+1]:= StringGrid3.Cells[1,j+1];
StringGrid3.Cells[16,i1+1]:= StringGrid3.Cells[12,j+1];

for q:=1 to 21
do StringGrid3.Cells[q,0]:=IntToStr(q);
for q:=1 to u
do begin
StringGrid3.Cells[0,q]:=IntToStr(q-1);
StringGrid3.Cells[21,q]:=IntToStr(q-1);
end;



end;
Form1.Caption:=IntToStr(GetTickCount-Tick);


end;


end.


Вернуться к началу
  
 
 Заголовок сообщения: Выше знамя советского спорта!
СообщениеДобавлено: Вс ноя 04, 2007 1:41 pm 
Для обсуждения!
Стоит ли провести заочную спартакиаду среди участников Форума? Дабы не раскрывать суть ников, дать коэффициенты пересчёта по возрасту, полу, инвалидности, политическим установкам: зюгановцы, неотроцкисты.
Каждый сам пересчитает свои результаты.


Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: Вс ноя 04, 2007 1:45 pm 
Не в сети
Участник
Аватара пользователя

Зарегистрирован: Пн ноя 21, 2005 10:11 am
Сообщения: 4684
Откуда: Башкирия
Смысла нет, т.к. здесь большинство "неотроцкисты". :wink:


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Штанга
СообщениеДобавлено: Сб янв 12, 2008 10:53 am 
Отрадный пример занятия спортом


http://www.fontanka.ru/2008/01/11/025/

Миллионеры рвут жилы... железом
11/01/2008 12:16
……………………………


Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: Сб янв 12, 2008 1:15 pm 
Не в сети
Участник

Зарегистрирован: Пт ноя 09, 2007 9:35 pm
Сообщения: 225
[


Последний раз редактировалось Гераклит Вт дек 20, 2016 11:06 am, всего редактировалось 1 раз.

Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Сб янв 12, 2008 1:39 pm 
Не в сети
Участник
Аватара пользователя

Зарегистрирован: Пн ноя 21, 2005 10:11 am
Сообщения: 4684
Откуда: Башкирия
Демократ? Но я тоже демократ! Вы за какую демократию: рабочую или буржуазную?


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Сб янв 12, 2008 4:26 pm 
Не в сети
Участник
Аватара пользователя

Зарегистрирован: Пн май 21, 2007 5:01 am
Сообщения: 391
Откуда: Кемерово (Сибирский ФО)
Гераклит писал(а):
Есть ещё демократ(я)

Два демократа. :D

_________________
Коммунистическая партия - арьергард прогрессивного человечества.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Сб янв 12, 2008 6:55 pm 
Не в сети
Участник
Аватара пользователя

Зарегистрирован: Пн ноя 21, 2005 10:11 am
Сообщения: 4684
Откуда: Башкирия
И Stafford-boy. :wink:


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Сб янв 12, 2008 11:04 pm 
Не в сети
Сторонник социализма
Аватара пользователя

Зарегистрирован: Вс авг 20, 2006 12:51 pm
Сообщения: 2423
Откуда: Москва
Яров писал(а):
Дабы не раскрывать суть ников, дать коэффициенты пересчёта по возрасту, полу, инвалидности, политическим установкам: зюгановцы, неотроцкисты.
Каждый сам пересчитает свои результаты.

Я свои уже посчитал: получилось примерно 17,356(72), погрешность не превышает 3,65%.
Только сегодня прочёл ваши посты, открывающие данную тему - впечатляет, особенно следующее место:
Цитата:
24
24
24
24
24
24
24
24
24
24
27
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
55
26
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24

...и далее по тексту. 8)


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вс янв 13, 2008 9:23 am 
Не в сети
Участник
Аватара пользователя

Зарегистрирован: Пн май 21, 2007 5:01 am
Сообщения: 391
Откуда: Кемерово (Сибирский ФО)
Red_Rus писал(а):
Вы за какую демократию: рабочую или буржуазную?

Это социализмов множество: русский, национал-, развитой, "с человеческим лицом", исламский; а демократия, либо она есть, либо имеем подделки, типа "суверенной", "рабочей"...

_________________
Коммунистическая партия - арьергард прогрессивного человечества.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вс янв 13, 2008 11:29 am 
Stafford писал(а):
Red_Rus писал(а):
Вы за какую демократию: рабочую или буржуазную?

Это социализмов множество: русский, национал-, развитой, "с человеческим лицом", исламский; а демократия, либо она есть, либо имеем подделки, типа "суверенной", "рабочей"...



А расстрел парламента, это третий вид демократии?


Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: Вс янв 13, 2008 12:11 pm 
Не в сети
Участник
Аватара пользователя

Зарегистрирован: Пн ноя 21, 2005 10:11 am
Сообщения: 4684
Откуда: Башкирия
Stafford писал(а):
Это социализмов множество: русский, национал-, развитой, "с человеческим лицом", исламский; а демократия, либо она есть, либо имеем подделки, типа "суверенной", "рабочей"...



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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Прошлое советское
СообщениеДобавлено: Сб фев 09, 2008 1:04 am 
Для любителей истории. Положение по Спартакиаде образца 1973 года

П Р И К А 3
по ……….
№ от ……… 1973г.

В целях дальнейшего развития физической культуры и спорта и сдачи норм комплекса ГТО в ……
ПРИКАЗЫВАЮ:
Утвердить положение о проведении Летней Спартакиады.
Провести Летнюю Спартакиаду с …. мая по ….. октября
1973 года.
3.Для подготовки и проведения Спартакиады создать Оргкомитет в составе:
……………..председатель Оргкомитета;
…………… зам. председателя Оргкомитета, инструктор физкультуры;
…………….председатель комиссии ГТО;
председатель совета физкультуры
……………

"УТВЕРДЖАЮ"
председатель МК
" мая 1973 года

Утверждено
на заседании совета физкультуры

ПОЛОЖЕНИЕ
о проведении ….-ой летней Спартакиады коллектива физкультуры

I. Цели и задачи.
Летняя Спартакиада в коллективе физкультуры проводится в целях:
массового привлечения сотрудников ……
- к сдаче нового комплекса ГТО;
повышения уровня спортивных результатов по видам спорта,
- выявления сильнейших коллективов …..;
- улучшения спортивной, массовой работы в коллективах ……….;
- подготовки сотрудников для участия в соревнованиях
на первенство ДСО ….;
- пропаганды физической культуры и спорта, как важнейшего
средства укрепления здоровья, подготовки сотрудников
- к высокопроизводительному труду и защите Родины.

П. Условия и сроки проведения.
Спартакиада проводится с ….мая по …..октября.1973 года.
Спартакиада проводится в два этапа:

I этап - сдача нового комплекса ГТО,
II этап - соревнования по видам спорта.

III Руководство проведением Спартакиады.

Общее руководство подготовкой и проведением Спартакиады осуществляется:
- председатель оргкомитета –
- зам. председателя оргкомитета, инструктор физкультуры
Члены оргкомитета:
1. - председатель комиссии ГТО.
2. - председатель совета физкультуры
туры
………..

IV Программа соревнований:
1. Лёгкая атлетика.
2. Народная гребля.
3. Рыбная ловля.
4. Плаванье.
5. Стрельба.
6. Волейбол.
7. Бадминтон.

V. Участники спартакиады
К участию в соревнованиях допускаются все сотрудники ……
Сборные команды:
- ……….

V1. Порядок определения общекомандного первенства.
Итоги общекомандного первенства определяются по наибольшей сумме очков по видам спорта:
1 м - 6 --- очков,
2 м - 4 --- очков,
3 м - 3 ---очков,
4 м - 2 --- очков,
5 м - 1 --- очко.

VII. Награждение победителей соревнований .
- Сборная команда, занявшая I-е, место награждается переходящим кубком и дипломом I степени.
- Сборная команда, занявшая II-е, место награждается вымпелом.
- Сборная команда, занявшая III место, награждается дипломом III-ей степени.
- Участники соревнований по отдельным видам спорта, занявшие I, II и III места, награждаются призами и грамотой.

VIII. Положение по видам спорта.
I. Легкая атлетика.
I. Бег 100 м - зачет 10 чел.
2. Бег 400 м - зачет 6 человек.
3. Прыжки в длину - зачет по 8 чел.
4. Прыжки в высоту - зачёт по 8 чел.
5. Толкание ядра - 8 чел.
6. Граната - 8 чел.
7. Эстафета: женск. – 3х100 м,
мужск. - 4x1000 м.

2. Народная гребля.
Дистанция: женщины - 500 м,
мужчины - 1000 м.
Зачет - 15 чел.

3. Рыбная ловля.
Команда по - 4 чел.

4.Плавание.
Дистанции: 100 м - мужчины
100 м - женщины
Зачет по 10 лучшим результатам (независимо от пола).

5. Стрельба.
Команды: мужчины - 10 человек,
женщины - 2 человека.

6. Волейбол.
Одна команда от …..

7. Бадминтон. Личное первенство.

Зачёт.
Определение командных мест по наибольшей сумме очков зачётных участников. Подсчёт очков производится по таблице. При равенстве очков у 2-х и более команд победитель определяется по лучшему личному результату участников.

Заявки.
Заявки на участие в соревнованиях по каждому виду спорта подаются в оргкомитет за 5 дней до соревнования.

ОРГКОМИТЕТ


Вернуться к началу
  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 45 ]  На страницу 1, 2, 3  След.

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Rambler's Top100