Результаты поиска потегупрограммирование

Дополнительные фильтры
Теги:
программированиеновый тег
Автор поста
Рейтинг поста:
-∞050100200300400+
Найдено: 703
Сортировка:

Когда код для сайта писал пьяный индус за пачку лапши.


Предпросмотр работает
Сайт показывает картинку
1 1И
Я публику картинку
Unknown image format
Предпросмотр работает
Сайт показывает картинку,реактор,программирование,geek,Прикольные гаджеты. Научный, инженерный и  айтишный юмор,spahetti code,песочница,пост из чистилища,dev

Отличный комментарий!

видимо автор поста хочет ещё один ивент - сутки без картинок. и полную жопу огурцов бонусом.
Автор поста (как и большинство местных пидоров) хочет, чтобы этот макака починил элементарную хуйню.

Помогите определить язык программирования

Необходим этот код. Понять, на каком языке он написан, так и не смог. Либо он написан с ошибками, либо это вообще не какой-то популярный код. Пробовал Паскаль и Питон, глянул на Руби и Джаву, но там другой синтакс. Про С-подобные вообще молчу, точно не оно.

const Predicate=3000;//Integer.MaxValue;
Xfirst = 0;

var a:=1;
m:=1;
c:=1;
x1:=1;
Xprev:=0;

ReferenceArray:array of Cardinal;
CandidateArray:array of Cardinal;

procedure putSeq2Array(const ReferenceXfirst,ReferenceA:Cardinal;ReferenceC:Cardinal;ReferenceM:Cardinal;arr:array of Cardinal);
var i:Integer;
var myXNew:Integer;
begin
myXNew:=ReferenceXfirst;
for i:=0 to Length(arr)-1 do
begin
arr[i]:=myXNew;
myXNew:=(ReferenceA*myXNew+ReferenceC) mod ReferenceM;
end;
end;

function TryUse(const CandidateXfirst,CandidateA,CandidateC,CandidateM:Cardinal):Boolean;
var i,j:Integer;
begin
if ReferenceArray=nil then begin result:=false; exit; end;
SetLength(CandidateArray,Length(ReferenceArray));
putSeq2Array(CandidateXfirst,CandidateA,CandidateC,CandidateM,CandidateArray);
//CandidateArray и ReferenceArray могут начинаться с неодинаковых элементов
//попробуем найти первый одинаковый элемент, result:=false иначе
result:= false;
for i:=0 to Length(ReferenceArray)-1 do
if CandidateArray[i]=ReferenceArray[0] then
begin
for j:=i to Length(ReferenceArray)-1-i do
if CandidateArray[j]ReferenceArray[j-i] then begin result:=false; exit;end
else result:= true;
end;
//else begin result:=false; exit;end;


end;

procedure TryFind();
var Ci,Mi,Ai,Xprev_i:Integer;
begin
for Ci:=c to Predicate do
for Mi:=m to Predicate do
for Ai:=a to Predicate do
if (Ai*8+Ci) mod Mi = 10 then
begin
if (Ai*18+Ci) mod Mi = 28 then//if (4*Ai+Ci) mod Mi =3 then
begin
if (Ai*28+Ci) mod Mi = 14 then
begin
if (Ai*14+Ci) mod Mi =8 then//if (Ai*Xprev_i+Ci) mod Mi = 1 then writeln('of cause a='+Ai+' ,c='+Ci+' ,m= '+Mi+' ,XPrev='+XPrev_i);
if TryUse(14,Ai,Ci,Mi) then
writeln('a='+Ai+' ,c='+Ci+' ,m= '+Mi);
end;
end;
end;
end;

BEGIN
SetLength(ReferenceArray,51);
putSeq2Array(0,5,2,32,ReferenceArray);

TryFind();
END.
КУПОН
НА 1 помощь,пидоры помогите,реактор помоги,программирование,geek,Прикольные гаджеты. Научный, инженерный и  айтишный юмор,код,песочница
Ситуация такая: хочется освоить профессию, скорее для подработки, тк вопрос с деньгами не стоит остро, и сильно запариваться не хочется, и пока выбор пал на тестировщика
Пока кажется оптимальным вариантом пройти курсы яндекса (аж за 70 к), в конце которых еще обещают и помощь с трудоустройством, но конечно смущает ценник
Поэтому было бы здорово услышать ваше мнение, может у кого есть опыт их прохождения или подскажите какой лучший вариант, не только с курсами, но вообще с профилем, может еще что то проще тестировщика - в общем буду очень признателен за любую инфу
фото моей кошки прилагаю
- Друг выучил COBOL и получил код, последние изменения в котором были сделаны в 90-х... его матерью.
- Наследование в программировании не так работает.
Всем ку! В связи с текущими событиями в мире, пришлось съёбывать из рашки. Повестки и прочей ебанины не приходило, но мы с женой врачи, у неё есть военник с категорией А и ВУС фельдшер, у меня нет (получить не успел и слава богу, категория так-то Д, но нарисовать могут что угодно). Уехали в Казахстан, на родину (здесь родились и школы закончили). В Омск на поезде, оттуда на машине (знакомые помогли) в Петропавловск (на границе "АПП Исилькуль" у нас не спросили ничего, 10 машин, за 1,5 часа прошли обе границы). Здесь есть жильё, денег на полгода хватит. С работой тоже вроде бы помогут.

Вопрос: какой выучить язык программирования? Чтобы не быть особо к месту привязанными, не важно в какой сфере работать в IT, и чтобы относительно быстро язык освоить.
UPD: половину комментов не вижу, видимо из-за политоты

Уроки/курс по джаве

КУПОН
НА 1 помощь,пидоры помогите,реактор помоги,java,программирование,geek,Прикольные гаджеты. Научный, инженерный и  айтишный юмор,обучение
Многоуважаемые пидоры и пидорессы, кто рубит в джаве, взываю к вашей помощи. Довелось мне (временно) удрать туда, где Ад и Жиды, учится этой самой джаве. В программировании я ни в зуб ногой, обещали что будут учить с нуля - но препод оказался прямо очень не очень, без базовых знаний разобраться на грани нереального, а сроки крайне сжатые. В результате мною было принято решение учиться самостоятельно. Пусть я нихрена не секу, но хоть бы и на кривой козе - но заехать в IT очень хочется. Но этих курсов и сайтов по джаве в сети миллион - какие из них норм, а какие устаревшее говно - я не знаю. Подскажите какой-нибудь ( желательное не очень платный) курс для чайников-гуманитариев.

Заранее спасибо и храни вас Вождь в это тревожное время.
Backend
developer
Front-end «i ______ developer,it-юмор,geek,Прикольные гаджеты. Научный, инженерный и  айтишный юмор,программирование

IT-Брендинг на грани 2

Поздравляю всех причастных с Днём программиста и представляю компанию «тыжпрограммистов» от Бога!
Для тех, кому важна кошерная работа, рекомендую обратиться к соседям — «Айтисемиту»
Сбрендил для вас,
Антон Логотиппер
Здесь мы собираем самые интересные картинки, арты, комиксы, мемасики по теме (+703 постов - )