Баттл модных цифр №2 роунд 3 (оценки второго и задание третего) - Page 7 - Hip-Hop.Ru

Математик · 21-11-2010, 02:24

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

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

Vogel · 21-11-2010, 02:25

Алексей Владимирович · 21-11-2010, 02:27

Vogel · 21-11-2010, 03:35

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

Алексей Владимирович · 21-11-2010, 03:49

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

Zaebatsu · 21-11-2010, 05:09

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

от души

Vogel · 21-11-2010, 05:18

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

ПлавлюМозги · 21-11-2010, 05:36

-Originally Posted by Magaveli Busido

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

я не курю

Vogel · 21-11-2010, 05:41

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

всёотлично · 21-11-2010, 11:01

-Originally Posted by Vogel

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

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

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

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

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

я видел

**счастливый кот** · 21-11-2010, 11:25

-Originally Posted by Vogel

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

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

давай некст ровунд.

Vogel · 21-11-2010, 11:34

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

Математик · 21-11-2010, 11:36

-Originally Posted by ХАМmer

-Originally Posted by Magaveli Busido

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

я не курю

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

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

Алексей Владимирович · 21-11-2010, 11:38

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

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

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

при переводе обязательно подписывайте свой никнейм дабы избежать неприятных ситуаций

Vogel · 21-11-2010, 11:39

-Originally Posted by Новогодний битодел

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

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

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

Номер23 · 21-11-2010, 15:18

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

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 · 21-11-2010, 15:19

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

Номер23 · 21-11-2010, 15:25

ПлавлюМозги · 21-11-2010, 15:26

-Originally Posted by Magaveli Busido

-Originally Posted by ХАМmer

-Originally Posted by Magaveli Busido

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

я не курю

в жопу себе засунь морковку и прокрути теперь
http://www.youtube.com/watch?v=otCpCn0l4Wo

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

Математик · 21-11-2010, 15:27

-Originally Posted by ХАМmer

-Originally Posted by Magaveli Busido

-Originally Posted by ХАМmer

я не курю

в жопу себе засунь морковку и прокрути теперь
http://www.youtube.com/watch?v=otCpCn0l4Wo

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

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

всёотлично · 21-11-2010, 15:35

-Originally Posted by Номер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/

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

готовься к следующим баттолам

ExcIuz1c · 21-11-2010, 16:06

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

Номер23 · 21-11-2010, 16:24

-Originally Posted by всёотлично

-Originally Posted by Номер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/

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

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

всёотлично · 21-11-2010, 16:38

-Originally Posted by Номер23

-Originally Posted by всёотлично

-Originally Posted by Номер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 · 21-11-2010, 17:14

Внимание: Оценки от 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 - пройгарльчик

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

Similar Threads на: Баттл модных цифр №2 роунд 3 (оценки второго и задание третего)
Thread	Thread Starter	Forum	Replies	Last Post
Coollybyaka - На грани фантастики (УГ-Баттл 3 роунд) против Лотоса	Жан-Жак Руссо	BattleZone (Треки)	18	20-09-2010
2-ой неофициальный баттл битмейкеров Hip-Hop.Ru - итоги полуфинала и задание на финал	Breez	DJing / Создание музыки	0	04-09-2008
3-ий Новогодний Текстовый Баттл. Раунд 3. Задание.	El nieke	Текстовые баттлы, баттловые тексты	251	11-01-2008
Оценки/итоги второго раунда 1го баттла безбашки	Umshini Wam	Безбашенное общение	146	12-12-2006
- 3сите жопами - 3 трупа - командный баттл роунд №2	Eccentric	Демо-музыка	2	01-02-2006