- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
Label 1, 2;
var
M,n:integer;
B:real;
Begin
Read(m,n);
2:
B:=m mod n;
If b=0 then goto 1 else
Begin
M:=n; n:=b;
Goto 2;
End;
1:
Write(n);
End.-
Pascal / Говнокод #7172
+93
Кaк бэ прогрaммноe рeaлизaциё aлгоритмa Евклидa, нaхождeниe мaксимaльного дeлитeля двух чисeл, кaк-то тaк.
Запостил:
KATAJIU3ATOP,
06 Июля 2011
Follow us!
Отговорка же!
А можете представить нам аппаратную?
дальше не читал.
язык в котором нужно объявлять метки - уже плохо пахнет.
тем более, что это не отбивает желания у gotoбыдла.
B:=m mod n;
If b=0 then goto 1 else
Begin
M:=n; n:=b;
Goto 2;
End;
неужели выглядит лучше чем:
while true do begin
B:=m mod n;
If b=0 then break;
M:=n; n:=b;
End;
B:=m mod n;
while b<>0 do begin
m:=n;
n:=B;
B:=m mod n;
end;
...
>обойтись без меток нужно построить два-три вложенных цикла, добавить пару-тройку флагов и сломать мозг на условиях выхода из циклов. Когда можно было бы обойтись одной меткой.
пример в студию.
вспомните троллинг вебкилла или мишустина
как раз, считаю, что банить нужно именно комментирование. Мол, запостил хуйню - не сри в комментах. А запостил что-нибудь годное - ну, тогда вроде бы уважаемый человек.
Хотя это все попахивает кармадрочем.
Яркий пример:
http://govnokod.ru/7097
по "лабой" я понимаю очень убогий код, который делали скорее всего для сдачи лабы. На вскидку не могу предложить адекватный способ банов:(
бл, прямо статья на лурк получилась