У всех кто писал программы на Pascal, когда-нибудь возникал вопрос:
Как передать своё творение другому человеку без компилятора весом около 40 мегабайт и без исходного кода?
Конечно, можно объяснить получателю, как и каким образом нужно скомпилировать ваш проект, но не все на это пойдут.
Потому, что у людей могут быть более важные дела или те, которые приносят им радость и удовольствия, например посиделки Вконтакте или игры…
Поэтому, все разработчики, пускающие свою программу в свет, создают исполняемый файл «.exe», а не кидаются исходным кодом.
Как из кода на Pascal ABC.net сделать исполняемый файл .exe?
Откройте ваш код в «PascalABC.NET»
В верхнем меню окна выберите «Сервис» -> «Настройки…»
В открывшимся окне настройки, выберите раздел «Функции компилятора»
В разделе «Опции компилятора»:
Отключите галку с надписи: «Удалять EXE-файл после выполнения»
Поставьте галку в поле «Выходные файлы генерировать в папку»
Щелкнув на кнопку «Обзор…» выберите место, где будет создаваться exe файл(это можн сделать на рабочем столе или в папке с программой)
Не забудьте нажать кнопку «ОК», чтобы применить новые настройки.
Отключите галку с надписи: «Удалять EXE-файл после выполнения»
Поставьте галку в поле «Выходные файлы генерировать в папку»
Щелкнув на кнопку «Обзор…» выберите место, где будет создаваться exe файл(это можн сделать на рабочем столе или в папке с программой)
Не забудьте нажать кнопку «ОК», чтобы применить новые настройки.
На этом настройки закончились.
Теперь запустите вашу программу и посмотрите в то место, которое вы указали щелкнув по кнопке «Обзор…».
В этой папке будет находиться исполняемый файл вашей программы, имеющий такое же имя, как у файла «.pas».
Результат:
Блин капец я когда компилирую в структуре программы все в поряде а когда создаю отдельный exe шник после завершения программы она сразу вырубается не успеваешь результат посмотреть. Что делать
Попробуйте поставить в конце программы задержку «sleep(5000);» или
ждать нажатие какой-либо клавиши «readln;».
Желаю удачи.
Отлично спасибо AndHacker помогла команда sleep() спосибо
На здоровье!
еще вопрос: а как сделать так чтобы после завершения программы я мог не закрывая программу смог выполнить ее еще раз ну например я написал калькулятор 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.
и сложил два числа потом программа пишет «Программа завершена нажми любую клавишу » а как сделать так чтобы я смог решать примеры не выходя каждый раз из программы????
Можно использовать бесконечный цикл:
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 — завершаем программу.
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.
я подкорректировал прогу!!! 🙂
Молодец, умеешь менять переменные местами)
Отлично работает, спасибо!!!
Всегда пожалуйста, обращайтесь)))
А можно как нибудь поставить иконки на создаваемые программы.
Да, можно. Статья о том, как поставить иконку на программу Pascal ABC: http://blogivanova.ru/?p=410
1.Сохраняю .exe файл с uses graphabc.net.
2.Открываю его,появляется окно консоли вместе с graph.
3.Как убрать окно консоли?
привет из 2017!!!
привет из 2019 как сделать сталкер в этой программе???
На Pascal ABC возможно все)))
rthtr
spasibo
У меня проблема, файл exe запускается и сразу же отключается
Такое может быть в случае, если в программе нет кода. Или он выполняется очень быстро, что мы не успеваем ничего увидеть)