Как пользоваться отладчиком в Free Pascal?

@web-raised · Регистрация: 25.03.2013

Author24 — интернет-сервис помощи студентам

Подскажите как им пользоваться, чтобы при проверке показывало значения переменных на даный шаг программы или напишите источник, где об этом написано. Уже 2 ищу и не могу найти о отладчике, чтобы проверить программу

Pascal

program Task1;
Var n,j,code,z:integer;
    Chislo    :string;
    c,Res     :longint;
 Function Ch(l:char) :integer;
  var g,u:integer;
  Begin
         case l of
           'a','A':u:=10;
           'b','B':u:=11;
           'c','C':u:=12;
           'd','D':u:=13;
           'e','E':u:=14;
           'f','F':u:=15;
         else val(l,u,code);
         Ch:=u;
         end;
  End;
 Function St (x,y:integer):longint;
   var t:longint;
       i:byte;
   Begin
        T:=x; i:=1;
        if y=0 then St:=1
               else begin
                    while i<y do
                      begin
                        T:=T*x;
                        inc(i);
                      end;
               St:=T;
        end;
 End;
 
 
BEGIN
 
 Readln(chislo); Readln(n);
 Res:=0; j:=0;
 z:=length(chislo);
 while z>=1 do
   begin
    C=Ch(Chislo[z]);
    C:=C*St(n,j);
    Res:=Res+C;
    inc(j);
    dec(z);
   end;
 Writeln(Res); read;
 
END.

@volvo · 17.01.2014, 17:17

В меню Debug->Watches, появляется окно просмотра переменных/выражений. Чтобы добавить туда переменную - установи на нее курсор и нажми Ctrl+F7... И отслеживай изменения... Подробнее можно почитать в файле FPC\2.6.2\doc\user.pdf, раздел "6.9 Debugging programs"

@ildwine · 17.01.2014, 17:18

1. Синюю рабочую область уменьшаете в сторону верха (ну оставляете ее на 2/3 окна), взявшись за нижний правый угол.
2. Нажимаете в меню Debug-Watches. Откроется окно Watches в освобожденной от синего окошечка области.
3. Двойной щелчек в области этого окна позволяет добавить наблюдаемую переменную.
4. После этого c помощью клавиш Ctrl+F7, Ctrl+F8 построчно исполняете программу и смотрите изменение переменных.

@volvo · 17.01.2014, 17:21

Сообщение от ildwine

После этого c помощью клавиш Ctrl+F7, Ctrl+F8 построчно исполняете программу

Построчное исполнение - без Ctrl, просто F7/F8, с контролом - это добавление Watch и установка Breakpoint-а.

@ildwine · 17.01.2014, 17:23

Не по теме:

Сообщение от UI

Построчное исполнение - без Ctrl

Ещё ведь написал сначала F7/F8, потом исправил... :-|

@web-raised · 17.01.2014, 17:38 **[ТС]**

Что за ошибка? Мне нужно в функцию брать последний символ строки, потом предпоследний і так далее до первого.
Программа переводит число с 16 системі счисления в 10.

@ildwine · 17.01.2014, 17:40

Pascal

1	C:=Ch(Chislo[z]);

Добавлено через 32 секунды
В листинге с первого поста 43 строка

@web-raised · 17.01.2014, 17:41 **[ТС]**

ildwine,
В первом сообщении видно, что у меня было точно так же, но ошибка идентичная.

Добавлено через 50 секунд
ildwine,
Да, в листинге первый пост, то я писал программу, но сегодня начала видавать эту ошибка, я уже потом начал переделывать как на фото.

@ildwine · 17.01.2014, 17:46

Вот без ошибок:

Pascal

program Task1;
Var n,j,code,z:integer;
    Chislo    :string;
    c,Res     :longint;
 Function Ch(l:char) :integer;
  var g,u:integer;
  Begin
         case l of
           'a','A':u:=10;
           'b','B':u:=11;
           'c','C':u:=12;
           'd','D':u:=13;
           'e','E':u:=14;
           'f','F':u:=15;
         else val(l,u,code);
         Ch:=u;
         end;
  End;
 Function St (x,y:integer):longint;
   var t:longint;
       i:byte;
   Begin
        T:=x; i:=1;
        if y=0 then St:=1
               else begin
                    while i<y do
                      begin
                        T:=T*x;
                        inc(i);
                      end;
               St:=T;
        end;
 End;
 
 
BEGIN
 
 Readln(chislo); Readln(n);
 Res:=0; j:=0;
 z:=length(chislo);
 while z>=1 do
   begin
    C:=Ch(Chislo[z]);
    C:=C*St(n,j);
    Res:=Res+C;
    inc(j);
    dec(z);
   end;
 Writeln(Res); read;
 
END.

Добавлено через 2 минуты
А то, что у вас на скрине, откуда знать... Единственное вижу, что тоже = вместо :=

@web-raised · 17.01.2014, 17:48 **[ТС]**

ildwine,
Большое спасибо, паралельно изучаю С++ ) Никогда не заметил бы.

@web-raised · 17.01.2014, 17:54 **[ТС]**

При отладке ввожу строку, потом пробел/энтер, а оно начинает писать с этой же строки по введённой мною строке и выходит лажа, ещё й ошибка в проверке переменных.

@volvo · 17.01.2014, 18:01

В каком режиме скомпилирована программа? В Normal, Debug или Release? Проверь, что выставлено в Options->Mode, и какие настройки стоят в Options->Debugger (генерируется ли отладочная информация вообще?)

Добавлено через 1 минуту

Сообщение от web-raised

а оно начинает писать с этой же строки по введённой мною строке

Pascal

1
2
3

program Task1;
Uses Crt; // добавление этого модуля решает эту проблему
Var n,j,code,z:integer;

@web-raised · 17.01.2014, 18:45 **[ТС]**

Помогите , короче, исправить программу, чтобы она , когда вводишь число в системе счисления n<=16 виводила число в 10 системе. Например Ввод 101 2 Вывод 5 , Ввод 1bc 15 или 16 Вывод 444 (1ВС16=1*162 +11* 16і +12*16° =444 ).
И , если можно, и на C++ , пожалуйста. Буду очень благодарен.

Добавлено через 15 минут
Спасибо всем огромное, задача заработала. Осталось ещё перевести в С++.

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	17.01.2014, 17:17	2
	В меню Debug->Watches, появляется окно просмотра переменных/выражений. Чтобы добавить туда переменную - установи на нее курсор и нажми Ctrl+F7... И отслеживай изменения... Подробнее можно почитать в файле FPC\2.6.2\doc\user.pdf, раздел "6.9 Debugging programs" 1

@ildwine Супер-модератор 6192 / 2938 / 1300 Регистрация: 04.03.2013 Сообщений: 5,780 Записей в блоге: 1
	17.01.2014, 17:18	3
	1. Синюю рабочую область уменьшаете в сторону верха (ну оставляете ее на 2/3 окна), взявшись за нижний правый угол. 2. Нажимаете в меню Debug-Watches. Откроется окно Watches в освобожденной от синего окошечка области. 3. Двойной щелчек в области этого окна позволяет добавить наблюдаемую переменную. 4. После этого c помощью клавиш Ctrl+F7, Ctrl+F8 построчно исполняете программу и смотрите изменение переменных. 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	17.01.2014, 17:21	4
	Сообщение от ildwine После этого c помощью клавиш Ctrl+F7, Ctrl+F8 построчно исполняете программу Построчное исполнение - без Ctrl, просто F7/F8, с контролом - это добавление Watch и установка Breakpoint-а. 1

@ildwine
	17.01.2014, 17:23 #5
	Не по теме: Сообщение от UI Построчное исполнение - без Ctrl Ещё ведь написал сначала F7/F8, потом исправил... :-\| 0

@web-raised 7 / 7 / 2 Регистрация: 25.03.2013 Сообщений: 73
	17.01.2014, 17:38 [ТС]	6
	Что за ошибка? Мне нужно в функцию брать последний символ строки, потом предпоследний і так далее до первого. Программа переводит число с 16 системі счисления в 10. Миниатюры 0

@web-raised 7 / 7 / 2 Регистрация: 25.03.2013 Сообщений: 73
	17.01.2014, 17:41 [ТС]	8
	ildwine, В первом сообщении видно, что у меня было точно так же, но ошибка идентичная. Добавлено через 50 секунд ildwine, Да, в листинге первый пост, то я писал программу, но сегодня начала видавать эту ошибка, я уже потом начал переделывать как на фото. 0

@web-raised 7 / 7 / 2 Регистрация: 25.03.2013 Сообщений: 73
	17.01.2014, 17:48 [ТС]	10
	ildwine, Большое спасибо, паралельно изучаю С++ ) Никогда не заметил бы. 0

@web-raised 7 / 7 / 2 Регистрация: 25.03.2013 Сообщений: 73
	17.01.2014, 17:54 [ТС]	11
	При отладке ввожу строку, потом пробел/энтер, а оно начинает писать с этой же строки по введённой мною строке и выходит лажа, ещё й ошибка в проверке переменных. Миниатюры 0

@web-raised 7 / 7 / 2 Регистрация: 25.03.2013 Сообщений: 73
	17.01.2014, 18:45 [ТС]	13
	Помогите , короче, исправить программу, чтобы она , когда вводишь число в системе счисления n<=16 виводила число в 10 системе. Например Ввод 101 2 Вывод 5 , Ввод 1bc 15 или 16 Вывод 444 (1ВС16=1162 +11 16і +1216° =444 ). И , если можно, и на C++ , пожалуйста. Буду очень благодарен. Добавлено через 15 минут* Спасибо всем огромное, задача заработала. Осталось ещё перевести в С++. 0