Список говнокодов пользователя SewerSurfer

Всего: 5

Pascal / Говнокод #23945

+1

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

program bio;
uses crt, graphABC;
const y1=200; r1=20;
var
x2,x3,r:real;

procedure del (x1,x11:integer);
begin
circle (x1,y1,r1); 
sleep(1000); 
ClearWindow();
r:=r1/2;
x2:=x1-(r);
circle (Trunc(x2),y1,Trunc(r));
x3:=x11+(r);
circle (Trunc(x3),y1,Trunc(r));
sleep(1000); 
r:=r*2;
x2:=x1-(r);
circle (Trunc(x2),y1,Trunc(r));
x3:=x11+(r);
circle (Trunc(x3),y1,Trunc(r));
del(Trunc(x2),Trunc(x3));
end;


begin
SetWindowSize(600,400);
setBrushColor(clGreen);
del(300,300);
end.

Симулятор деления клеток на паскале, который не работает.

SewerSurfer, 17 Марта 2018

Комментарии (2)

Java / Говнокод #23761

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

import java.util.Scanner;
public class MasInd {
    public static void main (String[] args) {
        Scanner sc = new Scanner(System.in);
        System.out.println("Введите массу тела в килограммах");
        double m = sc.nextDouble();
        System.out.println("Введите рост в метрах");
        double r = sc.nextDouble();
        double i = m/(r*r);
        System.out.println("Индекс массы тела = " + i);
        if (i>=18.5 & i<25) {
            System.out.println("Норма");
        }
        if (i>=25 & i<30) {
            System.out.println("Предожирение");
        }
        if (i>=30) {
            System.out.println("Ожирение");
        }
        if (i<18.5) {
            System.out.println("Дефицит массы тела");
        }
    }
}

Определитель индекса массы тела.
У меня, кстати, индекс - 22.47 (норма).

SewerSurfer, 13 Февраля 2018

Комментарии (198)

Pascal / Говнокод #23647

−1

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

program voynasharov;
uses crt, graphABC;

type shar = class
 col, x, y, r: integer;
 pm: byte;
 constructor Create (ccol, cx, cy, cr: integer);
  begin
  col:=ccol;
  x:=cx;
  y:=cy;
  r:=cr;
  end;
 procedure make;
  begin
  setbrushcolor (col);
  circle (x,y,r);
  end;
 procedure mov;
 begin
 pm:=random(5);
 case pm of
 1: x:=x+20;
 2: x:=x-20;
 3: y:=y-20;
 4: y:=y+20;
 end;
 end;
end;

var first, second:shar;

begin
 setwindowsize(1280,720);
 first:=shar.Create(666,550,400,60);
 second:=shar.Create(1488,740,300,60);
 first.make;
 second.make;
 repeat
 //clrscr;
 first.mov;
 second.mov;
 first.make;
 second.make;
 delay(50);
 until first.x=70;
end.

Лёгкий способ наколдовать перекатывание кругов в паскале

SewerSurfer, 09 Января 2018

Комментарии (3)

Pascal / Говнокод #23646

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

program sharokat;
uses crt, graphABC;

type shar = class
 col, x, y, r: integer;
 constructor Create (ccol, cx, cy, cr: integer);
  begin
  col:=ccol;
  x:=cx;
  y:=cy;
  r:=cr;
  end;
 procedure make;
  begin
  setbrushcolor (col);
  circle (x,y,r);
  end;
end;

var my:shar;

begin
 my:=shar.Create(666,100,100,60);
 my.make;
end.

Лёгкий способ наколдовать круг в паскале

SewerSurfer, 09 Января 2018

Комментарии (41)

Pascal / Говнокод #23616

−1

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99

uses crt;
var
n, c, d:text;//текстовые переменный сохранений
name:string;//имя игрока
namet, cot, dit:string;//имена файлов 
co,di:real;//переменные в игре
cdi:integer;//переменные с курсом
dif:string;//комманды
pm:byte;//+-курс
col:integer;//выбор количества для продажи
procedure cur; //вывод курса
begin
writeln ('Курс алмаза - ',cdi,' монет(ы)');
end;
procedure newr; //изменение курса
begin
pm:=random(2);//курс алмазов +- в промежутке 5,10
if pm=1 then cdi:=cdi+random(5)+5 else cdi:=cdi-(random(5)+5); 
cur();
end;
procedure buyco;
begin
write ('Сколько алмазов вы обменяете на монеты: ');
readln (col);
if col>di then 
 begin
 writeln ('У вас нет такого количества алмазов, введите меньше');
 write ('Сколько алмазов вы обменяете на монеты: ');
 col:=0;  readln (col);
 end 
 else 
  begin
  co:=co+(di*cdi);  di:=di-col;
  writeln ('Монет: ',co);  writeln ('Алмазов: ',di);
  end;
end;
procedure buydi;
begin
write ('Сколько монет вы обменяете на алмазы: ');
readln (col);
if col>co then 
 begin
 writeln ('У вас нет такого количества монет, введите меньше');
 write ('Сколько монет вы обменяете на алмазы: ');
 col:=0;
 readln (col);
 end 
 else 
  begin
  di:=di+((col*co)/cdi); co:=co-col;  
  writeln ('Монет: ',co); writeln ('Алмазов: ',di);  
  end;
end;
procedure buy;
begin
Writeln ('Введиде "co", если хотите купить монеты'); Writeln ('Введиде "di", если хотите купить алмазы');
Write ('Ввод: '); Readln (dif);
if dif = 'co' then buyco(); if dif = 'di' then buydi();
end;
procedure save;
begin
   assign(n, namet);
   rewrite (n);//cоздаём имена файлов   
   cot:=concat(name,'co.txt');
   dit:=concat(name,'di.txt');   
   {создаём сохранения}assign (c, cot); rewrite(c); co:=5; write(c,co);
   assign (d, dit); rewrite(d); di:=1; write(d,di);
   writeln ('Монет: ',co); writeln ('Алмазов: ',di); writeln ('Игра ',name,' сохранена');      
end;
begin
cdi:=random(20)+10; //Задаём начальный курс
write ('Введите ваше имя: '); readln (name); 
namet:=concat(name,'.txt');
if FileExists(namet) then
  begin
     writeln ('Сохранение ',name,' обнаружено');
     writeln ('Загружается сохранение...');
     assign (n, namet);
     reset(n);     
     cot:=concat(name,'co.txt');
     dit:=concat(name,'di.txt');//"вспомиаем" имена файлов     
     assign (c, cot); reset(c); read(c,co);
     assign (d, dit); reset(d); read(d,di);//загрузка сохранений     
     writeln ('Монет: ',co);
     writeln ('Алмазов: ',di);  //вывод данных из сохранений
  end  
  else 
   begin
   //создаём файл с именем игрока
   writeln ('Сохранение ',name,' не обнаружено'); writeln ('Создаётся сохранение...');   
   save();
   end;
   repeat //бесконечный репит
   write('Введите комманду: ');
   readln(dif);
     case dif of
    'new' : newr(); 'cur' : cur(); 'buy' : buy();'save' : save();   
    else Writeln ('Такой команды нет'); end;  
   until dif='end'; close(n);close(c);close(d);

Ну вот. Одна из моих первых программ на паскале. Про переводы из одной валюты в другую с учётом курса. Есть даже сохранения.
Чёрт ногу сломит, я сам уже не понимаю, что тут написал.

SewerSurfer, 24 Декабря 2017