Помните, мы с вами разговаривали о типах переменных? О том, как присвоить какой-либо тип и зачем это делается? Тогда мы с вами обсуждали всего лишь типы-числа, причем целые числа, дробные значения им присвоить нальзя. Основные из тех типов были Integer, Byte, Word и LongInt, имеющие замый разный диапазон значений (не пишите мне, что вам не ясно, см. выпуск #3), в которых вам нужно научиться ориентироваться.
Здесь я еще сделаю немаловажный комментарий - типы, схожие друг с другом можно вычитать, складывать, умножать и делить. То есть можно писать так:
Program_name;
var
A: Integer;
B: Word;
C: Byte;
begin
A := B - C;
B := C + A;
C := B * A;
end.
* Обращайте внимание на синтаксис! Не забывайте!
Видите, как все происходит? Конечно, это примитивный пример, но он замечательно демонстрирует использование совместимости типов. Если начинаете сейчас путаться, не пугайтесь. Здесь нет абсолютно ничего сложного. Разберем.
Вот, смотрите: Если имеем два числа, A: Integer; B: Word;.
Определимся, что они могут?
Переменная А - может хранить значения от -32000 до +32000 (я примерно пишу)
Переменная В - может хранить значания от 0 до 65500 (тоже не точно, см. зеленую таблицу в 3)
А теперь представьте, число А = 12, а число В = 15. Ну как, мы разве не сможем их сложить? Еще как. А вычесть? Тоже. А умножить? И это у нас выйдет.
Теперь такая ситуация - если результат помещается в переменную В (тип Word), но он отрицательный? (Следите за ходом моих мыслей). Что выйдет? Ведь тип Word не может хранить отрицательные числа, а я только что вел разговор о совместимости.
Выйдет то, что значение числа B будет испорчено. Совместимость есть, Паскаль ошибки не выдаст. Но значение будет потеряно. Поэтому лучше использовать совершенно одинаковые типы, с этим будет меньше проблем, либо точно знать, что за результат будет (по крайней мере его диапазон). Если вы здесь не разобрались, ничего. Дальше все станет ясно, и если что, будете знать где это найти. В общем, информация в копилку.
Нормально напомнил, вспомнили?
Как бы там ни было, все эти типы позволяют хранить только числа. Считывая переменную процедурой Readln мы может прочитать в такую переменную только число. Но этого очень мало и в программе никак не обойтись без других данных. Кроме этих типов существуют еще числовые, но позволяющие хранить дробные числа. Правда, о этой группе типов отдельный разговор, их мы будем обсуждать после, пока они нам не нужны.
Гораздо более интересными сейчас будут другие, которые позволяют хранить строки и символы. Тем более, их всего два и они очень простые и понятные.
Итак, зачем же нам иметь переменные, позволяющие хранить символы?
Давайте вспомним приводимый мной как-то пример программы, выводящей Hello, world!, написанной для демонстрации работы процедуры Write. Помните? Она печатала строку, которая как бы слита с программой и не может быть изменена во время ее работы. Давайте перестроим эту программу и напишем ее модифицированный вариант. Действовать будем так (напоминаю, последовательность действий называется алгоритм):
1. Выведем на экран строку "Введите Ваше имя: "
2. Прочитаем имя с клавиатуры
3. Выведем на экран строку "Привет, ИМЯ!"
Начинаем писать программу и как всегда определимся, что нам нужно.
1. Для того, чтобы вывести строки будем просто использовать Write.
2. А вот для того, чтобы прочитат, сохранить и вывести имя, используем переменную, которой зададим тип-строку.
Тип "строка" изображается так: String.
И, следовательно для того, чтобы завести такую переменную, запишем в разделе var:
var
Name: String;
Ну а теперь вроде все разобрали, все понятно и можно писать программу. Ее текст будет выглядеть так:
Program Ask_name;
var
Name: String;
begin
Write('Введите Ваше имя: ');
Readln(Name);
Write('Привет, ',Name,'!');
Readln;
end.
Откройте Турбо Паскаль и напечатайте эту программу. Запустите ее и посмотрите, как она работает. Все нормально? Действительно, она выводит имя, введенное при запросе. Это вам конкретный пример использвания типа String. На самом деле возможности использования строк невероятно высоки, вы это дальше поймете.
Не думаю, что стоит разбираться в этой программе по шагам. Если вам не понятно что-то - используемые процедуры или проблемы с синтаксисом (вы только подписались) - то скачивате архив с сайта рассылки и изучите предыдущие уроки Паскаля.
Но хоть разбирать каждую строку и я не буду, все же один прием требует комментариев:
Write('Привет, ',Name,'!');
Эта строка выводит именно "Привет, ИМЯ!". Заметили, восклицательный знак находиться после переменной? То есть переменная получается как бы внутри выводимой строки. Именно для того, чтобы это сделать я использовал несколько параметров процедуры Write; - т.е. чередовал символы с переменной. Так можно напечатать любой текст, содержащий где угодно в себе переменные. Запомните этот прием, а то некоторые ломают голову над этим - используют несколько процедур Write для вывода всех частей строки отдельно и т.д.
В общем, про этот раздел все. Здесь нет ничего сложного или особо непонятного, разбирайтесь. Советую написать несколько программ, использующих тип String - здесь я предоставляю вам полное творчество и очень советую им воспользоваться.
Но приведу несколько примеров возможных модификаций - например, запрашивайте несколько больше данных и выводите их все как результат выполнения; выводите запросы на ввод тоже как строки (придавайте им значение прямо в программе).
В общем, занимайтесь! Типам нужно уделять много внимания, Паскаль того требует. Вообще, это язык который славиться своей жесткостью по отношению к типам. Но вы это и сами скоро поймете, точно вам говорю.
IF…THEN…ELSE - Важная конструкция языка
Итак, мы с вами подошли к изучению конструкций языка. Что же такое конструкция? До этого мы учили только синтаксис и некоторую теорию, например типы. Писали программы, состоящие только из переменных и нескольких процедур. Но разве этого программисту достаточно? Конечно, нет. Нужны некоторые стандартные вещи, которые позволяли бы как-то усложнять программу, реализовывать ее написание не только через чередование процедур и переменных, но и заставлять ее походить какие-нибудь проверки, как-то влиять на ход ее работы непосредственно при ее выполнении. Для этого в языках программирования существуют специальные конструкции - стандартные языковые средства, которые позволяют проверять что-либо прямо внутри программы, повторять ее несколько раз и т.д., в общем, влиять на ее выполнение.
Одна из самых заметных конструкций - это проверка каких-то условий. Что это значит? Для того, чтобы вам это лучше понять, я приведу пример задачи, которую нужно решить:
Нам нужно написать программу, которая:
1. Запрашиват два числа;
2. Далее проверяет, если 1-е число больше второго, выводит: "1-е больше, чем второе"; если 2- больше 1-го, то выводит: "2-е больше, чем первое";
В программе явно нет ничего сложного. Но есть одна деталь - как мы проверим эти числа на БОЛЬШЕ/МЕНЬШЕ? Вот здесь нам и понадобиться конструкция If...Then...Else, о которой я вам сейчас и расскажу.
IF..Then..Else - (англ. Если....То...Иначе). Очень важная и необходимая конструкция Паскаля. Используется для проверки каких-либо условий. В этой конструкции используются знаки сравнения, которые в Паскале обозначаются так:
>
Больше
<
Меньше
>=
Больше или равно
<=
Меньше или равно
<>
Не равно
Запомните эти знаки, они вам дальше очень понадобятся. И не пугайтесь, если что-то не понятно. Сейчас все разъясниться, как только я приведу пример и сделаю к нему комментарий.
Итак, как же оформить конструкцию if...then...else? Для начала давайте запишем словами сравнение двух чисел А и В:
1. Если А > B То Write(A,' больше чем ',B,'!')
2. Иначе Write(B,' больше чем ',A,'!');
Посмотрите внимательней на приведенный пример. Разобрались? Теперь посмотрим, как выглядит эта конструкция на Паскале:
If A > B Then Write(A,' больше чем ',B,'!')
else Write(B,' больше чем ',A,'!');
Вот вам и пример использoвания изучаемой конструкции. Посмотрите, разве сложно? На самом деле нет, хотя это и может так показаться с первого взгляда. Вот все комментарии, которые здесь требуются.
1. Сначала идет служебное слово If
2. После него стоит первая проверка, в которой как раз и используются знаки сравнения, приведенные мной в таблице.
3. Если эта проверка выполняется верно, то есть A > B, то выполняется действие, указанное после слова Then. Обратите внимание, что после действия (процедуры Write) нет точки с запятой - ";". Она не ставиться перед словом Else.
4. Если же проверка не верна, то есть A < B то выполняется действие, указанное после слова Else. После этого действия уже ставиться точка с запятой.
Замечание. Слова Else может и не быть. Это используется тогда, когда нужно выполнить всего одно условие и не делать ничего, если оно не верно. В таком случае после действия, указанного за словом Then ставиться ";". Вот такой пример:
If A > B Then Write(A,' больше чем ',B,'!');
Собственно, это и все про проверку. Теперь вспомним нашу программу, которую мы захотели написать. (Смотрите ее выше). Сейчас мы наконец-то напишем ее, текст будет выглядеть так:
Program Primer;
var
A,B: Integer;
begin
Write('Введите A: ');
Readln(A);
Write('Введите B: ');
Readln(B);
If A > B Then Write(A,' больше чем ',B,'!')
else Write(B,' больше чем ',A,'!');
Readln;
end.
Комментировать программу я не буду, так как нам уже нужно как-то усложнять материал. Разберитесь в ней, введите в Паскале и запустите. Видите, она реагирует на величину чисел? А теперь вспомните, что мы проходили сегодня новый тип - String. Его тоже можно с успехом использовать, поэтому привожу еще пример:
Program Primer;
var
S1,S2: String;
begin
Write('Введите 1-ю строку: ');
Readln(S1);
Write('Введите 2-ю строку: ');
Readln(S2);
If S1 <> S2 Then Write('Строки не равны!')
else Write('Строки равны!');
Readln;
end.
Ну как? Это уже немного другой пример, реагирующий на неравенство, в отличии от предыдущего, реагирующего на знак "больше". Введите его и запустите. Видите, эта программа сравнивает две введенные строки, реагируя на то, равны ли они. Теперь еще один пример, проверяющий, отрицательное ли число.
Program Primer;
var
A: Integer;
begin
Write('Введите число: ');
Readln(А);
If А < 0 Then Write('Число отрицательное!')
else Write('Вы ввели число: ',A);
Readln;
end.
Разберитесь самостоятельно в этих всех программах. Запускайте их, меняйте - смотрите, как измениться работа. Ну а пока к сожалению я исчерпываю лимит письма и на этом заканчиваю. Но на последок немного домашних заданий. Правда, эти мне присылать не нужно, я придумал их для того, чтобы Вы смогли попрактиковаться самостоятельно в написании программ и использовании конструкции if...then...else. Программы как всегда в порядке возрастания сложности. Итак, практика:
Напишите программу, умеющую проверять положительно ли введенное число и выводить ответ на экран.
Вводятся два числа, после чего проверяется, больше ли сумма 1-го с самим собой, чем второе. Ответ как обычно на экран.
Читаются два числа, после чего из 1-го вычитается 2-е и если результат отрицательный, пишется, что он отрицателен. Иначе ответ выводиться на экран.
Прочитайте три числа А, В, С и одну строку. После чего проверьте, больше ли сумма А и В числа С. Если да, то выводите прочитанную строку иначе сумму всех 3-х чисел.
Ну вот и все на сегодня про Паскаль. Этот урок получился довольно большим, но вы узнали достаточно нового. Хочу вам напомнить, что нужно разобраться во всем, о чем я говорю - иначе вы не добьетесь больших результатов. Осваивайте, пишите свои программы - и обязательно решайте мое домашнее задание! Если оно вам покажется довольно нудным, не обращайте внимания и сделайте просто для закрепления пройденного. Далее придется очень часто и развернуто использовать if...then...else, поэтому добейтесь уверенности в своих знаниях этой конструкции.
IF…THEN…ELSE
Сейчас нам нужно освоить один прием, который является очень важным и, возмножно, вы уже сами сталкивались с необходимостью его применения.
Это вложенность, или, если забыть про стандартные определения, просто ситуация, когда нужно после проверки условия выполнять не одно, а несколько действий если условие верно, после чего также выпонять несколько действий, если условие не верно.
Здесь нам не обойтись без примера, который я сейчас приведу.
Давайте напишем программу, которая будет:
1. Читать два числа A, B с клавиатуры;
2. Складывать их и если сумма больше 50, то:
1. Читать A еще раз;
2. Опять складывать A и B;
3. Выводить ответ на экран (уже ничего не проверяя).
3. Если сумма меньше 50, то:
1. Читать B еще раз;
2. Вычесть A и B;
3. Выводить ответ на экран (уже ничего не проверяя).
4. Конец программы.
Как мы здесь будет поступать? Заметили, нам нужно выполнять несколько действий, в ходе проверки.
Все это, в принципе могло бы выглядеть так (только алгоритм):
If A+B > 50 Then
Readln(A);
A := A + B;
Write(A);
else
Readln(B);
A := A - B;
Write(A);
Выглядит, вроде, без ошибок. Но попробуйте, напишите так программу. Ничего не выйдет, в конструкции if...then...else должно быть только по одному действию. Как же поступить?
Здесь нам на помощь приходит возможность вложенности. Как же это реализовать? На самом деле очень просто. Необходимо заключить все действия в отдельные служебные слова begin и end; - то есть сделать как бы маленькую программку в основной программе или сделать ее вложенной - отсюда и название "вложенность". Только запомните, после слова end, если вы его используете для обособленности оператора в конструкциях, ставиться точка с запятой - ";", а не точка! Точка ставиться только в конце программы. Без исключений.
Итак, модифицированный вариант нашей программы, уже полностью:
Program Primer;
var
A,B: Integer;
begin
Write('Введите A: ');
Readln(A);
Write('Введите B: ');
Readln(B);
If A+B > 50 Then
begin
Readln(A);
A := A + B;
Write(A);
end;
else
begin
Readln(B);
A := A - B;
Write(A);
end;
Readln;
end.
Вот, собственно и все. Этот метод применяется везде и повсеместно. Уверяю вас, скоро вы забудете про него и это уже будет получаться автоматически. А пока запомните это и вспоминайте при необходимости.
Теперь новая процедура, часто используемая в совокупности с конструкций if...then...else. Это процедура goto, о которой рассказываю подробно.
