И снова системы счисления Опции

[Romtek]

Желательно генерировать число функцией Random() ,а потом сконвертировать в 16-чное в виде строки.

[Дымка]

опять проблемы..((

{rewenie 4etvertoj zada4i}
            s_res := s4; prev := '';
            p4 := 1;
            repeat
               while not (s_res[p4] in abc) and (p4 <= length(s_res)) do
                  p4:=p4+1;
               while (s_res[p4] in abc) and (p4 <= length(s_res)) do
               begin
                  word := word + s_res[p4];
                  p4:=p4+1;
               end;
               if strUpper(word) = strUpper(prev) then
               begin
                  delete(s_res, p4 - length(word), length(word));
                  dec(p4, length(word));{umenwaet p na veli4inu=dline stroki word}
               end
               else
                  prev := word;
               word := '';
            until p4 > length(s_res);
            stnew:= stronespace(s_res);
            while stnew[1]=' ' do
            stnew:=copy(stnew,2,255);
            writeln('Poly4ennaya stroka: ');
            writeln(stnew);
            writeln;
            writeln;
            END; {4etvertaya zada4a}

Выдает ошибку . что строка слишком длинная, что мне сделать???Раньше этого не было(( Вот эта строка while (s_res[p4] in abc) and (p4 <= length(s_res)) do

[Romtek]

какой номер ошибки?

[Romtek]

Строку можно разбить на несколько...

while 
  (s_res[p4] in abc) 
  and (p4 <= length(s_res)) 
do

Сообщение отредактировано: Romtek - 13.07.2005 19:37

[Дымка]

теперь еще в одном месте 124 ошибка, а тауже не знаю(((

[volvo]

А вот это уже ГОРАЗДО хуже: "Statement Part Too Large" - Паскаль ограничивает размер одного блока операторов 24К, у тебя в каком-то блоке этот размер превзойден. Рекомендация: переработать структуру программы...

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

P.S. Я надеюсь, следующей ошибкой не будет Error 48: Code Segment Too Large или Error 49: Data Segment Too Large ...

[Romtek]

еще в одном месте 124 ошибка

не говори загадками. В какой именно строке?

Если есть номер ICQ, свяжись со мной.

Сообщение отредактировано: Romtek - 13.07.2005 19:50

[Romtek]

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

[Дымка]

У меня из-за 3 задачи 10 пункта начались глюки..НЕ знаю, правильно ли я вообще делаю, давайте, я выставлю что есть, посмотрите . пожалуйста!!!!Мне кажется . я опять потеряла половину end...((
Я применяла к массиву функции перевода из 10 в 16 и наоборот...После этого начались проблемы

[volvo]

Здесь - то же самое, что и в теме 4 задачи и куча вопросов: полный балаган, это тоже кандидат на закрытие. НЕ пишутся программы такой сложности (4 задания и 20 подзадач - это довольно сложная программа) в подобном стиле. В таком коде ОЧЕНЬ сложно разбираться. При том, что параллельно обсуждаются десятки заданий - это вообще малореально.

[mlc]

Файл vrt.pas скачивается не полный, размер у меня 35834. Не понял зачем там функции Hex2Dec и Dec2Hex если есть мои From_ и To_, которые делают тоже самое?

[Дымка]

Благодаря помощи Romtek'а, сделали прогу....Помогите с сохранением в файл....
Assign (F, fname);
{$I-}
Rewrite (F);
{$I+}
writeln (F, 'stroka');
close (F);
Объясните, пожалуйста куда это запихнуть...Должен быть один файл для всех задач...В файле кроме ответа должен быть номер задания.У пользователя должна быть возможность выбрать, сохранять результат или нет....

[Дымка]

И что значит вот это???
{$IFDEF FPC}
{$mode tp}
{$ENDIF FPC}

[volvo]

Дымка,

{$IFDEF FPC}
{$mode tp}
{$ENDIF FPC}

Это означает, что если программа компилируется с помощью FPC, а не Турбо Паскаля, то FPC будет эмулировать поведение компилятора TP. Если ты пользуешься только Турбо Паскалем, то эти строки (они скорее всего идут подряд?) можно вообще убрать...

[Archon]

Благодаря помощи Romtek'а, сделали прогу....Помогите с сохранением в файл....
Assign (F, fname);
{$I-}
Rewrite (F);
{$I+}
writeln (F, 'stroka');
close (F);
Объясните, пожалуйста куда это запихнуть...Должен быть один файл для всех задач...В файле кроме ответа должен быть номер задания.У пользователя должна быть возможность выбрать, сохранять результат или нет....

Прогу то хоть покажи.

[mlc]

Благодаря помощи Romtek'а, сделали прогу....Помогите с сохранением в файл....

После этой фразы Romtek просто обязан довести дело до конца, а то выходит, что все сделал, а файлы не смог...

[Дымка]

Спасибо огромное всем, кто помогал, терпел тупые вопросы, подсказывал, направлял по пути правильного решения...Практику сдала на 4...Хотя не думала, что столько труда, времени , сил и нервов будет оценено именно так....Препод придрался именно к мелочам, видимо из вредности...А, может быть посадюшничать хотел...С сохранением в файл разобралась сама...