Тэги темы: буйный бусидо

Показать скрытый текст

никто не проходит блеать

всех ненавижу (с) мапед

братюни зацените трек в подписи от души

ни одной цифры

-Цитата от Magaveli Busido

на третем баттле мс хаммер нервно покурит

я не курю

номер23 ты всех задерживаешь

-Цитата от Vogel

номер23 ты всех задерживаешь

при том что ты всё равно не пройдёшь

Показать скрытый текст

потому что твой соперник сдал бомбу

Показать скрытый текст

я видел

-Цитата от Vogel

номер23 ты всех задерживаешь

сроки чмоки давно уже настали.
кто не успел, тот проегарльчик.
давай некст ровунд.

через 2 часа будут оценки если я не усну

-Цитата от ХАМmer

-Цитата от Magaveli Busido

на третем баттле мс хаммер нервно покурит

я не курю

в жопу себе засунь морковку и прокрути теперь

http://www.youtube.com/watch?v=otCpCn0l4Wo

ЗАДАНИЕ НА СЛЕДУЮЩИЙ РАВОНД

проходят все кто зарегистрирован на форуме
а теперь само задание:
вам дан номер моего яндекс-кошелька 41001584969843, вы должны положить на него денег. выигрывает тот кто положит больше всех при переводе обязательно подписывайте свой никнейм дабы избежать неприятных ситуаций

-Цитата от Новогодний битодел

ЗАДАНИЕ НА СЛЕДУЮЩИЙ РАВОНД

проходят все кто зарегистрирован на форуме
а теперь само задание:
вам дан номер моего яндекс-кошелька 41001584969843, вы должны положить на него денег. выигрывает тот кто положит больше всех при переводе обязательно подписывайте свой никнейм дабы избежать неприятных ситуаций

а вот этого я жду уже пятый час

риспект городам
риспект синагогам
риспект алисе альбе
ЙОу йоу йоу






uses CRT;

CONST
MAXIM = 20;

TYPE
matrix_2 = array[1..MAXIM, 1..MAXIM] of real;

VAR
M,N : integer;
A,B : matrix_2;

Procedure Read_Matrix;
Var
i,j : integer;
Begin
M:=0;
Writeln;
while (M<=0) or (M>MAXIM) do begin
Write(' (M): ');
Readln(M);
if (M<=0) or (M>MAXIM) then Writeln('M должно быть больше 0 и меньше ',MAXIM,' !');
end;

N:=0;
while (N<=0) or (N>MAXIM) do begin
Write('Ведите число столбцов исходной матрицы (N): ');
Readln(N);
if (N<=0) or (N>MAXIM) then Writeln('N д ',MAXIM,' !');
end;

Writeln;
Writeln('Ввод исходной матрицы (А):');
for i:=1 to M do begin
for j:=1 to N do begin
Write(' (',i,',',j,'): ');
Readln(A[i,j]);
end;
end;
End;

Procedure Write_Matrix(N,M: integer);
Var
i,j : integer;
Begin
for i:=1 to M do begin
for j:=1 to N do Write(' ',A[i,j]:0:3);
Writeln;
end;
End;

Procedure Process_Matrix;
Var
i,j,k : integer;
max_str : integer;
min_str : integer;
max_str_sum : real;
min_str_sum : real;
sum : real;

Begin
{}
sum:=0;
for j:=1 to N do sum:=sum+A[1,j];
max_str_sum:=sum;
max_str:=1;
min_str_sum:=sum;
min_str:=1;

for i:=1 to M do begin
sum:=0;
for j:=1 to N do sum:=sum+A[i,j];
if sum>max_str_sum then begin
max_str_sum:=sum;
max_str:=i;
end;
if sum<min_str_sum then begin
min_str_sum:=sum;
min_str:=i;
end;
end;
Writeln;
Writeln('е ',max_str);
Writeln(' ',min_str);

if (max_str<>min_str) then begin
{}
for j:=1 to N do B[1,j]:=A[max_str,j];
k:=1;
for i:=1 to M do begin
if (i<>max_str) and (i<>min_str) then begin
k:=k+1;
for j:=1 to N do B[k,j]:=A[i,j];
end;
end;
for j:=1 to N do B[M,j]:=A[min_str,j];

{A:=B}
for i:=1 to M do begin
for j:=1 to N do A[i,j]:=B[i,j];
end;
end else begin

BEGIN
ClrScr;
;

Read_Matrix;

Writeln;
Writeln('Исходная матрица (А):');
Write_Matrix(N,M);

Process_Matrix;

Writeln;
Writeln('Обработанная матрица (А):');
Write_Matrix(N,M);

Writeln;
Writeln('Нажмите <Enter> для выхода.');
Readln;



/THE END/

наконец то, вечером будут оценки

-Цитата от Magaveli Busido

-Цитата от ХАМmer

-Цитата от Magaveli Busido

на третем баттле мс хаммер нервно покурит

я не курю

в жопу себе засунь морковку и прокрути теперь

http://www.youtube.com/watch?v=otCpCn0l4Wo

ты забыл написать что тебя засудили!!!!!))))

-Цитата от ХАМmer

-Цитата от Magaveli Busido

-Цитата от ХАМmer

я не курю

в жопу себе засунь морковку и прокрути теперь

http://www.youtube.com/watch?v=otCpCn0l4Wo

ты забыл написать что тебя засудили!!!!!))))

меня не засудили а автоматически в финал отправили

-Цитата от Номер23

риспект городам
риспект синагогам
риспект алисе альбе
ЙОу йоу йоу






uses CRT;

CONST
MAXIM = 20;

TYPE
matrix_2 = array[1..MAXIM, 1..MAXIM] of real;

VAR
M,N : integer;
A,B : matrix_2;

Procedure Read_Matrix;
Var
i,j : integer;
Begin
M:=0;
Writeln;
while (M<=0) or (M>MAXIM) do begin
Write(' (M): ');
Readln(M);
if (M<=0) or (M>MAXIM) then Writeln('M должно быть больше 0 и меньше ',MAXIM,' !');
end;

N:=0;
while (N<=0) or (N>MAXIM) do begin
Write('Ведите число столбцов исходной матрицы (N): ');
Readln(N);
if (N<=0) or (N>MAXIM) then Writeln('N д ',MAXIM,' !');
end;

Writeln;
Writeln('Ввод исходной матрицы (А):');
for i:=1 to M do begin
for j:=1 to N do begin
Write(' (',i,',',j,'): ');
Readln(A[i,j]);
end;
end;
End;

Procedure Write_Matrix(N,M: integer);
Var
i,j : integer;
Begin
for i:=1 to M do begin
for j:=1 to N do Write(' ',A[i,j]:0:3);
Writeln;
end;
End;

Procedure Process_Matrix;
Var
i,j,k : integer;
max_str : integer;
min_str : integer;
max_str_sum : real;
min_str_sum : real;
sum : real;

Begin
{}
sum:=0;
for j:=1 to N do sum:=sum+A[1,j];
max_str_sum:=sum;
max_str:=1;
min_str_sum:=sum;
min_str:=1;

for i:=1 to M do begin
sum:=0;
for j:=1 to N do sum:=sum+A[i,j];
if sum>max_str_sum then begin
max_str_sum:=sum;
max_str:=i;
end;
if sum<min_str_sum then begin
min_str_sum:=sum;
min_str:=i;
end;
end;
Writeln;
Writeln('е ',max_str);
Writeln(' ',min_str);

if (max_str<>min_str) then begin
{}
for j:=1 to N do B[1,j]:=A[max_str,j];
k:=1;
for i:=1 to M do begin
if (i<>max_str) and (i<>min_str) then begin
k:=k+1;
for j:=1 to N do B[k,j]:=A[i,j];
end;
end;
for j:=1 to N do B[M,j]:=A[min_str,j];

{A:=B}
for i:=1 to M do begin
for j:=1 to N do A[i,j]:=B[i,j];
end;
end else begin

BEGIN
ClrScr;
;

Read_Matrix;

Writeln;
Writeln('Исходная матрица (А):');
Write_Matrix(N,M);

Process_Matrix;

Writeln;
Writeln('Обработанная матрица (А):');
Write_Matrix(N,M);

Writeln;
Writeln('Нажмите <Enter> для выхода.');
Readln;



/THE END/

заебись что одним тэйком всё
но слабенько, очень слабенько
готовься к следующим баттолам

Какой раунд то

-Цитата от всёотлично

-Цитата от Номер23

риспект городам
риспект синагогам
риспект алисе альбе
ЙОу йоу йоу






uses CRT;

CONST
MAXIM = 20;

TYPE
matrix_2 = array[1..MAXIM, 1..MAXIM] of real;

VAR
M,N : integer;
A,B : matrix_2;

Procedure Read_Matrix;
Var
i,j : integer;
Begin
M:=0;
Writeln;
while (M<=0) or (M>MAXIM) do begin
Write(' (M): ');
Readln(M);
if (M<=0) or (M>MAXIM) then Writeln('M должно быть больше 0 и меньше ',MAXIM,' !');
end;

N:=0;
while (N<=0) or (N>MAXIM) do begin
Write('Ведите число столбцов исходной матрицы (N): ');
Readln(N);
if (N<=0) or (N>MAXIM) then Writeln('N д ',MAXIM,' !');
end;

Writeln;
Writeln('Ввод исходной матрицы (А):');
for i:=1 to M do begin
for j:=1 to N do begin
Write(' (',i,',',j,'): ');
Readln(A[i,j]);
end;
end;
End;

Procedure Write_Matrix(N,M: integer);
Var
i,j : integer;
Begin
for i:=1 to M do begin
for j:=1 to N do Write(' ',A[i,j]:0:3);
Writeln;
end;
End;

Procedure Process_Matrix;
Var
i,j,k : integer;
max_str : integer;
min_str : integer;
max_str_sum : real;
min_str_sum : real;
sum : real;

Begin
{}
sum:=0;
for j:=1 to N do sum:=sum+A[1,j];
max_str_sum:=sum;
max_str:=1;
min_str_sum:=sum;
min_str:=1;

for i:=1 to M do begin
sum:=0;
for j:=1 to N do sum:=sum+A[i,j];
if sum>max_str_sum then begin
max_str_sum:=sum;
max_str:=i;
end;
if sum<min_str_sum then begin
min_str_sum:=sum;
min_str:=i;
end;
end;
Writeln;
Writeln('е ',max_str);
Writeln(' ',min_str);

if (max_str<>min_str) then begin
{}
for j:=1 to N do B[1,j]:=A[max_str,j];
k:=1;
for i:=1 to M do begin
if (i<>max_str) and (i<>min_str) then begin
k:=k+1;
for j:=1 to N do B[k,j]:=A[i,j];
end;
end;
for j:=1 to N do B[M,j]:=A[min_str,j];

{A:=B}
for i:=1 to M do begin
for j:=1 to N do A[i,j]:=B[i,j];
end;
end else begin

BEGIN
ClrScr;
;

Read_Matrix;

Writeln;
Writeln('Исходная матрица (А):');
Write_Matrix(N,M);

Process_Matrix;

Writeln;
Writeln('Обработанная матрица (А):');
Write_Matrix(N,M);

Writeln;
Writeln('Нажмите <Enter> для выхода.');
Readln;



/THE END/

заебись что одним тэйком всё
но слабенько, очень слабенько
готовься к следующим баттолам

ты будеш в даполнительном равнде , я - нет

-Цитата от Номер23

-Цитата от всёотлично

-Цитата от Номер23

риспект городам
риспект синагогам
риспект алисе альбе
ЙОу йоу йоу






uses CRT;

CONST
MAXIM = 20;

TYPE
matrix_2 = array[1..MAXIM, 1..MAXIM] of real;

VAR
M,N : integer;
A,B : matrix_2;

Procedure Read_Matrix;
Var
i,j : integer;
Begin
M:=0;
Writeln;
while (M<=0) or (M>MAXIM) do begin
Write(' (M): ');
Readln(M);
if (M<=0) or (M>MAXIM) then Writeln('M должно быть больше 0 и меньше ',MAXIM,' !');
end;

N:=0;
while (N<=0) or (N>MAXIM) do begin
Write('Ведите число столбцов исходной матрицы (N): ');
Readln(N);
if (N<=0) or (N>MAXIM) then Writeln('N д ',MAXIM,' !');
end;

Writeln;
Writeln('Ввод исходной матрицы (А):');
for i:=1 to M do begin
for j:=1 to N do begin
Write(' (',i,',',j,'): ');
Readln(A[i,j]);
end;
end;
End;

Procedure Write_Matrix(N,M: integer);
Var
i,j : integer;
Begin
for i:=1 to M do begin
for j:=1 to N do Write(' ',A[i,j]:0:3);
Writeln;
end;
End;

Procedure Process_Matrix;
Var
i,j,k : integer;
max_str : integer;
min_str : integer;
max_str_sum : real;
min_str_sum : real;
sum : real;

Begin
{}
sum:=0;
for j:=1 to N do sum:=sum+A[1,j];
max_str_sum:=sum;
max_str:=1;
min_str_sum:=sum;
min_str:=1;

for i:=1 to M do begin
sum:=0;
for j:=1 to N do sum:=sum+A[i,j];
if sum>max_str_sum then begin
max_str_sum:=sum;
max_str:=i;
end;
if sum<min_str_sum then begin
min_str_sum:=sum;
min_str:=i;
end;
end;
Writeln;
Writeln('е ',max_str);
Writeln(' ',min_str);

if (max_str<>min_str) then begin
{}
for j:=1 to N do B[1,j]:=A[max_str,j];
k:=1;
for i:=1 to M do begin
if (i<>max_str) and (i<>min_str) then begin
k:=k+1;
for j:=1 to N do B[k,j]:=A[i,j];
end;
end;
for j:=1 to N do B[M,j]:=A[min_str,j];

{A:=B}
for i:=1 to M do begin
for j:=1 to N do A[i,j]:=B[i,j];
end;
end else begin

BEGIN
ClrScr;
;

Read_Matrix;

Writeln;
Writeln('Исходная матрица (А):');
Write_Matrix(N,M);

Process_Matrix;

Writeln;
Writeln('Обработанная матрица (А):');
Write_Matrix(N,M);

Writeln;
Writeln('Нажмите <Enter> для выхода.');
Readln;



/THE END/

заебись что одним тэйком всё
но слабенько, очень слабенько
готовься к следующим баттолам

ты будеш в даполнительном равнде , я - нет

да, да, ты прав, я иду в четвёртый (дополнительный) роунд, а ты нет.

Внимание: Оценки от Vogel

открой

*RIO* - 4-5-2 дисс кошерен
DreamAboutWhat!? - 4-4-2 Воистину плотные пунчлинии

Zaebatsu - 3-4-2 бабы на припеве хорошо, а вот панчи у бабана пиздить нехорошо
Рока - 5-4-2 разнообразие это хорошо, лирека проканала

всёотлично - 5-5-2 пиздатая репчинка, закинул в плеер
Hомер23 - 5-5-2 охуенно, но сначала хотел занизить оценки ибо нехуй задерживать батол

счастливый кот - 5-4-2 нехило как всегда, тока вот что то на этот раз короткий какой то трек вышел
TaiN - 5-5-2 ну тут опять без комментариев, один из лучших треков равонда

BUILD U UP - пройгарльчик
Удав - пройгарльчик