function IntToMonth(NumberMonth: Integer): string;
begin
сase NumberMonth of
1: Result := 'Январь';
2: Result := 'Февраль';
3: Result := 'Март';
4: Result := 'Апрель';
5: Result := 'Май';
6: Result := 'Июнь';
7: Result := 'Июль';
8: Result := 'Август';
9: Result := 'Сентябрь';
10: Result := 'Октябрь';
11: Result := 'Ноябрь';
12: Result := 'Декабрь';
else
Result := 'Август';
end;
end;
uses
SysUtils;
type
Деньга = record
Достоинство:integer;
Количество:integer;
end;
var
Лопатник: array of Деньга;
procedure ПоложитьНаЛопату(Купюра:Integer);
var
I: Integer;
УжеПоложили:Boolean;
begin
if Купюра=0 then
Exit;
УжеПоложили:=False;
for I := low(Лопатник) to High(Лопатник) do
if Лопатник[i].Достоинство=Купюра then
begin
inc(Лопатник[i].Количество);
УжеПоложили:=True;
end;
if not(УжеПоложили) then
begin
SetLength(Лопатник,Length(Лопатник)+1);
Лопатник[High(Лопатник)].Достоинство:=Купюра;
Лопатник[High(Лопатник)].Количество:=1;
end;
end;
var
Купюра:integer;
i:integer;
ВсегоНаЛопате:integer;
begin
repeat
Readln(Купюра);
ПоложитьНаЛопату(Купюра);
until Купюра=0;
ВсегоНаЛопате:=0;
for I := low(Лопатник) to High(Лопатник) do
begin
WriteLn(Format('Cost = %d Count - %d',[Лопатник[i].Достоинство,Лопатник[i].Количество]));
inc(ВсегоНаЛопате,Лопатник[i].Достоинство*Лопатник[i].Количество);
end;
WriteLn(Format('All money - %d',[ВсегоНаЛопате]));
ReadLn;
end.
if o is TSpellChecker then
begin
TSpellChecker(o).FinishMessage := ml(TSpellChecker(o).FinishMessage, form.Name);
TSpellChecker(o).caption := ml(TSpellChecker(o).caption, form.Name);
end else
if o is Tform then
begin
TMenuItem(o).Caption := ml(TMenuItem(o).Caption, form.Name);
TMenuItem(o).Hint := ml(TMenuItem(o).Hint, form.Name);
end else
if o is TComboBox then
begin
//TComboBox(o).Caption:=ml(TMenuItem(o).Caption,form.Name);
TComboBox(o).Hint := ml(TComboBox(o).Hint, form.Name);
end else
if o is TMenuItem then
begin
TMenuItem(o).Caption := ml(TMenuItem(o).Caption, form.Name);
TMenuItem(o).Hint := ml(TMenuItem(o).Hint, form.Name);
end else
if (o is TTBXButton) then
begin
TTBXButton(o).Caption := ml(TTBXButton(o).Caption, form.Name);
TTBXButton(o).Hint := ml(TTBXButton(o).Hint, form.Name);
end else
if (o is TTBXLink) then
begin
TTBXLink(o).Caption := ml(TTBXLink(o).Caption, form.Name);
TTBXLink(o).Hint := ml(TTBXLink(o).Hint, form.Name);
end else
if (o is TRzGroup) then
begin
TRzGroupBox(o).Caption := ml(TRzGroup(o).Caption, form.Name);
TRzGroupBox(o).Hint := ml(TRzGroup(o).Hint, form.Name);
end else
if (o is TRzPanel) then
begin
TRzGroupBox(o).Caption := ml(TRzPanel(o).Caption, form.Name);
TRzGroupBox(o).Hint := ml(TRzPanel(o).Hint, form.Name);
end else
if (o is TRzButton) then
begin
TRzButton(o).Caption := ml(TRzButton(o).Caption, form.Name);
TRzButton(o).Hint := ml(TRzButton(o).Hint, form.Name);
end else
if (o is TRzTabControl) then
begin
TRzTabControl(o).Hint := ml(TRzTabControl(o).Hint, form.Name);
for k := 0 to TRzTabControl(o).Tabs.Count - 1 do
begin
TRzTabControl(o).Tabs.Items[k].Caption := ml(TRzTabControl(o).Tabs.Items[k].Caption, form.Name);
TRzTabControl(o).Tabs.Items[k].Hint := ml(TRzTabControl(o).Tabs.Items[k].Hint, form.Name);
end;
end else
if (o is TRzTabSheet) then
begin
TRzTabSheet(o).Caption := ml(TRzTabSheet(o).Caption, form.Name);
end else
if (o is TRzGroupBox) then
begin
TRzGroupBox(o).Caption := ml(TRzGroupBox(o).Caption, form.Name);
TRzGroupBox(o).Hint := ml(TRzGroupBox(o).Hint, form.Name);
end else
if (o is TRzGroupItems) then
begin
TRzGroupBox(o).Caption := ml(TRzGroupBox(o).Caption, form.Name);
TRzGroupBox(o).Hint := ml(TRzGroupBox(o).Hint, form.Name);
end else
if (o is TToolButton) then
begin
TToolButton(o).Caption := ml(TToolButton(o).Caption, form.Name);
TToolButton(o).Hint := ml(TToolButton(o).Hint, form.Name);
end else
if o is TButton then
begin
TButton(o).Caption := ml(TButton(o).Caption, form.Name);
TButton(o).Hint := ml(TButton(o).Hint, form.Name);
end else
if o is TBitBtn then
begin
TBitBtn(o).Caption := ml(TBitBtn(o).Caption, form.Name);
TBitBtn(o).Hint := ml(TBitBtn(o).Hint, form.Name);
end else
if o is TSpeedButton then
begin
TSpeedButton(o).Caption := ml(TSpeedButton(o).Caption, form.Name);
TSpeedButton(o).Hint := ml(TSpeedButton(o).Hint, form.Name);
end else
if o is TRzToolButton then
begin
TRzToolButton(o).Caption := ml(TRzToolButton(o).Caption, form.Name);
TRzToolButton(o).Hint := ml(TRzToolButton(o).Hint, form.Name);
end else
if o is TRadioButton then
begin
TRadioButton(o).Caption := ml(TRadioButton(o).Caption, form.Name);
TRadioButton(o).Hint := ml(TRadioButton(o).Hint, form.Name);
end else
Я знаю, что ничего не знаю, но многие не знают и этого
{nemnogo pritiormozim nas processor}
for rre:=1 to 3 do begin
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
for rt:=1 to 10000 do rr:=random(rt)*rt;
end;
{vse teper prodolzaem pisat progu}
Я знаю, что ничего не знаю, но многие не знают и этого
Перейти на форум:
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.