- 1
https://pp.userapi.com/c841225/v841225007/529a0/yL9-zgjr3Lk.jpg
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
0
https://pp.userapi.com/c841225/v841225007/529a0/yL9-zgjr3Lk.jpg
боян
+6
Говнокод.ру переезжает на новые сервера!
−1
import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
public class Main implements ActionListener{
private JFrame frame;
private JTextArea area;
private JTextField fieldName, fieldAge, fieldWeight, fieldHeight, fieldSex;
private JButton button;
public static void main(String[] args) throws Exception{
Main main = new Main();
main.go();
}
public void go(){
frame = new JFrame();
JPanel panel = new JPanel();
JLabel labelName = new JLabel("Имя: ");
JLabel labelSex = new JLabel("Пол: ");
JLabel labelAge = new JLabel("Возраст: ");
JLabel labelWeight = new JLabel("Вес: ");
JLabel labelHeight = new JLabel("Рост: ");
fieldName = new JTextField(10);
fieldAge = new JTextField(10);
fieldWeight = new JTextField(10);
fieldHeight = new JTextField(10);
fieldSex = new JTextField(10);
area = new JTextArea(6, 73);
area.setWrapStyleWord(true);
area.setLineWrap(true);
button = new JButton("Расчитать");
button.addActionListener(this);
JScrollPane scroller = new JScrollPane(area);
scroller.setVerticalScrollBarPolicy(ScrollPaneConstants.VERTICAL_SCROLLBAR_ALWAYS);
scroller.setHorizontalScrollBarPolicy(ScrollPaneConstants.HORIZONTAL_SCROLLBAR_NEVER);
panel.add(labelName);
panel.add(fieldName);
panel.add(labelSex);
panel.add(fieldSex);
panel.add(labelAge);
panel.add(fieldAge);
panel.add(labelWeight);
panel.add(fieldWeight);
panel.add(labelHeight);
panel.add(fieldHeight);
panel.add(area);
frame.getContentPane().add(BorderLayout.CENTER, panel);
frame.getContentPane().add(BorderLayout.SOUTH, button);
frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
frame.setSize(1000, 200);
frame.setTitle("Расход калорий");
frame.setVisible(true);
}
public double bmrM(){
return 88.362 + (13.397 * Integer.parseInt(fieldWeight.getText())) + (6.25 * Integer.parseInt(fieldHeight.getText())) - (5 * Integer.parseInt(fieldAge.getText())) + 5;
}
public double bmrW(){
return 88.362 + (13.397 * Integer.parseInt(fieldWeight.getText())) + (6.25 * Integer.parseInt(fieldHeight.getText())) - (5 * Integer.parseInt(fieldAge.getText())) - 161;
}
public void actionPerformed(ActionEvent event){
if (fieldSex.getText().equals("Мужской") || fieldSex.getText().equals("мужской")){
area.setText(fieldName.getText() + ", ваш расход в спокойном режиме(без тренировочного процесса) составляет - " + bmrM() + " калорий.");
}else{
area.setText(fieldName.getText() + ", ваш расход в спокойном режиме(без тренировочного процесса) составляет - " + bmrW() + " калорий.");
}
}
}
Программа по расчету калорий!
Помогите улучшить код! КАК СОКРАТИТЬ???
0
https://ru.wikipedia.org/wiki/%D0%9F%D0%BE%D0%BB%D0%BD%D0%BE%D1%82%D0%B0_%D0%BF%D0%BE_%D0%A2%D1%8C%D1%8E%D1%80%D0%B8%D0%BD%D0%B3%D1%83
> Некоторые языки программирования (Haskell, C++) обладают тьюринг-полнотой времени компиляции.
Ну блджад.
−1
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);
Ну вот. Одна из моих первых программ на паскале. Про переводы из одной валюты в другую с учётом курса. Есть даже сохранения.
Чёрт ногу сломит, я сам уже не понимаю, что тут написал.
−3
class Huyomoyo
attr_reader :hui_razmer
def initialize(hui_razmer = 0)
@hui_razmer = case hui_razmer
when 0
'Нету'
when 1..3
'Пиздец маленький'
when 4..6
'Ну... Уже лучше'
when 7..9
'Норма'
when 10..12
'Ууажюха'
when 13..17
'Мдаааа'
when 18..22
'НИХУЯСЕБЕ'
when 23..40
'Да ты пиздишь'
else
'Че??'
end
end
def print_hui
puts @hui
end
end
if __FILE__ == $0
9.times do |i|
kusokgovnokoda = case i
when 0
0
when 1
1
when 2
4
when 3
7
when 4
10
when 5
13
when 6
18
when 7
23
when 8
41
end
Huyomoyo.new(kusokgovnokoda).print_hui
end
end
Я не посню што это вообще... Вроде говнокод
+2
local lv = {"sdds"}
lv.act = function(foo)
foo(lv)
end
function start()
local x = function(self)
print(self[1])
end
lv.act(x)
end
start()
Такой значит, насоздаешь одинаковых шаблоных хуйн, а потом по какой-то причине одна из 82837273723 хуйн должна быть уникальна какой-то неведомой хуйней и приходится в (шаблоне, но в луа нет шаблонов!) таблице прописывать половой акт самим с собой, чтоб он смог мутировать в другую отличную от других неведомых хуй. Например стать бабочкой, но тогда придется в единной функции хуярить всю бабочку, ну можно много функций! Тем не менее оригинальная неведомая хуйня не пострадает.
О здаровка
−4
Проспонсированные журналисты снова манипулируют сознанием винторогого быдла, пытаясь подогреть угасающий интерес к "Bitcoin":
https://news.mail.ru/incident/32049984/?frommail=1
>>>"В Петербурге пассажира аэропорта задержали за кражу биткоинов"
Но, в итоге, по прочтении текста статьи выясняется, что обул он свою жертву на настоящие, ощутимые деньги; что же касается фантиков, то он всего
лишь навсего не осуществил их передачу лоху, отвалившему бабло. А журнашлюхи преподносят это так, будто он спиздил непосредственно фантики,
что как бы в очередной раз показывает, насколько ценна (якобы) "валюта будущего".
+1
$data->setReferrerCode($data->getReferrerCode());
−1
private void button1_Click(object sender, EventArgs e)
{
textBox3.Clear();
textBox4.Clear();
Stringstr = textBox2.Text;
String code = textBox1.Text;
int size = str.Length;
char[] s = newchar[size];
if (size == 0) { textBox4.Text = "Ошибка! Вы не ввели исходный текст для шифрования."; return; }
intsize C = code.Length;
char[] sC = new char[sizeC];
if (sizeC == 0) { textBox4.Text = "Ошибка! Вы не ввели ключевое слово."; return; }
int[] secret = new int[sizeC];
int[] string1 = new int[size];
for (inti = 0; i< size; i++)
s[i] = str[i];
for (inti = 0; i<sizeC; i++)
sC[i] = code[i];
int j = 0;
for (inti = 0; i<sizeC; i++)
{
j = 0;
while (j != kolAl)
{
if (sC[i] == Al[j]) { secret[i] = j + 1; break; }
j++;
}
}
for (inti = 0; i< size; i++)
{
j = 0;
while (j != kolAl)
{
if (s[i] == Al[j]) { string1[i] = j; break; }
j++;
}
}
char[] finish = newchar[size];
int x = 0;
for (inti = 0; i< size; i++)
{
if (Al.Length<= string1[i] + secret[x])
{
finish[i] = Al[string1[i] + secret[x] - Al.Length];
}
else { finish[i] = Al[string1[i] + secret[x]]; }
x++;
if (x == secret.Length) x = 0;
textBox3.Text += finish[i];
}
textBox4.Text = "Шифрованиезавершеноудачно!";
}
Одногрупница сделала Шифр Вижинера
https://ru.wikipedia.org/wiki/Шифр_Виженера
Беда в том, что код тоже представляет из себя шифр.
Сделал сам, получилось 4 строчки на зашифровку и 4 на расшифровку.
Я в шоке. Это отличница у нас (4 курс :) *:(*)
Ладно, это говнище еще можно понять и простить, только там расшифровка функция еще 200 строк, а так же шифровка и расшифровка файла, соответственно по 300 строк. Так и живем.
Я в академ отпуск.