Программирование на Pascal

**Fantom3** · 28.05.2013, 20:33

Всем привет!

На форуме создан новый раздел ПРОГРАММИРОВАНИЕ, для кто занимается программированием или хочет научится программировать.

И начнем мы, с программирования на языке Pascal

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

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

Надеюсь, кому то будет интересно.

**Nikolai.** · 28.05.2013, 21:21

Отличная тема +5

**Fantom3** · 28.05.2013, 22:03

Первая программа, с которой я попытаюсь вас познакомить, будет простенькая программа вывода текста, к примеру "Hello SatSat !!!".

Для вывода текста на экран в паскале используются команды write и writeln, команда writeln отличается тем что переводит курсор на новый рядок.

Такая программа состоит с 5 строчек кода:

Код:

program SatSat;
begin
  writeln('Hello SatSat !!!');
  readln;
end.

Без имени-1.jpg Без имени-2.jpg

Начнем с первой строчки:

program SatSat; - программа написанная на паскале начинается с служебного слова program . Далее идет название программы, оно может быть произвольным, может состоять из цифр с символами, только цифра не может занимать первое место, первой должна быть буква. И в конце рядка всегда ставим ; за исключением если после строчки стоит else, о котором тоже вскоре будет йти речь.

begin - далее мы видим служебное слово begin, что значит начало команды.

writeln('Hello SatSat !!!'); - собственно команда writeln о которой писалось выше, она выводить на экран Hello SatSat !!!

readln; - это команда ввода которая ждет ввода текста. Зачем она здесь? Если бы там не было команды readln то программа открывалась бы и сразу же закрывалась, почти незаметно, команда readln приостанавливает работу программы, до тех пор пока не будет нажат Enter.

end. - конец команды.

Надеюсь понятно, если есть вопросы спрашивайте.

**Fantom3** · 30.05.2013, 15:24

Теперь попробуем сделать, простую программку которая уже выполняет некоторые логичные действия. Например, сделаем калькулятор с помощью которого можно добавлять, отнимать, делить, умножать.

Такой калькулятор я решил организовать таким способом:

Код:

program Calkulator;
uses 
  crt;
var
  a,b:real;
  c:char;
begin
  clrscr;
  write('Введите первое число: ');
  readln(a);
  write('Введите второе число: ');
  readln(b);
  write('Введите знак действия: ');
  readln(c);
  case c of
    '+': writeln('Результат: ',a+b);
    '*': writeln('Результат: ',a*b);
    '/': writeln('Результат: ',a/b);
    '-': writeln('Результат: ',a-b);
  else 
    writeln('Вы ввели не верный знак действия!');
  end;
  readln;
end.

С помощью оператора выбора case.
Без имени-1.jpg

Давайте рассмотрим по частям эту программу:

Код:

uses 
  crt;

Подключение модуля crt, с помощью него можно много чего сделать, но я использовал его для очищения экрана.
________________________________________ ________________________________________ ______

Код:

var
  a,b:real;
  c:char;

var - раздел в котором описываются переменные, a - первое число, b - второе число, далее указывается тип переменных в данным случае конечно же указываем числовой тип real.
Переменная c отвечает за знак действия, и тип соответственно символьный - char.
________________________________________ ________________________________________ ______

Код:

 clrscr;

clrscr - очистка экрана.
________________________________________ ________________________________________ ______

Код:

write('Введите первое число: ');
  readln(a);

Команда write выводить на экран "Введите первое число:".
Команда readln(a) присваивает значение введенное с клавиатуры - переменной а.
Далее аналогично присваивается значение переменным b,c.
________________________________________ ________________________________________ ______

Код:

case c of
    '+': writeln('Результат: ',a+b);
    '*': writeln('Результат: ',a*b);
    '/': writeln('Результат: ',a/b);
    '-': writeln('Результат: ',a-b);
  else 
    writeln('Вы ввели не верный знак действия!');
  end;

Как я и говорил будет использоваться оператор case, на примере этой программы объясню как он работает.
Если переменной c, присвоить значение значение "+", то будет выполняться команда "a+b", если значение "-", то будет выполняться команда "a-b", если "*" - то "a*b", если "/" то "a/b".
Если переменной c присвоить любое другое значение, то на экран будет выведено Вы ввели не верный знак действия!.

Вот и вся программа.

Скачать исходники proga.zip.

В вложении ниже собрано очень много самой нужной информации о Паскале, которую сложно найти в интернете.

**oltush** · 31.05.2013, 01:11

Fantom3, надо бы подправить первый пост и закрепить его, разместив там основную информацию и ссылки на дистрибутивы.

P.S. Turbo Pascal - им уже мало кто пользуется, в основном - Free Pascal.
Offtop
Добавлено через 3 минуты
да забыл, для тех кому лень скачивать программы - имеется web-среда PascalABC.Net, т.е. позволяет в самом браузере проделывать те же действия. Находится по адресу:

Скрытый текст (вы должны зарегистрироваться или войти под своим логином):

У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.

**Fantom3** · 31.05.2013, 11:48

Цитата:

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


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

Добавил, вся нужная информация есть в вложении в первом посте, правда на Украинском языке, с университета осталось еще.

**Fantom3** · 01.06.2013, 18:14

Расчет, азимута, угла места, угла поворота конвертера спутниковой антенны - делаем программу с таким функционалом.

Формулы я подготовил заранее, они идентичные формулам онлайн версии программы http://satsat.info/satcalc.php, просто переписаны на язык Паскаль.

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 15 сообщение(ий)):

У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.

Ничего нового там нет, просто линейные вычисления, но по-практиковаться для новичков в самый раз.

Скачать исходники SatCalc.zip

Думаю, вскоре выложу подобною программу, но уже с более большим функционалом и понятным интерфейсом, написанную на Delphi.

alexpodol · 01.12.2013, 12:40

Жаль только, что Pascal/Delphi теряет свои позиции в последнее время

key.dach · 11.02.2014, 19:49

В ВУЗах паскаль все так же живее всех живых =)

**oltush** · 11.02.2014, 22:16

Цитата:

Сообщение от key.dach


	В ВУЗах паскаль все так же живее всех живых =)

Ну так основы или азы программирования надо же на чем-то преподавать. А с другой стороны посмотрите на преподавателей этих ВУЗов и получили утвердительный ответ по поводу смены языка программирования.