Песни о Паскале | страница 31
>const Pele = ’Эдсон Арантес ду Насименту’;
>Writeln(’Лучший футболист мира – ’, Pele);
>Readln
>end.
>begin
>Writeln(’Как тебя зовут?’);
>var Name : string;
>Readln(Name);
>Writeln(’Здравствуй, ’, Name);
>Writeln(’Нажми Enter’); Readln;
>end.
>const Pele = ’Эдсон Арантес ду Насименту’;
>begin
>Writeln(’Лучший футболист мира’);
>Readln(Pele);
>Writeln(Pele);
>Readln
>end.
Глава 9
Переменные: продолжение знакомства
Теперь, после знакомства с переменными, вы умеете объявлять их, вводить в переменные данные и печатать. Отныне мы не расстанемся с ними.
Наша следующая программа «P_09_1» спросит у пользователя имя и фамилию, после чего обратится к нему уважительно, как следует. Вот пример такой «беседы» (выделенное курсивом печатал пользователь).
>Фамилия?
>Скотинин
>Имя?
>Тарас
>Здравствуй, Тарас Скотинин!
>Нажми Enter
Примечание. Тарас Скотинин — персонаж комедии Д.И. Фонвизина «Недоросль».
Очевидно, что для хранения имени и фамилии одной переменной мало, нужны две. Памятуя о том, что секция объявления переменных допускает несколько операторов, объявим там парочку переменных.
>var N : string;
> S : string;
Здесь переменные N и S названы мною по первым буквам слов Name (имя) и Surname (фамилия). Объявить несколько переменных одного типа можно и в одной строке, перечислив их через запятую.
>var N, S : string;
Тут две переменные объявлены одним оператором, – этот способ ничуть не хуже.
Далее, после ввода данных, надо напечатать в одной строке несколько параметров: приветствие, имя, фамилию, и восклицательный знак в конце, чтобы обратиться к Тарасу Скотинину так:
> Здравствуй, Тарас Скотинин!
Достаточно ли здесь одного оператора печати? Конечно! Вот он.
>Writeln(’Здравствуй, ’, N, ’ ’, S, ’!’);
Тут мы втиснули в процедуру Writeln аж пять параметров! Обратите внимание: в конце добавлен восклицательный знак, а между именем и фамилией печатается пробел, иначе эти слова слипнутся на экране.
После всех пояснений следующая программа должна быть вполне ясной.
>var N, S : string;
>begin
>Writeln(’Фамилия?’); Readln(S);
>Writeln(’Имя?’); Readln(N);
>Writeln(’Здравствуй, ’, N, ’ ’, S,’!’);
>Writeln(’Нажми Enter’); Readln;
>end.
Обязательно скомпилируйте её и проверьте в действии.
Итак, нам удалось скроить уже два «кармана» для хранения данных. Действительно, переменные сродни карманам, здесь можно и хранить данные, и копировать из одного «кармана» в другой. Для копирования данных в Паскале применяют оператор присваивания, вот примеры копирования данных.
