- 1
€ = $.noConflict();
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+162
€ = $.noConflict();
SyntaxError: illegal character. Обидно ;(
+72
var
a : array[1..15000] of Integer;
b : Real;
c,k,i,j : Int64;
begin
c:=0;
k:=0;
for i:=1 to 15000 do
a[i]:=i;
for i:=1 to 15000 do
begin
for j:=1 to 15000 do
begin
b:=a[i] mod j;
if b=0 then
k:=k+1;
end;
if k=2 then
begin
WriteLn(a[i]);
c:=c+1;
end;
k:=0;
if c=1000 then
break
end;
end.
Ищем простые числа
+91
procedure TForm1.Button3Click(Sender: TObject);
var
i, j, n, c, Day1, Month1, Year1: word;
begin
Memo1.Clear;
Try
Day1 := StrToInt(Edit7.Text);
Month1 := StrToInt(Edit8.Text);
Year1 := StrToInt(Edit9.Text);
Except
ShowMessage('Введите нынешнюю дату!');
end;
{ Сортировка по дате и цене товара. Ввыод результата сортировки на экран }
for i := 1 to Nzap do
With Sklad[i] do
begin
if Sklad[i].Cost >= 1000000 then
begin
if abs(Year1 - Sklad[i].Year) >= 2 then
Memo1.Lines.Add(Nm + ' ' + 'Цена:' + IntToStr(Cost) + 'руб.' + ' ' +
'Кол-во:' + IntToStr(Quantity) + ' ' + 'шт.' + ' ' + 'День-' +
IntToStr(Day) + ' ' + 'Мес.-' + IntToStr(Month) + ' ' + 'Год-' +
IntToStr(Year))
else
begin
if abs(Month1 - Sklad[i].Month) >= 2 then
Memo1.Lines.Add(Nm + ' ' + 'Цена:' + IntToStr(Cost) + 'руб.' + ' ' +
'Кол-во:' + IntToStr(Quantity) + ' ' + 'шт.' + ' ' + 'День-' +
IntToStr(Day) + ' ' + 'Мес.-' + IntToStr(Month) + ' ' + 'Год-' +
IntToStr(Year))
else
begin
if (Day1 - Sklad[i].Day = 0) and (Month1 <> Sklad[i].Month) and
(Year1 <> Sklad[i].Year) then
Memo1.Lines.Add(Nm + ' ' + 'Цена:' + IntToStr(Cost) + 'руб.' + ' '
+ 'Кол-во:' + IntToStr(Quantity) + ' ' + 'шт.' + ' ' + 'День-' +
IntToStr(Day) + ' ' + 'Мес.-' + IntToStr(Month) + ' ' + 'Год-' +
IntToStr(Year));
end;
end;
end;
end;
end;
Ищем товар лежащий на складе больше месяца и имеющий цену больше миллиона рублей...
+89
/**
* todo - implement check if current value of the processor load is not mode than 90 persends...
*
* @return true if higher than 98 persents
*/
private boolean isProcessorOverloaded() {
return false;
}
+159
$name=$modelName.'['.str_replace(']','][',trim(strtr($attribute,array(']['=>']','['=>']')),']')).']';
Один там фреймворк
+164
if (date("Y", strtotime($date)) == 1970) {
$date = date("r");
}
Индус проверяет заполненность даты (необязательный параметр, по умолчанию null).
+59
#include <stdio.h>
#include <stdlib.h>
int main()
{
FILE *fp;
char hc1,hc2,mc1,mc2;
int hi1,hi2,mi1,mi2,hour,minute;
system("echo %time% >time.txt");
fp=fopen("time.txt","r");
if(fp==NULL)
exit(1) ;
hc1=fgetc(fp);
hc2=fgetc(fp);
fgetc(fp);
mc1=fgetc(fp);
mc2=fgetc(fp);
fclose(fp);
remove("time.txt");
hi1=hc1;
hi2=hc2;
mi1=mc1;
mi2=mc2;
hi1-=48;
hi2-=48;
mi1-=48;
mi2-=48;
hour=hi1*10+hi2;
minute=mi1*10+mi2;
printf("Current time is %d:%d\n",hour,minute);
return 0;
}
Как узнать текущее время особо извращенным образом. http://stackoverflow.com/questions/5141960/get-the-current-time-in-c
+148
<html>
<head>
<title>Тест</title>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
</head>
<body>
<div align="center">
<h1>Задание</h1>
Написать решение c использованием ООП, которое позволяет переводить целые числа в каком-нибудь диапазоне (c миллионами включительно) в текст ( разговорный)<br>
на трех языках (рус., англ., укр.)
</div>
<form action="receivenumber.php" method="post">
<label for="textnumber">Число:</label>
<input type="number" id="textnumber" name="textnumber" required
min="-9999999" max="9999999" step="1"/><br>
<label for="selectlanguage">Выбирите язык:</label>
<select id="selectlanguage" name="selectlanguage">
<option value="eng">English</option>
<option value="ukr">Ukrainian</option>
<option value="rus" selected>Russian</option>
</select><br>
<input type="submit" name="submitnumber" value="Отправить"><br>
</form>
</body>
</html>
А это файл "index.html", который передает данные скрипту "receivenumber.php"
+150
<html>
<head>
<title>Paymentwall. Тестовое задание</title>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
</head>
<body>
<div align="center">
<h1>Задание</h1>
Написать решение c использованием ООП, которое позволяет переводить целые числа в каком-нибудь диапазоне (c миллионами включительно) в текст ( разговорный)<br>
на трех языках (рус., англ., укр.)
</div>
<form action="receivenumber.php" method="post">
<label for="textnumber">Число:</label>
<input type="number" id="textnumber" name="textnumber" required
min="-9999999" max="9999999" step="1"/><br>
<label for="selectlanguage">Выбирите язык:</label>
<select id="selectlanguage" name="selectlanguage">
<option value="eng">English</option>
<option value="ukr">Ukrainian</option>
<option value="rus" selected>Russian</option>
</select><br>
<input type="submit" name="submitnumber" value="Отправить"><br>
</form>
</body>
</html>
А это файл "index.html", который передает данные скрипту "receivenumber.php".
+120
<html>
<head>
<title>Тест</title>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
</head>
<body>
<div align="center">
<h1>Задание</h1>
Написать решение c использованием ООП, которое позволяет переводить целые числа в каком-нибудь диапазоне (c миллионами включительно) в текст ( разговорный)<br>
на трех языках (рус., англ., укр.)
</div>
<form action="receivenumber.php" method="post">
<label for="textnumber">Число:</label>
<input type="number" id="textnumber" name="textnumber" required
min="-9999999" max="9999999" step="1"/><br>
<label for="selectlanguage">Выбирите язык:</label>
<select id="selectlanguage" name="selectlanguage">
<option value="eng">English</option>
<option value="ukr">Ukrainian</option>
<option value="rus" selected>Russian</option>
</select><br>
<input type="submit" name="submitnumber" value="Отправить"><br>
</form>
</body>
</html>
А это файл "index.html", который передает данные скрипту "receivenumber.php"