Применение логических операций с оператором IF.

В данном уроке мы рассмотрим применение логической операции And с условным оператором If.

Процедура Writeln в Pascal

Помимо зарезервированного слова Write, для вывода сообщения на экран в Pascal используется процедура Writeln. Отличие процедуры Writeln от оператора Write заключается в том, что Writeln после вывода сообщения на экран переводит курсор на другую ...

Процедуры Dec и Inc в Pascal.

При работе с целыми числами используются процедуры DEC и INC. Процедура Dec уменьшает число на определенное значение, а процедура Inc увеличивает число на определенное значение.

Циклы и массивы

Спецификация процедуры.

Процедура представляет собой программу в миниатюре, являясь в свою очередь частью основной программы или другой процедуры. Синтаксис процедуры полностью повторяет синтаксис программы.

Организация условного перехода. Оператор IF.

Для программирования разветвляющихся процессов, содержащих две ветви, используется оператор IF условного перехода (ветвления), имеющий две конструкции.

Компилятор Free Pascal

Установка компилятора Pascal - процесс не очень сложный, но очень нужный. Для изучения языка программирования Pascal Вам потребуется установить компилятор Free Pascal на свой компьютер. В этой статье рассказывается о том как правильно установить и настроить Free Pascal для работы в Windows 7.

Для начала необходимо скачать компилятор Free Pascal. Ниже приведено несколько ссылок, где вы можете скачать Free Pascal бесплатно. Программы, которые разбираются в уроках на этом сайте, выполнялись на компиляторе версии 2.2.2. Вы можете использовать любую версию компилятора Pascal (либо 2.2.2 либо более позднюю версию 2.4.4), принципиальных отличий между ними нет.


Free Pascal - версия 2.2.2 Скачать с DepositFiles

Free Pascal - версия 2.4.4 Скачать с DepositFiles


В скачанном архиве Вы найдете файл fpc-2.2.2.i386-win32.exe.

Запускайте его двойным нажатием левой кнопки мыши и каждый раз, при необходимости, нажимайте на кнопку «Далее». После окончания установки на диске «С» появится папка «FPC». Заходим в эту папку. Далее заходим в папку «2.2.2», затем в папку «bin», а затем в папку «i386-win32». Здесь нам необходимо создать директорию для хранения исходных кодов наших программ. Создаем папку с названием «Programs».

Sozdanie papki s ishodnikamiТеперь запускаем Free Pascal с помощью ярлыка на рабочем столе.

Zapusk Free PascalПо умолчанию, все созданные в Free Pascal программы, сохраняются в папке "i386-win32. Для того чтобы программы сохранялись в созданной нами папке "programs" необходимо поменять текущий каталог. Для этого заходим «File – Change dir».

Izmenenie directorii soxranenijaОткроется окно для выбора текущей директории.

Izmenenie directorii soxranenija.

Выбираем директорию «programs», затем нажимаем «Chdir», затем «Ok».
Теперь создадим программу и сохраним ее. Для создания новой программы переходим «File - New». Окно Free Pascal станет синего цвета. В том окне набираем код программы:

program number1;
begin
write (‘Привет.’);
readln
end.

Programma

После написания программы нажимаем «File – Save as…» и в открывшемся окне в поле «Name» указываем название программы (например, «programma»). Затем нажимаем «Ok».

Sohranenie programmТеперь наша программа сохранена в папке «programs». Для ее запуска необходимо нажать «Ctrl+F9».

vivod na ekran

В самой последней строке Вы увидите слово «Привет». Это и есть цель нашей программы – вывести на экран сообщение. (О том, как работает эта программа, Вы узнаете в первом уроке). В заключении следует сказать, что после закрытия Free Pascal все прописанные нами пути сбрасываются. Поэтому каждый раз после запуска Free Pascal необходимо менять текущий каталог i386-win32 (который стоит по умолчанию) на каталог "programs" (который мы создали).



Дополнение к материалу.

После запуска программы может возникнуть ошибка "Error: Illegal parametr: -Opentium3". Чтобы избежать подобной ситуации необходимо зайти в папку FPC\2.2.2\bin\i386-win32. Здесь найти файл "fp.cfg". Открыть его с помощью любого текстового редактора (например, блокнота), найти слова -Opentium3 (их может быть несколько) и заменить их на -Op3. После этого не забудте сохранить изменения.

Комментарии  

 
-15 # саша 28.07.2012 13:34
e588k
 
 
+16 # саша 28.07.2012 13:36
весма хорошо
 
 
+11 # Alice 26.10.2012 20:08
Спасибо огромное! Жутко довольна, работает блестяще! :D
 
 
+5 # Илгиз 04.12.2012 04:06
Наконец начал работать :roll:
 
 
+5 # Beowolf 04.12.2012 05:46
Спасибо !
 
 
-12 # p459m 11.12.2012 12:05
:P :D :lol: :-) ;-) 8) :-| :-* :oops: :sad: :cry: :o :-? :-x :eek: :zzz :P :roll: :sigh: =)
XD
 
 
-3 # OLEG 14.12.2012 18:23
Хорошая прога!! 8) :lol: :D
 
 
-5 # настена 17.12.2012 16:07
у меня не открывается поле, после запуска программы((
 
 
-5 # Александр 18.12.2012 16:03
Даже не включается :sad:
 
 
+8 # Ден 10.01.2013 11:40
пишет compile failed
 
 
0 # Кристофер 16.06.2014 07:27
Значит ошибка в программном коде. Посмотрите, может вы совершили ошибку в самих скриптах?
 
 
0 # Аспасия 17.01.2013 12:29
спасибо огромное!!! очень помогли
 
 
0 # Никитос 25.01.2013 14:13
Ден, ты ввел неправильно программу, проверь еще раз. может ты точку с запятой не поставил и т. п.
 
 
+1 # Ольга 31.01.2013 06:02
для win 7, к сожалению, окно fpc 32 очень маленькое. Как его увеличить на весь экран?
 
 
-2 # Ирин 01.02.2013 14:37
Alt+Enter
 
 
-2 # Ирин 01.02.2013 14:38
и сворачивается аналогично
 
 
-4 # Ирин 01.02.2013 14:49
а стоп, у вас семерка? на ней не сработает..
 
 
+2 # Wugen 04.12.2015 16:45
Соизвольте, но как у меня 10-ка что мне делать
 
 
0 # Андрей 03.02.2013 10:59
У меня другая проблема: после нажатия Ctrl+F9 у меня появляется это окно на пол секунды или даже меньше и сразу пропадает. подскажите что сделать.
 
 
+3 # Мариша 09.02.2013 18:29
Alt+F5
 
 
-1 # like 12.02.2013 14:03
good :lol:
 
 
-1 # Антон 26.02.2013 19:05
Теперь-то я наконец понял, почему тут в каждой программе подключается модуль crt для очистки экрана 8)
 
 
-1 # Шамиль 13.03.2013 13:52
при запуске программы с помощью Alt+f9 у меня появляется черный экран просто тупо черный экран
 
 
-1 # Александр 16.03.2013 16:05
8) Всё ясно, понятно!
 
 
-1 # Петяй 17.03.2013 19:14
у меня win7, Всё делал как написано, все работает.
:lol:
вопрос- как вернуться обратно в синее меню после просмотра программы "привет"
 
 
-1 # Иван 23.03.2013 01:02
Чтобы вернуться обратно в синее окно, набери в черном exit
 
 
-1 # Иван 23.03.2013 02:33
Исправляюсь(неп равильно написал). Если открыто окно Debug --> Output то жми левый верхний салатовый квадратик(закры ть окно). Если открыто окно Debug --> User screen ,то нажать любую клавишу на клавиатуре.
 
 
-1 # Наталья 23.03.2013 09:40
почему при запуске free pascal у меня открывается окно с последней программой? Что нужно сделать, чтобы открывалось "чистое" окно без текста программы
 
 
0 # Чел 18.03.2014 07:38
Заходим Options -> Environment -> Preferences. Открывается панель AutoSave где нужно убирать отметки с двух пунктов: "Editor files", "Desktop", пункт "Environment" остается без изменений.
Чтобы отключить открытие последних файлов в автоматическом режиме в Пскаль делаем следующие действия:
Заходим в "Options->Envir onment->Desktop ..", далее в диалоговом окне "Desktop Preferense" убираем отметку с пункта "Open windows"
 
 
0 # Наталья 15.01.2015 02:31
Попробовала сработает 1-2 раза а то и не разу. Но потом снова все по прежнему пи новом запуске открывается последняя программа. Машин много и если мне на каждой делать это после включения ... Ух
 
 
-3 # Ирина 03.04.2014 13:19
Спасибо за подсказку. Нигде не могла найти такой информации, чтобы не открывалась последняя программа!
 
 
-2 # виталя 24.06.2014 17:46
Вроде все сохраняет но несохраняет в формат .exe и некак не запустить программу.что делать????
 
 
-2 # Den 10.07.2014 11:44
Нужно зайти FPC\2.4.4\bin\i 386-win32 и выбрать fp.exe, тогда все запустится
 
 
-1 # Nat 13.12.2014 21:45
Мои файлы автоматом сохраняются в \bin\i386-win32 \, пытаюсь изменить как рекомендовано в этой статье, но настройка не сохраняется, при следующем запуске FP опять все по-старому.
И при "Open" тоже открывается не моя директория. Помогите если кто знает как это настроить. Спасибо
 
 
+1 # vladimir 23.01.2015 12:20
Может быть, кто знает как все-тки развернуть на полный экран окно в windows 7 или vista? Оченнь символы мелкие-трудно читать.
 
 
-2 # dmitriy 24.01.2015 04:30
Не выходит черный экран с результатом программы! В чем проблема? У меня windows 7
 
 
-1 # андрей 08.08.2015 15:11
ана на windos 7 идет???????
 
 
0 # Георгий 24.01.2016 09:25
Скажите пожалуйста, какой файл необходимо открыть, если ярлыка нет, чтобы запустить программу?
 
   ГлавнаяПаскальУстановка Free PascalУстановка Free Pascal в Windows.