Джеронимо
Сообщения: 27,564
Регистрация: 04.08.2007 Откуда: 1010110 | -Цитата от Р.Б.В. да он хороший! я говорю о финансах, просто использование ломаного фрутилупса сейчас не говорит а том что у тебя не будут потом проблемы... так же как и с форматами файлов....
видно тут мало параноиков сидит) Добавлено через 9 минут 5 секунд -Цитата от Р.Б.В. да он хороший! я говорю о финансах, просто использование ломаного фрутилупса сейчас не говорит а том что у тебя не будут потом проблемы... так же как и с форматами файлов....
видно тут мало параноиков сидит) большая проблема в людях это лень)..., и слепость), вроди бы с глазами, а видеть не хотят) Добавлено через 10 минут 9 секунд -Цитата от CARBO -Цитата от Громобрат
ну если так судить то на первый взгляд больше уже и нечего изобретать кроме велосипеда да ну на хуй -Цитата от Р.Б.В. я думаю если работу правильно разделить, то все будет пучком..., да нужно много человеко-часов, о велосипеде говоря, если у некоторых деньги есть платить за колесо, то у некоторых их нету..., в линуксе тоже не все так красиво...
ломаный уже под собой представляет эффект бабочки...) нет. давай например разберемся чем тебя не устраивает фл? меня не устраивает конченая обработка сэмплов..., редактор неудобнейший пипец... дак скачай отдельный, какие проблемы?
или из-за конченной обработки семплов надо новую прогу создавать?
только вот вопрос удобства очень личный, и скорее всего лично тебе и надо будет писать эту "удобную" программу))) | | | |
Сообщения: 8,137
Регистрация: 30.09.2008 | -Цитата от Mase1 -Цитата от Р.Б.В. Мужики, а вы не думали хип - хоп сообществу помочь?..., бесплатного софта писать под музик мейк?... - написали бы бесплатную альтернативу фрути лупсу...... заебись идея, пиши
а если честно, я когда то делал муз редактор под бипер системного блока на паскале управлялся мышкой, высота ноты, громкость, все дела -Цитата от Трэй
заебись за книжкой пришел я тебе сразу написал фамилию Кнут
ищи, качай, читай. Твое не заметил. Спасибо | | | | активный пользователь
Сообщения: 5,152
Регистрация: 29.12.2010 | -Цитата от Трэй -Цитата от ^RG^ -Цитата от Трэй
я ведь написал что мне не плюсы нужны а зачем тебе С учить, если уже и С++ толком не используют?
на смену С++ пришел С#, а ему PHP и Java.
разница не велика между С и С++, так что берись за С++. ты издеваешься что ли?
или совсем нихуя не читаешь?
я ведь написал на предыдущей странице, что мне его в универе преподают. мне ваще похуй че учить, меня и паскаль устраивал с бэйсиком бля чувак, нет нигде учебников отдельно по с. везде с/с++, ибо отдельно изучать смысла нет. если угодно не читай в книгах все что связано с ооп и будет тебе обычный с | | | |
Сообщения: 6,428
Регистрация: 17.02.2006 | парни,
стал греться ноутбук где вентиляция. это как то чинится? там вообще вентилятор или что? модель: emashines G730G | | | | Джеронимо
Сообщения: 27,564
Регистрация: 04.08.2007 Откуда: 1010110 | -Цитата от sportik парни,
стал греться ноутбук где вентиляция. это как то чинится? там вообще вентилятор или что? модель: emashines G730G кулер обычный. разбери его и почисть кулер. при необходимости - замени. может дополнительно пластину радиатора придется прикрутить, некоторые так делают. | | | |
Сообщения: 6,428
Регистрация: 17.02.2006 | -Цитата от CARBO -Цитата от sportik парни,
стал греться ноутбук где вентиляция. это как то чинится? там вообще вентилятор или что? модель: emashines G730G кулер обычный. разбери его и почисть кулер. при необходимости - замени. может дополнительно пластину радиатора придется прикрутить, некоторые так делают. сколько она стоит в среднем? я сомневаюсь, что у меня получится обратно всё собрать, как положено | | | | Джеронимо
Сообщения: 27,564
Регистрация: 04.08.2007 Откуда: 1010110 | -Цитата от sportik -Цитата от CARBO -Цитата от sportik парни,
стал греться ноутбук где вентиляция. это как то чинится? там вообще вентилятор или что? модель: emashines G730G кулер обычный. разбери его и почисть кулер. при необходимости - замени. может дополнительно пластину радиатора придется прикрутить, некоторые так делают. сколько она стоит в среднем? я сомневаюсь, что у меня получится обратно всё собрать, как положено пластина радиатора?
да открути ее от какой нибудь хуйни старой (модем, старая видюха, материнка и подобный им хлам) | | | |
Сообщения: 6,428
Регистрация: 17.02.2006 | -Цитата от CARBO -Цитата от sportik -Цитата от CARBO кулер обычный. разбери его и почисть кулер. при необходимости - замени. может дополнительно пластину радиатора придется прикрутить, некоторые так делают. сколько она стоит в среднем? я сомневаюсь, что у меня получится обратно всё собрать, как положено пластина радиатора?
да открути ее от какой нибудь хуйни старой (модем, старая видюха, материнка и подобный им хлам) мне тут посоветовали компрессором на шиномотажке продуть не разбирая , мол эффективно
что скажите? | | | | ОСОБЫЙ)
Сообщения: 443
Регистрация: 12.09.2008 | -Цитата от CARBO -Цитата от Р.Б.В. да он хороший! я говорю о финансах, просто использование ломаного фрутилупса сейчас не говорит а том что у тебя не будут потом проблемы... так же как и с форматами файлов....
видно тут мало параноиков сидит) Добавлено через 9 минут 5 секунд -Цитата от Р.Б.В. да он хороший! я говорю о финансах, просто использование ломаного фрутилупса сейчас не говорит а том что у тебя не будут потом проблемы... так же как и с форматами файлов....
видно тут мало параноиков сидит) большая проблема в людях это лень)..., и слепость), вроди бы с глазами, а видеть не хотят) Добавлено через 10 минут 9 секунд -Цитата от CARBO да ну на хуй
нет. давай например разберемся чем тебя не устраивает фл? меня не устраивает конченая обработка сэмплов..., редактор неудобнейший пипец... дак скачай отдельный, какие проблемы?
или из-за конченной обработки семплов надо новую прогу создавать?
только вот вопрос удобства очень личный, и скорее всего лично тебе и надо будет писать эту "удобную" программу))) скорей всего так и придётся)... но видно это будет долговато =) | | | | Джеронимо
Сообщения: 27,564
Регистрация: 04.08.2007 Откуда: 1010110 | -Цитата от Р.Б.В. -Цитата от CARBO -Цитата от Р.Б.В. да он хороший! я говорю о финансах, просто использование ломаного фрутилупса сейчас не говорит а том что у тебя не будут потом проблемы... так же как и с форматами файлов....
видно тут мало параноиков сидит) Добавлено через 9 минут 5 секунд
большая проблема в людях это лень)..., и слепость), вроди бы с глазами, а видеть не хотят) Добавлено через 10 минут 9 секунд
меня не устраивает конченая обработка сэмплов..., редактор неудобнейший пипец... дак скачай отдельный, какие проблемы?
или из-за конченной обработки семплов надо новую прогу создавать?
только вот вопрос удобства очень личный, и скорее всего лично тебе и надо будет писать эту "удобную" программу))) скорей всего так и придётся)... но видно это будет долговато =) и оно тебе надо? | | | | Way carried away
Сообщения: 1,290
Регистрация: 14.05.2011 | Пацики, есть ли где-нибудь видеоуроки для изучения access 2003? А то найти нигде не могу | | | | [vneZApno]
Сообщения: 701
Регистрация: 28.12.2010 | Пацаны, сейчас учусь на инженера, после 1 семестра собираюсь перевестись на Информационные системы, скажите правильно ли я делаю?
со временем не заебывает ли вас, программистов, постоянно работать за компом? | | | | XXZP.
Сообщения: 16,816
Регистрация: 09.08.2007 Откуда: Genève | -Цитата от samouverennyi Пацаны, сейчас учусь на инженера, после 1 семестра собираюсь перевестись на Информационные системы, скажите правильно ли я делаю?
со временем не заебывает ли вас, программистов, постоянно работать за компом? иногда заебывает до блевоты, но обычно норм | | | | судьбу ломают женщины
Сообщения: 2,340
Регистрация: 03.07.2008 | -Цитата от sportik -Цитата от CARBO -Цитата от sportik сколько она стоит в среднем? я сомневаюсь, что у меня получится обратно всё собрать, как положено пластина радиатора?
да открути ее от какой нибудь хуйни старой (модем, старая видюха, материнка и подобный им хлам) мне тут посоветовали компрессором на шиномотажке продуть не разбирая , мол эффективно
что скажите? либо так, либо пылесосом обычным, если достаточно мощный. а так конечно разобрать нужно, посмотреть не засохла ли термопаста | | | | [vneZApno]
Сообщения: 701
Регистрация: 28.12.2010 | -Цитата от Mase1 -Цитата от samouverennyi Пацаны, сейчас учусь на инженера, после 1 семестра собираюсь перевестись на Информационные системы, скажите правильно ли я делаю?
со временем не заебывает ли вас, программистов, постоянно работать за компом? иногда заебывает до блевоты, но обычно норм а по деньгам как? и график работы? сколько тебе сейчас лет?
если не трудно распиши что как
сам знаю только 3 программистов, один работает за копейки весь день на выезде
один не по спецу работает
один в универе преподает
вообщем не такого хочется | | | | XXZP.
Сообщения: 16,816
Регистрация: 09.08.2007 Откуда: Genève | -Цитата от samouverennyi -Цитата от Mase1 -Цитата от samouverennyi Пацаны, сейчас учусь на инженера, после 1 семестра собираюсь перевестись на Информационные системы, скажите правильно ли я делаю?
со временем не заебывает ли вас, программистов, постоянно работать за компом? иногда заебывает до блевоты, но обычно норм а по деньгам как? и график работы? сколько тебе сейчас лет?
если не трудно распиши что как
сам знаю только 3 программистов, один работает за копейки весь день на выезде
один не по спецу работает
один в универе преподает
вообщем не такого хочется я сейчас работаю не по специальности, а там, где много свободного времени
но товарищи работают, причем большинство в конторах занимающихся фрилансом
и что это за программист на выезде? | | | | новый пользователь
Сообщения: 110
Регистрация: 02.05.2011 | -Цитата от samouverennyi Пацаны, сейчас учусь на инженера, после 1 семестра собираюсь перевестись на Информационные системы, скажите правильно ли я делаю?
со временем не заебывает ли вас, программистов, постоянно работать за компом? Не переводись,программирование-это полная хуйня,без самообучения программистом не стать,желательно до вуза иметь базу очень хорошую.Ты хочешь всю жизнь учиться?Правда с этой специальностью можно податься в сисадмины,но тоже самое можно сделать и с другим образованием.
Вот тебе задачку скину,чтобы ты окончательно передумал,это с 1 курса. Показать скрытый текст
Напишите программу для графической иллюстрации сорти-
ровки массивов алгоритмом слияния. Массивы изобразите в
виде диаграммы – каждый элемент массива представляется в
виде столбика, высота которого пропорциональна значению
элемента. Визуализация сортировки сводится к показу мас-
сивов после каждого перемещения элементов.
uses crt,graph;
type elem=record{элемент массива}
znc:integer;{значение}
vys:integer;{высота}
cvt:integer;{цвет}
end;
type mas=array[1..25] of elem;{массивы элементов}
procedure Sdvig(var x:mas;var n:integer);{удаление первого элемента=сдвиг влео}
var i:integer;
begin
if n>0 then
begin
for i:=1 to n-1 do
x[i]:=x[i+1];
n:=n-1;
end
else n:=0
end;
{рисование изменяюшихся массивов}
procedure Diag(x:mas;n:integer;y:integer;s:string;mx:integer );
var i:byte;
begin
outtextXY(5,y,'Massiv '+s);
if n>0 then
begin
for i:=1 to n do
begin
setfillstyle(1,x[i].cvt);
bar(100+(i-1)*15,y-x[i].vys,100+i*15,y);
end;
end
else if n=0 then {если остался последний, то стпраем}
begin
setfillstyle(1,0);
bar(100,y-mx,100+15,y);
end;
end;
var a,b,c:mas;
n,m,k,y1,y2,y3,i,j,mx:integer;
begin
initgraph(n,m,'');
n:=15;
m:=10;
y1:=getmaxY div 4;
y2:=2*y1;
y3:=3*y1;
mx:=0;
for i:=1 to n do
begin
a[i].znc:=2*i+1;{введем нечетные числа}
a[i].vys:=a[i].znc*3;
if a[i].vys>mx then mx:=a[i].vys;
a[i].cvt:=i*2;
if i mod 8=0 then a[i].cvt:=(i+1)*k;
setfillstyle(1,a[i].cvt);
bar(100+(i-1)*15,y1-a[i].vys,100+i*15,y1);
end;
for i:=1 to m do
begin
b[i].znc:=2*i; {введем четные числа}
b[i].vys:=b[i].znc*3;
if a[i].vys>mx then mx:=a[i].vys;
b[i].cvt:=i*3;
if i mod 8=0 then a[i].cvt:=(i+2)*3;
setfillstyle(1,b[i].cvt);
bar(100+(i-1)*15,y2-b[i].vys,100+i*15,y2);
end;
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
i:=1; j:=1; k:=1; {устанавливаем счётчики}
while (i<=n) or (j<=m) do {пока не дошли до конца каждого из массивов}
begin
if (i<=n) and (j<=m) then {если оба массива ещё не закончились}
begin
if a[i].znc<b[j].znc then {то пишем в новый массив меньший из текущих элементов}
begin
c[k]:=a[i];
Sdvig(a,n);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k); {переходим к следующему элементу конечного массива}
cleardevice;
end
else
begin
c[k]:=b[j];
Sdvig(b,m);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k);
end
end
else if i>m then {иначе один из массивов уже закончился}
begin {и мы пишем из того, в котором ещё есть элементы}
c[k]:=a[i];
Sdvig(a,n);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k);
end
else if j>n then
begin
c[k]:=b[j];
Sdvig(b,m);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k);
end;
end;
setcolor(12);
outtextXY(getmaxX div 2-50,40,'Konec sortirovki');
readln;
end. | | | | КОТ
Сообщения: 5,261
Регистрация: 14.02.2006 Откуда: ДВР | -Цитата от Ёбушки-Воробушки Пацики, есть ли где-нибудь видеоуроки для изучения access 2003? А то найти нигде не могу Ты совсем беспомощный мудак чтоли? http://www.youtube.com/results?search_query=access+2003+step+by+step | | | | XXZP.
Сообщения: 16,816
Регистрация: 09.08.2007 Откуда: Genève | -Цитата от Talib89 -Цитата от samouverennyi Пацаны, сейчас учусь на инженера, после 1 семестра собираюсь перевестись на Информационные системы, скажите правильно ли я делаю?
со временем не заебывает ли вас, программистов, постоянно работать за компом? Не переводись,программирование-это полная хуйня,без самообучения программистом не стать,желательно до вуза иметь базу очень хорошую.Ты хочешь всю жизнь учиться?Правда с этой специальностью можно податься в сисадмины,но тоже самое можно сделать и с другим образованием.
Вот тебе задачку скину,чтобы ты окончательно передумал,это с 1 курса. Показать скрытый текст
Напишите программу для графической иллюстрации сорти-
ровки массивов алгоритмом слияния. Массивы изобразите в
виде диаграммы – каждый элемент массива представляется в
виде столбика, высота которого пропорциональна значению
элемента. Визуализация сортировки сводится к показу мас-
сивов после каждого перемещения элементов.
uses crt,graph;
type elem=record{элемент массива}
znc:integer;{значение}
vys:integer;{высота}
cvt:integer;{цвет}
end;
type mas=array[1..25] of elem;{массивы элементов}
procedure Sdvig(var x:mas;var n:integer);{удаление первого элемента=сдвиг влео}
var i:integer;
begin
if n>0 then
begin
for i:=1 to n-1 do
x[i]:=x[i+1];
n:=n-1;
end
else n:=0
end;
{рисование изменяюшихся массивов}
procedure Diag(x:mas;n:integer;y:integer;s:string;mx:integer );
var i:byte;
begin
outtextXY(5,y,'Massiv '+s);
if n>0 then
begin
for i:=1 to n do
begin
setfillstyle(1,x[i].cvt);
bar(100+(i-1)*15,y-x[i].vys,100+i*15,y);
end;
end
else if n=0 then {если остался последний, то стпраем}
begin
setfillstyle(1,0);
bar(100,y-mx,100+15,y);
end;
end;
var a,b,c:mas;
n,m,k,y1,y2,y3,i,j,mx:integer;
begin
initgraph(n,m,'');
n:=15;
m:=10;
y1:=getmaxY div 4;
y2:=2*y1;
y3:=3*y1;
mx:=0;
for i:=1 to n do
begin
a[i].znc:=2*i+1;{введем нечетные числа}
a[i].vys:=a[i].znc*3;
if a[i].vys>mx then mx:=a[i].vys;
a[i].cvt:=i*2;
if i mod 8=0 then a[i].cvt:=(i+1)*k;
setfillstyle(1,a[i].cvt);
bar(100+(i-1)*15,y1-a[i].vys,100+i*15,y1);
end;
for i:=1 to m do
begin
b[i].znc:=2*i; {введем четные числа}
b[i].vys:=b[i].znc*3;
if a[i].vys>mx then mx:=a[i].vys;
b[i].cvt:=i*3;
if i mod 8=0 then a[i].cvt:=(i+2)*3;
setfillstyle(1,b[i].cvt);
bar(100+(i-1)*15,y2-b[i].vys,100+i*15,y2);
end;
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
i:=1; j:=1; k:=1; {устанавливаем счётчики}
while (i<=n) or (j<=m) do {пока не дошли до конца каждого из массивов}
begin
if (i<=n) and (j<=m) then {если оба массива ещё не закончились}
begin
if a[i].znc<b[j].znc then {то пишем в новый массив меньший из текущих элементов}
begin
c[k]:=a[i];
Sdvig(a,n);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k); {переходим к следующему элементу конечного массива}
cleardevice;
end
else
begin
c[k]:=b[j];
Sdvig(b,m);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k);
end
end
else if i>m then {иначе один из массивов уже закончился}
begin {и мы пишем из того, в котором ещё есть элементы}
c[k]:=a[i];
Sdvig(a,n);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k);
end
else if j>n then
begin
c[k]:=b[j];
Sdvig(b,m);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k);
end;
end;
setcolor(12);
outtextXY(getmaxX div 2-50,40,'Konec sortirovki');
readln;
end. ну ты в актуальном, видимо, Вузе учишься, если вы на паскале пишете такие вещи) | | | |
Сообщения: 6,428
Регистрация: 17.02.2006 | как уменьшить длину ширину фото но не разрешение т.е не чтоб разрешение/качество картинки упало а таким же осталось а наоборот кач-во тоже осталось а фото по размерам меньше | | | | новый пользователь
Сообщения: 110
Регистрация: 02.05.2011 | -Цитата от Mase1 -Цитата от Talib89 -Цитата от samouverennyi Пацаны, сейчас учусь на инженера, после 1 семестра собираюсь перевестись на Информационные системы, скажите правильно ли я делаю?
со временем не заебывает ли вас, программистов, постоянно работать за компом? Не переводись,программирование-это полная хуйня,без самообучения программистом не стать,желательно до вуза иметь базу очень хорошую.Ты хочешь всю жизнь учиться?Правда с этой специальностью можно податься в сисадмины,но тоже самое можно сделать и с другим образованием.
Вот тебе задачку скину,чтобы ты окончательно передумал,это с 1 курса. Показать скрытый текст
Напишите программу для графической иллюстрации сорти-
ровки массивов алгоритмом слияния. Массивы изобразите в
виде диаграммы – каждый элемент массива представляется в
виде столбика, высота которого пропорциональна значению
элемента. Визуализация сортировки сводится к показу мас-
сивов после каждого перемещения элементов.
uses crt,graph;
type elem=record{элемент массива}
znc:integer;{значение}
vys:integer;{высота}
cvt:integer;{цвет}
end;
type mas=array[1..25] of elem;{массивы элементов}
procedure Sdvig(var x:mas;var n:integer);{удаление первого элемента=сдвиг влео}
var i:integer;
begin
if n>0 then
begin
for i:=1 to n-1 do
x[i]:=x[i+1];
n:=n-1;
end
else n:=0
end;
{рисование изменяюшихся массивов}
procedure Diag(x:mas;n:integer;y:integer;s:string;mx:integer );
var i:byte;
begin
outtextXY(5,y,'Massiv '+s);
if n>0 then
begin
for i:=1 to n do
begin
setfillstyle(1,x[i].cvt);
bar(100+(i-1)*15,y-x[i].vys,100+i*15,y);
end;
end
else if n=0 then {если остался последний, то стпраем}
begin
setfillstyle(1,0);
bar(100,y-mx,100+15,y);
end;
end;
var a,b,c:mas;
n,m,k,y1,y2,y3,i,j,mx:integer;
begin
initgraph(n,m,'');
n:=15;
m:=10;
y1:=getmaxY div 4;
y2:=2*y1;
y3:=3*y1;
mx:=0;
for i:=1 to n do
begin
a[i].znc:=2*i+1;{введем нечетные числа}
a[i].vys:=a[i].znc*3;
if a[i].vys>mx then mx:=a[i].vys;
a[i].cvt:=i*2;
if i mod 8=0 then a[i].cvt:=(i+1)*k;
setfillstyle(1,a[i].cvt);
bar(100+(i-1)*15,y1-a[i].vys,100+i*15,y1);
end;
for i:=1 to m do
begin
b[i].znc:=2*i; {введем четные числа}
b[i].vys:=b[i].znc*3;
if a[i].vys>mx then mx:=a[i].vys;
b[i].cvt:=i*3;
if i mod 8=0 then a[i].cvt:=(i+2)*3;
setfillstyle(1,b[i].cvt);
bar(100+(i-1)*15,y2-b[i].vys,100+i*15,y2);
end;
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
i:=1; j:=1; k:=1; {устанавливаем счётчики}
while (i<=n) or (j<=m) do {пока не дошли до конца каждого из массивов}
begin
if (i<=n) and (j<=m) then {если оба массива ещё не закончились}
begin
if a[i].znc<b[j].znc then {то пишем в новый массив меньший из текущих элементов}
begin
c[k]:=a[i];
Sdvig(a,n);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k); {переходим к следующему элементу конечного массива}
cleardevice;
end
else
begin
c[k]:=b[j];
Sdvig(b,m);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k);
end
end
else if i>m then {иначе один из массивов уже закончился}
begin {и мы пишем из того, в котором ещё есть элементы}
c[k]:=a[i];
Sdvig(a,n);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k);
end
else if j>n then
begin
c[k]:=b[j];
Sdvig(b,m);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k);
end;
end;
setcolor(12);
outtextXY(getmaxX div 2-50,40,'Konec sortirovki');
readln;
end. ну ты в актуальном, видимо, Вузе учишься, если вы на паскале пишете такие вещи) Проходятся и актуальные java и c#,просто хотел тому чуваку показать какие задачки без подготовки в самом начале пришлось решать,без самостоятельной подготовки на таких специальностях,как правило,делать нечего. | | | | [vneZApno]
Сообщения: 701
Регистрация: 28.12.2010 | -Цитата от Talib89 -Цитата от Mase1 -Цитата от Talib89
Не переводись,программирование-это полная хуйня,без самообучения программистом не стать,желательно до вуза иметь базу очень хорошую.Ты хочешь всю жизнь учиться?Правда с этой специальностью можно податься в сисадмины,но тоже самое можно сделать и с другим образованием.
Вот тебе задачку скину,чтобы ты окончательно передумал,это с 1 курса. Показать скрытый текст
Напишите программу для графической иллюстрации сорти-
ровки массивов алгоритмом слияния. Массивы изобразите в
виде диаграммы – каждый элемент массива представляется в
виде столбика, высота которого пропорциональна значению
элемента. Визуализация сортировки сводится к показу мас-
сивов после каждого перемещения элементов.
uses crt,graph;
type elem=record{элемент массива}
znc:integer;{значение}
vys:integer;{высота}
cvt:integer;{цвет}
end;
type mas=array[1..25] of elem;{массивы элементов}
procedure Sdvig(var x:mas;var n:integer);{удаление первого элемента=сдвиг влео}
var i:integer;
begin
if n>0 then
begin
for i:=1 to n-1 do
x[i]:=x[i+1];
n:=n-1;
end
else n:=0
end;
{рисование изменяюшихся массивов}
procedure Diag(x:mas;n:integer;y:integer;s:string;mx:integer );
var i:byte;
begin
outtextXY(5,y,'Massiv '+s);
if n>0 then
begin
for i:=1 to n do
begin
setfillstyle(1,x[i].cvt);
bar(100+(i-1)*15,y-x[i].vys,100+i*15,y);
end;
end
else if n=0 then {если остался последний, то стпраем}
begin
setfillstyle(1,0);
bar(100,y-mx,100+15,y);
end;
end;
var a,b,c:mas;
n,m,k,y1,y2,y3,i,j,mx:integer;
begin
initgraph(n,m,'');
n:=15;
m:=10;
y1:=getmaxY div 4;
y2:=2*y1;
y3:=3*y1;
mx:=0;
for i:=1 to n do
begin
a[i].znc:=2*i+1;{введем нечетные числа}
a[i].vys:=a[i].znc*3;
if a[i].vys>mx then mx:=a[i].vys;
a[i].cvt:=i*2;
if i mod 8=0 then a[i].cvt:=(i+1)*k;
setfillstyle(1,a[i].cvt);
bar(100+(i-1)*15,y1-a[i].vys,100+i*15,y1);
end;
for i:=1 to m do
begin
b[i].znc:=2*i; {введем четные числа}
b[i].vys:=b[i].znc*3;
if a[i].vys>mx then mx:=a[i].vys;
b[i].cvt:=i*3;
if i mod 8=0 then a[i].cvt:=(i+2)*3;
setfillstyle(1,b[i].cvt);
bar(100+(i-1)*15,y2-b[i].vys,100+i*15,y2);
end;
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
i:=1; j:=1; k:=1; {устанавливаем счётчики}
while (i<=n) or (j<=m) do {пока не дошли до конца каждого из массивов}
begin
if (i<=n) and (j<=m) then {если оба массива ещё не закончились}
begin
if a[i].znc<b[j].znc then {то пишем в новый массив меньший из текущих элементов}
begin
c[k]:=a[i];
Sdvig(a,n);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k); {переходим к следующему элементу конечного массива}
cleardevice;
end
else
begin
c[k]:=b[j];
Sdvig(b,m);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k);
end
end
else if i>m then {иначе один из массивов уже закончился}
begin {и мы пишем из того, в котором ещё есть элементы}
c[k]:=a[i];
Sdvig(a,n);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k);
end
else if j>n then
begin
c[k]:=b[j];
Sdvig(b,m);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k);
end;
end;
setcolor(12);
outtextXY(getmaxX div 2-50,40,'Konec sortirovki');
readln;
end. ну ты в актуальном, видимо, Вузе учишься, если вы на паскале пишете такие вещи) Проходятся и актуальные java и c#,просто хотел тому чуваку показать какие задачки без подготовки в самом начале пришлось решать,без самостоятельной подготовки на таких специальностях,как правило,делать нечего. ну такие трудности особо не пугают
если чо вы же мне поможете с литературой, да
какой курс у тебя? какими нибудь проектами сам занимаешься?
что с работой после вуза? | | | | XXZP.
Сообщения: 16,816
Регистрация: 09.08.2007 Откуда: Genève | -Цитата от Talib89 -Цитата от Mase1 -Цитата от Talib89
Не переводись,программирование-это полная хуйня,без самообучения программистом не стать,желательно до вуза иметь базу очень хорошую.Ты хочешь всю жизнь учиться?Правда с этой специальностью можно податься в сисадмины,но тоже самое можно сделать и с другим образованием.
Вот тебе задачку скину,чтобы ты окончательно передумал,это с 1 курса. Показать скрытый текст
Напишите программу для графической иллюстрации сорти-
ровки массивов алгоритмом слияния. Массивы изобразите в
виде диаграммы – каждый элемент массива представляется в
виде столбика, высота которого пропорциональна значению
элемента. Визуализация сортировки сводится к показу мас-
сивов после каждого перемещения элементов.
uses crt,graph;
type elem=record{элемент массива}
znc:integer;{значение}
vys:integer;{высота}
cvt:integer;{цвет}
end;
type mas=array[1..25] of elem;{массивы элементов}
procedure Sdvig(var x:mas;var n:integer);{удаление первого элемента=сдвиг влео}
var i:integer;
begin
if n>0 then
begin
for i:=1 to n-1 do
x[i]:=x[i+1];
n:=n-1;
end
else n:=0
end;
{рисование изменяюшихся массивов}
procedure Diag(x:mas;n:integer;y:integer;s:string;mx:integer );
var i:byte;
begin
outtextXY(5,y,'Massiv '+s);
if n>0 then
begin
for i:=1 to n do
begin
setfillstyle(1,x[i].cvt);
bar(100+(i-1)*15,y-x[i].vys,100+i*15,y);
end;
end
else if n=0 then {если остался последний, то стпраем}
begin
setfillstyle(1,0);
bar(100,y-mx,100+15,y);
end;
end;
var a,b,c:mas;
n,m,k,y1,y2,y3,i,j,mx:integer;
begin
initgraph(n,m,'');
n:=15;
m:=10;
y1:=getmaxY div 4;
y2:=2*y1;
y3:=3*y1;
mx:=0;
for i:=1 to n do
begin
a[i].znc:=2*i+1;{введем нечетные числа}
a[i].vys:=a[i].znc*3;
if a[i].vys>mx then mx:=a[i].vys;
a[i].cvt:=i*2;
if i mod 8=0 then a[i].cvt:=(i+1)*k;
setfillstyle(1,a[i].cvt);
bar(100+(i-1)*15,y1-a[i].vys,100+i*15,y1);
end;
for i:=1 to m do
begin
b[i].znc:=2*i; {введем четные числа}
b[i].vys:=b[i].znc*3;
if a[i].vys>mx then mx:=a[i].vys;
b[i].cvt:=i*3;
if i mod 8=0 then a[i].cvt:=(i+2)*3;
setfillstyle(1,b[i].cvt);
bar(100+(i-1)*15,y2-b[i].vys,100+i*15,y2);
end;
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
i:=1; j:=1; k:=1; {устанавливаем счётчики}
while (i<=n) or (j<=m) do {пока не дошли до конца каждого из массивов}
begin
if (i<=n) and (j<=m) then {если оба массива ещё не закончились}
begin
if a[i].znc<b[j].znc then {то пишем в новый массив меньший из текущих элементов}
begin
c[k]:=a[i];
Sdvig(a,n);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k); {переходим к следующему элементу конечного массива}
cleardevice;
end
else
begin
c[k]:=b[j];
Sdvig(b,m);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k);
end
end
else if i>m then {иначе один из массивов уже закончился}
begin {и мы пишем из того, в котором ещё есть элементы}
c[k]:=a[i];
Sdvig(a,n);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k);
end
else if j>n then
begin
c[k]:=b[j];
Sdvig(b,m);
cleardevice;
Diag(a,n,y1,'A:',mx);
Diag(b,m,y2,'B:',mx);
Diag(c,k,y3,'C:',mx);
delay(1000);
inc (k);
end;
end;
setcolor(12);
outtextXY(getmaxX div 2-50,40,'Konec sortirovki');
readln;
end. ну ты в актуальном, видимо, Вузе учишься, если вы на паскале пишете такие вещи) Проходятся и актуальные java и c#,просто хотел тому чуваку показать какие задачки без подготовки в самом начале пришлось решать,без самостоятельной подготовки на таких специальностях,как правило,делать нечего. первые курсы на таких специальностях и существуют, что бы отчислить лишних. лишних обычно около половины если не больше | | | | Джеронимо
Сообщения: 27,564
Регистрация: 04.08.2007 Откуда: 1010110 | -Цитата от Mase1 -Цитата от Talib89 -Цитата от Mase1
ну ты в актуальном, видимо, Вузе учишься, если вы на паскале пишете такие вещи) Проходятся и актуальные java и c#,просто хотел тому чуваку показать какие задачки без подготовки в самом начале пришлось решать,без самостоятельной подготовки на таких специальностях,как правило,делать нечего. первые курсы на таких специальностях и существуют, что бы отчислить лишних. лишних обычно около половины если не больше меня вот тоже хотели выкинуть из-за ЯВУ!
но я доказал этим пидоркам, что в теории я знаю как выполнить ту или иную задачу! я знаю например что тут надо такой то цикл использовать, тут надо case и тд. но блять синтаксис мне лень было понимать и учить! меня просто бесило, когда после компила, вываливалась какая нибудь ошибка! не терпеливый я для таких дел | | | | XXZP.
Сообщения: 16,816
Регистрация: 09.08.2007 Откуда: Genève | -Цитата от CARBO -Цитата от Mase1 -Цитата от Talib89
Проходятся и актуальные java и c#,просто хотел тому чуваку показать какие задачки без подготовки в самом начале пришлось решать,без самостоятельной подготовки на таких специальностях,как правило,делать нечего. первые курсы на таких специальностях и существуют, что бы отчислить лишних. лишних обычно около половины если не больше меня вот тоже хотели выкинуть из-за ЯВУ!
но я доказал этим пидоркам, что в теории я знаю как выполнить ту или иную задачу! я знаю например что тут надо такой то цикл использовать, тут надо case и тд. но блять синтаксис мне лень было понимать и учить! меня просто бесило, когда после компила, вываливалась какая нибудь ошибка! не терпеливый я для таких дел это еще что, Microsoft Visual C++ 6 вообще мог на голом месте эрроры выдавать, а потом скопипастишь код в новый проект и всё работает | | | | |