Pascal abc net как сделать exe

У всех кто писал программы на Pascal, когда-нибудь возникал вопрос:
Как передать своё творение другому человеку без компилятора весом около 40 мегабайт и без исходного кода?

Конечно, можно объяснить получателю, как и каким образом нужно скомпилировать ваш проект, но не все на это пойдут.
Потому, что у людей могут быть более важные дела или те, которые приносят им радость и удовольствия, например посиделки Вконтакте или игры…

Поэтому, все разработчики, пускающие свою программу в свет, создают исполняемый файл «.exe», а не кидаются исходным кодом.

Как из кода на Pascal ABC.net сделать исполняемый файл .exe?

Откройте ваш код в «PascalABC.NET»

 

В верхнем меню окна выберите «Сервис» -> «Настройки…»
2_PascalABC.NET как сделать exe
В открывшимся окне настройки, выберите раздел «Функции компилятора»
3_PascalABC.NET как сделать exe
В разделе «Опции компилятора»:
Отключите галку с надписи: «Удалять EXE-файл после выполнения»
Поставьте галку в поле «Выходные файлы генерировать в папку»
Щелкнув на кнопку  «Обзор…» выберите место, где будет создаваться exe файл(это можн сделать на рабочем столе или в папке с программой)
Не забудьте нажать кнопку «ОК», чтобы применить новые настройки.
4_PascalABC.NET как сделать exe
На этом настройки закончились. 
 
Теперь запустите вашу программу и посмотрите в то место, которое вы указали щелкнув по кнопке «Обзор…».
В этой папке будет находиться исполняемый файл вашей программы, имеющий такое же имя, как у файла «.pas». 
Результат:
5_PascalABC.NET как сделать exe

20 Комментарии “Pascal abc net как сделать exe

  1. Блин капец я когда компилирую в структуре программы все в поряде а когда создаю отдельный exe шник после завершения программы она сразу вырубается не успеваешь результат посмотреть. Что делать

    1. Попробуйте поставить в конце программы задержку «sleep(5000);» или
      ждать нажатие какой-либо клавиши «readln;».
      Желаю удачи.

  2. еще вопрос: а как сделать так чтобы после завершения программы я мог не закрывая программу смог выполнить ее еще раз ну например я написал калькулятор uses crt;
    var c :string;
    a ,d ,g : real;

    begin
    writeln(‘Напишите первое число’);
    readln(a);
    writeln(‘Напишите знак операции’);
    readln(c);
    writeln(‘Напишите второе число’);
    readln(d);
    if c=(‘+’) then g:=a+d;
    if c=(‘-‘) then g:= a-d;
    if c=(‘*’) then g:= a*d;
    if c=(‘/’) then g:= a/d;
    writeln(‘Сумма=’,g);
    readln;
    end.
    и сложил два числа потом программа пишет «Программа завершена нажми любую клавишу » а как сделать так чтобы я смог решать примеры не выходя каждый раз из программы????

    1. Можно использовать бесконечный цикл:
      uses crt;
      var
      c :char;
      a ,d ,g : real;
      begin
      repeat
      writeln(‘Напишите первое число’);
      readln(a);
      writeln(‘Напишите знак операции’);
      readln(c);
      writeln(‘Напишите второе число’);
      readln(d);
      if c=(‘+’) then g:=a+d;
      if c=(‘-‘) then g:= a-d;
      if c=(‘*’) then g:= a*d;
      if c=(‘/’) then g:= a/d;
      writeln(‘Сумма=’,g);
      until false;
      end.

      Но тогда программа зациклится и пользователь будет вводить данные вечно, пока не догадается нажать на крестик:)
      Лучше будет написать вот так:
      uses crt;
      var
      c :char;
      a ,d ,g : real;
      begin
      repeat
      writeln(‘Напишите первое число ( q — выход из программы )’);
      readln(c);
      if c = ‘q’ then exit;
      writeln(‘Напишите знак операции’);
      readln(a);
      writeln(‘Напишите второе число’);
      readln(d);
      if c=(‘+’) then g:=a+d;
      if c=(‘-‘) then g:= a-d;
      if c=(‘*’) then g:= a*d;
      if c=(‘/’) then g:= a/d;
      writeln(‘Сумма=’,g);
      until false;
      end.
      Сначала мы вводим символ, если узнаём что он буква q — завершаем программу.

      1. uses crt;
        var
        c :char;
        a ,d ,g : real;
        begin
        repeat;
        writeln(‘Напишите первое число(q — выход из программы)’);
        readln(a);
        if c = ‘q’ then exit;
        writeln(‘Напишите знак операции’);
        readln(c);
        writeln(‘Напишите второе число’);
        readln(d);
        if c=(‘+’) then g:=a+d;
        if c=(‘-‘) then g:= a-d;
        if c=(‘*’) then g:= a*d;
        if c=(‘/’) then g:= a/d;
        writeln(‘Сумма=’,g);
        until false;
        end.
        я подкорректировал прогу!!! 🙂

  3. 1.Сохраняю .exe файл с uses graphabc.net.
    2.Открываю его,появляется окно консоли вместе с graph.
    3.Как убрать окно консоли?

    1. Такое может быть в случае, если в программе нет кода. Или он выполняется очень быстро, что мы не успеваем ничего увидеть)

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *