http://falipe.ru/ref/14943

procedure TForm1.N10Click(Sender: TObject);
var
f:textfile;
g,i,x,a,q,w,p,j,u:integer;
s:string;
begin
assignfile(f,'c:\qwerty\qwerty2.txt');
reset(f);
readln(f,s);
sg1.colCount:=strtoint(s);
readln(f,s);
sg1.rowcount:=strtoint(s);
while not eof(f) do
for g:=0 to sg1.ColCount-1 do
for i:=0 to sg1.RowCount-1 do
begin
readln(f,s);
sg1.Cells[g,i]:= s;
end;
a:=0;
q:=0;
w:=0;
p:=0;
j:=sg1.ColCount-1;
for u:=1 to sg1.RowCount-1 do
begin
if sg1.Cells[j,u]<>'' then
x:=strtoint(sg1.cells[j,u]);
if x=5 then a:=a+1;
if x=4 then q:=q+1;
if x=3 then w:=w+1;
if x=2 then p:=p+1;
end;
l1.caption:=l1.Caption+
'îòë: '+inttostr(a)+chr(10)+
'õîð: '+inttostr(q)+chr(10)+
'óäîâë: '+inttostr(w)+chr(10)+
'íåóä: '+inttostr(p);
end;

procedure TForm1.N9Click(Sender: TObject);
var
f:textfile;
r,i:integer;
s:string;
begin
assignfile(f,'c:\qwerty\qwerty2.txt');
reset(f);
readln(f,s);
sg1.colCount:=strtoint(s);
readln(f,s);
sg1.rowcount:=strtoint(s);
while not eof(f) do
for r:=0 to sg1.ColCount-1 do
for i:=0 to sg1.RowCount-1 do
begin
readln(f,s);
sg1.Cells[r,i]:= s;
end;
end;

rewrite(f);
s:=inttostr(sg1.colcount);
writeln(f,s);
s:=inttostr(sg1.RowCount);
writeln(f,s);
for c:=0 to sg1.ColCount-1 do
for r:=0 to sg1.RowCount-1 do
begin
s:=sg1.Cells[c,r];
writeln (f,s);
end;
closefile(f);

procedure TForm1.N8Click(Sender: TObject);
var
f:textfile;
j,r,x,z,a,i,c:integer;
s:string;
begin
assignfile(f,'c:\qwerty\qwerty2.txt');
reset(f);
readln(f,s);
sg1.colCount:=strtoint(s);
readln(f,s);
sg1.rowcount:=strtoint(s);
while not eof(f) do
for r:=0 to sg1.ColCount-1 do
for i:=0 to sg1.RowCount-1 do
begin
readln(f,s);
sg1.Cells[r,i]:= s;
end;
sg1.ColCount:=sg1.ColCount+1;
j:=sg1.colcount-1;
sg1.Cells[j,0]:='Èòîã';
z:=0;
a:=0;
for i:=1 to sg1.rowCount-1 do
begin
for r:=2 to sg1.ColCount-2 do
begin
if (sg1.Cells[r,i]<>'í')and (sg1.Cells[r,i]<>' ')and(sg1.Cells[r,i]<>'') then
begin
x:=strtoint(sg1.cells[r,i]);
z:=z+x;
a:=a+1;
end;
end;
if a<>0 then
sg1.Cells[r,i]:=inttostr(z div a);
z:=0;
a:=0;
end;
closefile(f);
rewrite(f);
s:=inttostr(sg1.colcount);
writeln(f,s);
s:=inttos ... Читать дальше »

procedure TForm1.N7Click(Sender: TObject);
var
f:textfile;
j,r,x,z,a,i:integer;
s:string;
begin
assignfile(f,'c:\qwerty\qwerty2.txt');
reset(f);
readln(f,s);
sg1.colCount:=strtoint(s);
readln(f,s);
sg1.rowcount:=strtoint(s);
while not eof(f) do
for r:=0 to sg1.ColCount-1 do
for i:=0 to sg1.RowCount-1 do
begin
readln(f,s);
sg1.Cells[r,i]:= s;
end;
sg1.ColCount:=sg1.ColCount+1;
j:=sg1.colcount-1;
sg1.Cells[j,0]:='Èòîã';
z:=0;
a:=0;
for i:=1 to sg1.rowCount-1 do
begin
for r:=2 to sg1.ColCount-2 do
begin
if (sg1.Cells[r,i]<>'í')and (sg1.Cells[r,i]<>' ')and(sg1.Cells[r,i]<>'') then
begin
x:=strtoint(sg1.cells[r,i]);
z:=z+x;
a:=a+1;
end;
end;
sg1.Cells[r,i]:=inttostr(z div a);
z:=0;
a:=0;
end;
end;

 

Первое официальное видео к Transformers the Movie, который должен выйти в 2007 году, доступно онлайн.

Источник: Animenation

пополнилась колекция Skinов для винампа!!!скачивать здесь

Японская фирма по производству канцтоваров Solid Theatre объявила о начале разработки нового набора различных предметов, которые должны были произвести революцию на рынке. Они назвали новую линию товаров незамысловато - "Play☆Stationary". Прикольные анимешные штучки сопровождала неслабая рекламная кампания, в частности, благодаря которой эффект узнаваемости и желание заиметь такую игрушечку себе колоссально возрасли....

В конце октября японская ветка известного портала Амазон начала принимать предзаказы на эти вещи по цене примерно 2000 йен за штуку. А 12 декабря состоялся выпуск промо-CD для "Play☆Stationary", звуковую дорожку к которому можно послушать в режиме онлайн. Для озвучки персонажей Solid Theatre удалось заполучить высокопрофессиональных сейю: Сакибара Юи (Хисако из Otome wa O ... Читать дальше »