Велимир (Веримиру) все записи автора впринципе я понял, что есть что и с чем его едят...но можно ли услышать мнения по этим вещам от Вас?

Аноним (Веримиру) все записи автора Все проги под UNIX выдают при компиляции кучу ошибок типа stray '/122' in program

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

Вложение: 3585598_Dokument_microsoft_word2.doc

Велимир (Веримиру) все записи автора

uses crt;
function BinToOct(s:string):string;
var s4,s3 : string;

         begin
         s4:='';
         s3:='';
         while s<>'' do begin
                        s3:=copy(s,1,3);
                        delete(s,1,3);
                        if s3='000'then s4:=s4+'0';
                        if s3='001'then s4:=s4+'1';
                        if s3='010'then s4:=s4+'2';
                        if s3='011'then s4:=s4+'3';
                        if s3='100' then s4:=s4+'4';
                        if s3='101' then s4:=s4+'5';
                        if s3='110' then s4:=s4+'6';
                        if s3='111' then s4:=s4+'7';
                        end;
         while s4[1]='0' do delete(s4,1,1);
         BinToOct:=s4;

         end;
var i : integer;
    s,s1 : string;
begin
clrscr;
write('input string ');
readln(s);
i:=0;
s1:='';
while s<>''do
  begin
  inc(i);
  if (s[i]='1') or (s[i]='0') then s1:=s1+s[i]
                              else begin
                                   delete(s,1,i);
                                   i:=0;
                                   while length(s1) mod 3<>0 do
                                                           s1:='0'+s1;
                                   writeln(BinToOct(s1));
                                   s1:='';
                                   end;
  if (s[1]<>'1') and (s[1]<>'0')  then begin
                                      delete(s,1,1);
                                      i:=0;
                                      end;
  end;
readln;
end.

Велимир (Веримиру) все записи автора собственно я не совсем четко представляю как в точности все будет выглядеть, но для начала буду выставлять разнообразные программы на Pascal'e, не вините слишком строго, но на 1м курсе проходят пока что только этот ЯП...параллельно буду изучать C#, спрашивать у Вас что это и как его едят...приветствуются хитрые алгоритмы и приемы в программировании....и ещё! Я в этом деле практическу нуб, так что ^^ для начала: вот такую задачку дали мне на экзамен, как напишу её, то выложу листинг: "Последовательность начинается с 1-го элемента. Добавление элемента в последовательность не нарушает её упорядоченность. Придумать структуру позволяющую быстро производить поиск(бинарный) и вставлять элементы. Можно ли оценить сложность алгоритма порядка О(n*logn)?" как грится, понеслась! сожусь писать....

Открытое сообщество по программированию и все что с ним связано