Перейти к публикации
  • Сейчас на странице   Всего пользователей: 0   (0 пользователей, 0 гостей)

Hed-kun

Программирование, т. 2

Рекомендованные сообщения

Такое чувство что половина народу тут так ничего работающего не написали или работают в говно-стартап проектах, в которых инновационный менеджмент и управление. :hmm: Все эти руби, питоны и прочий шлак, используется в 10ти фирмах от силы, вся сила в c# и java. Только энтерпрайс, только хардкор. Там все бабло и все интересные задачи, там челенж, взлеты и падения. А что такое твиттеры, фейсбуки и прочий шлак? Нахуярить 30 тыщ серверов чтобы каждый из них кое как обслуживал по 1-2к человек? ХУИТА :avtorklif:

Поделиться сообщением


Ссылка на сообщение
Гость 2poy_nyasha

я как-то скидывал сюда прогу которую сбацал на шарпе

 

жс > шарпа

Поделиться сообщением


Ссылка на сообщение

Такое чувство что половина народу тут так ничего работающего не написали или работают в говно-стартап проектах, в которых инновационный менеджмент и управление. :hmm: Все эти руби, питоны и прочий шлак, используется в 10ти фирмах от силы, вся сила в c# и java. Только энтерпрайс, только хардкор. Там все бабло и все интересные задачи, там челенж, взлеты и падения. А что такое твиттеры, фейсбуки и прочий шлак? Нахуярить 30 тыщ серверов чтобы каждый из них кое как обслуживал по 1-2к человек? ХУИТА :avtorklif:

Jolie-meme.jpg

Поделиться сообщением


Ссылка на сообщение

 

код

 

PROGRAM cube;
uses graph,crt;
const n=8;
type v=array [1..4] of real;mat=array [1..4,1..4] of real;
matob=array [1..n] of v;
const t:matob=((200,200,200,1),(300,200,200,1),(300,300,200,1),(200,300,200,1),
(200,200,100,1),(300,200,100,1),(300,300,100,1),(200,300,100,1));
m:mat=((1,0,0,0),(0,1,0,0),(0,0,1,0),(0,0,0,1));
e:mat=((1,0,0,0),(0,1,0,0),(0.35,-0.35,0,0),(0,0,0,1));
var
mm:mat;pt:matob;i:byte;dr,reg,u:integer;smx,smy,x,y:real;
procedure draw(ot:matob;cv:byte);
var
 i:byte;
procedure lin(oo:matob;p,q:byte);
begin
  line(trunc(oo[p,1]),trunc(oo[p,2]),trunc(oo[q,1]),trunc(oo[q,2]));
end;
begin
 setcolor(cv);
 for i:=1 to n div 2-1 do lin(ot,i,i+1);
 lin(ot,1,4);
 for i:=n div 2+1 to n-1 do lin(ot,i,i+1);
 lin(ot,n div 2+1,n);
 for i:=1 to 4 do lin(ot,i,i+4);
end;
procedure mult(a:v;b:mat;var pv:v);
var
i,j:byte;
begin
 for j:=1 to 4 do
begin
  pv[j]:=0;for i:=1 to 4 do
  pv[j]:=pv[j]+a[i]*b[i,j]
end;
 if pv[4]<>1 then
for i:=1 to 4 do pv[i]:=pv[i]/pv[4]
end;
procedure povorot(ugol:integer);
var p:real;
begin
 p:=ugol*2*pi/360;
 m[2,2]:=cos(p);m[2,3]:=sin(p);m[3,2]:=-sin(p);m[3,3]:=cos(p)
end;
procedure sme(sx,sy,sz:real);
begin
 for i:=1 to n do
begin
  t[i,1]:=t[i,1]+sx;t[i,2]:=t[i,2]+sy;t[i,3]:=t[i,3]+sz
end
end;
procedure mas(mx,my,mz:real);
begin
 m[1,1]:=mx;
 m[2,2]:=my;
 m[3,3]:=mz
end;
BEGIN
 dr:=detect;
 initgraph(dr,reg,'d:\bp\bgi') ;
 setbkcolor(15);
 for i:=1 to n do mult(t[i],e,pt[i]);
 draw(pt,red);
 readln;
 repeat
sme(-200,-300,-200);
povorot(2);
for i:=1 to n do mult(t[i],m,t[i]);
sme(200,300,200);
for i:=1 to n do mult(t[i],e,pt[i]);
draw(pt,blue);
delay(100);
cleardevice;
 until keypressed;
closegraph;
end.

 

 

прога в school pascal

при запуске появляется кубэ, после нажатия на энтер он вращается вокруг горизональной оси, после ещё одного энтера програ вырубается

надо чтобы вращалось вокруг вертикальной оси и не иначе

и просто эпик будет, если в любой момент времени можно будет этот куб остановить на месте, а потом снова продолжить вращение

может кто помочь?


giphy.gif

Поделиться сообщением


Ссылка на сообщение
Гость 2poy_nyasha

говно ебанное твой паскаь

пиши на жс!

Поделиться сообщением


Ссылка на сообщение

бля я вообще не умею в программирование

просто препод по графике еблан

можешь поменять ось вращения на опыте?


giphy.gif

Поделиться сообщением


Ссылка на сообщение
Гость 2poy_nyasha

попробуй незаметно перевернуть монитор

Поделиться сообщением


Ссылка на сообщение

Такое чувство что половина народу тут так ничего работающего не написали или работают в говно-стартап проектах, в которых инновационный менеджмент и управление. :hmm: Все эти руби, питоны и прочий шлак, используется в 10ти фирмах от силы, вся сила в c# и java. Только энтерпрайс, только хардкор. Там все бабло и все интересные задачи, там челенж, взлеты и падения. А что такое твиттеры, фейсбуки и прочий шлак? Нахуярить 30 тыщ серверов чтобы каждый из них кое как обслуживал по 1-2к человек? ХУИТА :avtorklif:

подписываюсь

Поделиться сообщением


Ссылка на сообщение
Гость 2poy_nyasha

ты ж не писал нихуя ни на чем

big135.gif

Поделиться сообщением


Ссылка на сообщение
Гость 2poy_nyasha

вижу в тебе говно

а в димане выебон

Поделиться сообщением


Ссылка на сообщение

вижу в вас всех говно, хуй кто поможет блять элементарная прога на уровне 11 класса :fffuuu:


giphy.gif

Поделиться сообщением


Ссылка на сообщение
Гость 2poy_nyasha

Тут пацаны энтерпрайзами занимаются

и свой фейсбук пишут

а ты со своей говнопрогой на говнопаскале

Поделиться сообщением


Ссылка на сообщение

Однажды писал какой-то скрипт на шелле, у меня припекло от того, что код не работает, если ставить пробелы перед и после =

Поделиться сообщением


Ссылка на сообщение
Гость 2poy_nyasha

Я сразу сообразил что от пробелов нихуя не работает

 

вообще баш немного раковый, но удобный если подучиться

Поделиться сообщением


Ссылка на сообщение

Однажды писал какой-то скрипт на шелле, у меня припекло от того, что код не работает, если ставить пробелы перед и после =

я час не мог запустить скрипт, а оказалось, что завершающий макрос для cat в скрипте надо писать именно с начала строки, без табуляции.

И СУКА НИГДЕ НЕ НАПИСАНО.


Торжество разума в том, чтобы уживаться с теми, у кого этого разума нет. Вольтер.
Чтобы хорошо высыпаться, нужно спать 8 часов в день. И еще столько же ночью.

Поделиться сообщением


Ссылка на сообщение
Гость 2poy_nyasha

Пацаны, у кого хватит смелости написать крестики/нолики 3х3 на вашем любимом языке без гугла?

или хотя бы алгоритм

Поделиться сообщением


Ссылка на сообщение
Гость
Эта тема закрыта для публикации сообщений.

×
×
  • Создать...