Уроки Pascal ABC

[Destroyer]

Урок 1. Создание простейшей программы.

Сейчас мы попробуем написать простейшую программу - "угадай число". Все функции, использованные здесь будут объяснены.
Для начала нам нужно записать старт программы при помощи Begin (в отличии от GML, без него не одна программа или игра работать не будут. Так же не обходим и end.). Как вы уже поняли - записываем:

Код:

begin//Старт программы.

Дальше нам надо задать необходимые переменные. В данном случае их всего 2. Первая - случайно сгенерированное число, которое, в принципе и надо угадать. Второе - число, введенное пользователем. Пишем:

Код:

var a,b:Integer;//Задаем числовые переменные a и b. Если вместо Integer написать String, то переменные будут текстовыми (больше пойдет для текстовых игр), однако тогда функция random, которая нам скоро понадобится - работать не будет (она предусмотрена для переменных типа Integer).

Ползем дальше. Что нам нужно сделать теперь? Теперь нам нужно сгенерировать случайное число. Для этого нам и пригодиться функция random. Пишем:

Код:

a:=random(10);//Переменная a - случайное число от 0 до 9. Если писать random(9) - то она будет генерироваться от 0 до 8 и т.д.

Что мы должны сделать дальше? Вывести на экран задачу. С этим нам поможет writeln.

Код:

writeln('Угадай число от 1 до 9!');//Выводим на экран сообщение "Угадай число от 1 до 9!"

С этим тоже вроде как закончили. Далее пишем следующее:

Код:

readln(B);//Теперь человек должен ввести число, которое компьютер сгенерировал случайно. Readln помогает "принимать" текст, введенный пользователем.

Что дальше надо? Правильно, сравнивать число заданное и число введенное. Пишем:

Код:

if b=a then writeln('Верно');//Если оба числа совпадают - пишем, что все верно.
if b>a then writeln('Много'); //Если введенное число больше случайного - пишем, что много.
if b<a then writeln('Мало'); //Если введенное число меньше случайного - пишем, что мало.

И, как вы уже поняли, закрываем программу при помощи:

Код:

end.

Вот и все. Первая простейшая программа написана!

[Fantom]

Ни единого намёка на использование .NET технологий.

[Destroyer]

Ни единого намёка на использование .NET технологий.

Это да, но эти "намеки" будут с 7-8 урока. Пока лучше уберу .net из название, дабы не вводить людей в заблуждение.

[AndrewVideoGames]

 Подразумевается, что модули crt(потом понадобятся и graph) уже подключены?
 Так же, не плохо было бы чистить экран clrscr. И перед end разве не нужно прописать readkey?

[Destroyer]

Урок 2. Пишем псевдо-калькулятор (пока только на 2 числа).

А сейчас мы напишем калькулятор. В прошлом уроке я вам объяснил типы переменных string и integer. Сейчас объясню еще 2. Как обычно - начинаем программу:

Код:

begin

Теперь поговорим о новых типах переменных: real. Т.к. integer у нас - только целые числа, то real - десятичные (с остатком). Пишем:

Код:

var a,b,r:real//Задаем переменную r, типа real. Она у нас послужит для результата.

Так же присутствует тип char - символ. Он может быть на +, так и W, -, / и т.д. Пишем:

Код:

s:char//Задаем переменную s типа char. Она у нас послужит для знаков, типа +, - и т.д.

Первая часть закончена. Переходим к следующей - основной. И так, сделаем чтобы игрок по очереди вводил каждую переменную (кроме r), сначала a, потом s, потом b. Если вы читали прошлый урок - то уже поняли, что для этого есть функция readln. Поехали.

Код:

readln(a);//Вести переменную a
 readln(s);//Вести переменную s
 readln(b);//Вести переменную b

Теперь настало самое интересное. Как сделать, чтобы введенные числа взаимодействовали друг с другом? Для этого нам поможет case - оператор выбора. В нашем случае это используется для того, чтобы не писать if 4 раза подряд. То есть - если s=+ - a и b складываются и т.д. Все это происходит с переменной s, т.к. она является переменной типа char. Пишем:

Код:

case s of//Все происходит с s.
'+': r:=a+b;//Если + - то a и b складываются.
'-': r:=a-b;//Если - - то вычитаются.
'*': r:=a*b;//Если * - умножаются.
'/': r:=a/b;//Если / - делятся.
end;

Вот и все. Осталось, как всегда, закрыть программу.

Код:

end.

Вот и все. Второй урок окончен.
Добавлено: Август 07, 2014, 16:40:37

Подразумевается, что модули crt(потом понадобятся и graph) уже подключены?
 Так же, не плохо было бы чистить экран clrscr. И перед end разве не нужно прописать readkey?

О, спасибо, не подумал =).
Добавлено: Август 07, 2014, 16:43:39

Подразумевается, что модули crt(потом понадобятся и graph) уже подключены?
 Так же, не плохо было бы чистить экран clrscr. И перед end разве не нужно прописать readkey?

Нет, это не обязательно. Могу кинуть исходник

Подразумевается, что модули crt(потом понадобятся и graph) уже подключены?

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

[Fantom]

Подразумевается, что модули crt(потом понадобятся и graph) уже подключены?
 Так же, не плохо было бы чистить экран clrscr. И перед end разве не нужно прописать readkey?

crt - прошлый век, не позволит в PascalABC.NET сделать Windows.Forms приложение (к этому ведь идут уроки, 7-8, нет?).
graph не нужен, зачем в текстовом ерундовом приложении графический модуль (старый )?

Хм, а что, строки в case уже воспринимаются?
Забыл end; после case.
Добавлено: Август 07, 2014, 17:03:15

И так, сделаем чтобы игрок по очереди вводил каждую переменную (кроме r), сначала a, потом s, потом b.

  readln(a);//Вести переменную a
  readln(r);//Вести переменную r
  readln(b);//Вести переменную b

И результат еще не выводится потом, ну это мелочи...

[Destroyer]

Извините, с планшет писал. Ошибся. Поправлю.