Delphi & Pascal

[aSj]

Вообще, что хочу сказать - в данном случае программер должен следовать правилам рыцаря ;) Да, рыцарь должен уметь починить свои доспехи. Да, рыцарь должен уметь починить свое оружие, заштопать одежду, ухаживать за конем, приготовить жрат, перевязать рану. Всему этому он научился пока был сначала пажем, потом - оруженосцем. И при необходимости он будет это делать. Но в обычной ситуации делать все это за него должны его пажи и оруженосцы.
Переведя на случай с программером - да, при необходимости программер должен уметь
сделать рекурсию для поиска файлов в дереве каталогов. Но. Он не должен этого делать. Если за него это сделали "оруженосцы" ;) тобишь писатели его ЯП или писатели библиотек которые программер использует. Ну а если он выбрал ленивых оруженосцев - его проблемы ;)

[br.Reanimator]

да я почти со всем согласен! ;) не буду спорить.
насчет молодости - я не так уж молод, а все равно люблю "изобретать велосипед".

если нужно быстро и качественно выполнить РАБОТУ - я тоже считаю, что надо полагаться на надежные и проверенные средства языка или библиотек!

так что можно и не спорить

[aSj]

Я имел ввиду - молод как программист ;) А не по возрасту ;)
Вобщем-то все до где-то пяти-десяти лет знакомства с программингом - это молодость.
Потом она проходит. Ну, при условии что программингом в это время пользовались регулярно, конечно ;) За это время успеваешь неплохо повелосипедить ;) И в третий-пятый-десятый раз писать рекурсивный поиск, сортировку, алгоритм обхода графа - начинает просто ломать ;)
ps: а не спорить - это не интересно ;)

[br.Reanimator]

Я имел ввиду - молод как программист ;) А не по возрасту ;)
Вобщем-то все до где-то пяти-десяти лет знакомства с программингом - это молодость.
Потом она проходит. Ну, при условии что программингом в это время пользовались регулярно, конечно ;) За это время успеваешь неплохо повелосипедить ;) И в третий-пятый-десятый раз писать рекурсивный поиск, сортировку, алгоритм обхода графа - начинает просто ломать ;)
ps: а не спорить - это не интересно ;)

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

[aSj]

Программер без собственного компа? Ты серьезно?
(ломая голову в попытках это себе представить)
Это как? Получается, что ни книжку не почитать по нормальному низзя (упражнения патамучта выполнять надо. Да и поди найди эти книжки в бумажном варианте и за приемлимые деньги) Ни тематические форумы/эхи/etc не почитать. Ни просто поэкспериментировать, когда приспичило или что-то заинтересовало. УжЫс. Честно говоря, представляеться с большиим трудом.

[br.Reanimator]

Программер без собственного компа? Ты серьезно?
(ломая голову в попытках это себе представить)
Это как? Получается, что ни книжку не почитать по нормальному низзя (упражнения патамучта выполнять надо. Да и поди найди эти книжки в бумажном варианте и за приемлимые деньги) Ни тематические форумы/эхи/etc не почитать. Ни просто поэкспериментировать, когда приспичило или что-то заинтересовало. УжЫс. Честно говоря, представляеться с большиим трудом.

да не говори, действительно ужас! приходилось выкручиваться

[Paralax]

Друзья!
Под Linux-системами есть свой паскаль-компилятор. Кто пользовался, расскажите возможности и можно ли к нему прикрутить стантартный Turbo Vision от Borland? И вообще поддерживает ли он объекты? Пока проверить возможности нет- почему и спрашиваю.

[nobody]

Точно нет. ТурбоВижн была написана специально для Турбо С и Турбо Паскаля. Есть вот такой порт http://tvision.sourceforge.net/, но там для gcc и насчет практической применимости есть сомнения.

[aSj]

<moderator_hat>
Qwadrat - нехорошо вводить людей в заблуждение.
</moderator_hat>
С freepascal-ем идет порт турбовижн, называеться freevision. Ихнее текстмодное иде а-ля борланд пасквиль написано именно на нем. Работать - работает. Правда, в те времена когда я на это смотрел (где-то 1.0.5) выглядело не очень. Возможно, сейчас стало лучше. Вопрос о необходимости в XXI веке в текстмодных пародиях на гуи оставляю за скобками.
paralax, не знаю как там с ним сейчас, сходи на ихнюю страничку (www.freepascal.org, если ничего не поменялось) и почитай. По состоянию на 1.0.5 - у него был режим эмуляции компилятора дельфи. Вдобавок, там прикрутили кучу всякой фигни типа c++ операций +=, -=, ,*=, перегрузку операторов, еще чего-то, сейчас уже и не помню. В то время был весьма глючен, да и по размеру бинарей - достойный продолжатель монстроклепания.
Насколько слышал, сейчас стало полегче - но это слухи, сам не пробовал - оно мне уже не нужно. Относительно недавно появилась графическая среда эмулирующая delphi (lazarus), но что там почем - я абсолютно хез. По слухам - по количеству глюков достойный продолжатель delphi. ;)

[qwas]

Как расшарить диск?

[qwas]

[aSj]

А что ты хотел? Каков вопрос, таков ответ.
a) пиши подробней
б) причем тут delphi/pascal? Такие вопросы задаються в места посвещенные winapi.
в) если я правильно тебя понял, тебе нужна NetShareAdd

[qwas]

Надо получить дату создания файла и записать его в какое-нибуть текстовое поле.
У меня почему-то получается не дата, а какие то левые цыфры.

[V@$Y@]

ктО-нить скиньте сюда плиз, задачи готовые по ТурбоПаскалю разные (я их как образец возЬму)
З:Ы: Траффика на инете нет..так бы по сайтам пошарился бы по нашим:(

[Tango]

Что-то вроде этого?

Из отрезка [a;b] вывести число n, которое, при случайном выборе чисел, появится в отрезке (знаю, сформулировала некорректно)..

program laba3pr1;
uses crt;
var a,b,c,i,p,n:integer;
begin
clrscr;
randomize;
writeln ('Vvedite otrezok [a,b]');
readln (a,b);
write ('n=');
readln (n);
p:=0;
for i:=1 to n do
begin
c:=round(random(b-a)+a);
if (c<0) and (odd(c)=false) and (c mod 3<>0) then
begin
p:=p+1;
end;
writeln (c);
end;
writeln ('takih chisel ',p);
readln;
end.

[v_b]

Находит самое короткое слово из введенных...
uses crt;
var
d,i,k,min,p: integer;
s,q: string;
v: array [1..20] of string;
begin
readln(s);
clrscr;
d:=length(s);
min:=d;
for i:=1 to d do
begin
if s[i]<>' ' then
p:=p+1
else begin
k:=k+1;
v[k]:=copy(s,i-p,p);
writeln(v[k]);
if p<min then begin
min:=p;
q:=v[k];
end;
p:=0;
end;
end;
writeln('min dlinna=',min,' ',q);
end.

[Dan]

Возник вопрос по Паскалю!!! Работа с динамической памятью. Как перенести запись, удовлетворяющую условию, в конец списка!!! Например, создал 5 записей, надо найти людей, которые учатся на 2-ом курсе, и перенести их в конец списка!!! I need help!!!

[Dan]

V@$Y@ вот есть один сиходник, может тебе чем поможет!!!
Program Bugaga;
uses crt;
type
TList=^TPList;
TPList=record
Family: string[30];
Name: string[20];
Rate: 1..6;
Next: TList;
end;
var
Prev_List, Curr_List, Head_List, End_of_list: TList;
Begin
Clrscr;
New(Curr_List);
Write('Family [30]: '); readln(Curr_List^.Family);
Write('Name [20]: '); readln(Curr_List^.Name);
Write('Rate [1..6]: '); readln(Curr_List^.Rate);
Head_List:=Curr_List;
While (Curr_List^.Rate<=6) and (Curr_List^.Rate>=1) do
Begin
New(Curr_List^.Next);
Prev_List:=Curr_List;
Curr_List:=Curr_List^.Next;
Write('Family [30]: '); readln(Curr_List^.Family);
Write('Name [20]: '); readln(Curr_List^.Name);
Write('Rate [1..6]: '); readln(Curr_List^.Rate);
end;
End_of_list:=Curr_List;
Curr_List:=Head_List;
Prev_List:=nil;
While (Curr_List^.Rate<3) and (Curr_List^.Rate>=1) do
Begin
if Curr_List^.Rate=2 then
Begin
If Prev_List<>nil then
Begin
Prev_List^.Next:=Curr_List^.Next;
End_of_List^.Next:=Curr_List;
End_of_List:=End_of_List^.Next;
End_of_List^.Next:=nil;
Curr_List:=Prev_List^.Next;
end else
Begin
Head_List:=Curr_List^.Next;
End_of_List^.Next:=Curr_List;
Curr_List:=Curr_List^.Next;
End_of_List:=End_of_List^.Next;
End_of_List^.Next:=nil;
End;
End else
Begin
Prev_List:=Curr_List;
Curr_List:=Curr_List^.Next;
End;
End;
Curr_List:=Head_List;
Clrscr;
While Curr_List<>nil do
Begin
If (Curr_List^.Rate>=1) and (Curr_List^.Rate<=6) then
Begin
Write('Family: ');
writeln(Curr_List^.Family);
Write('Name: ');
Writeln(Curr_List^.Name);
Write('Rate: ');
Writeln(Curr_List^.Rate);
End;
Curr_List:=Curr_List^.Next;
End;
Curr_List:=Head_List;
While Curr_List<>nil do
Begin
Curr_List^.Next:=nil;
Dispose(Curr_List);
Curr_List:=Head_List^.Next;
Head_List:=Head_List^.Next;
End;
End.

[nons]

научитесь пользоваться тегом форматирования кода [code]!!!

[Dee]

скажите как создать каталог в паскале, поподробней плизз