Урок № 2

На прошлом уроке мы разобрали с вами процедуру Write.

Write – процедура вывода текста на экран. 

Напишем программу, которая с помощью двух процедур Write выводит на экран словосочетание спорт мир.

uses Сrt;

Begin

   Write(‘спорт ’);

   Write(‘ мир’);

End.

Изменим программу так чтобы ЭВМ вывела слово спорт на одной строке, а мир на другой. Для этого в первой команде к Write добавим ln и в результате получится Writeln(‘спорт’);

Writeln - процедура не только выводит сообщение, находящееся в апострофах и скобках, но и переводит курсор в начало следующей строки.

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

 Различные

Отрасли промышленности,

научные исследования, сегодня 

немыслимы

без использования ЭВМ.

 uses Crt;

 Begin

   Writeln('Различные');

   Write('отрасли ');

   Writeln('промышленности,');

   Write('научные ');

   Write('исследвания,');

   Writeln('сегодня');

   Writeln('немыслимы ');

   Write('без ');

   Write('использования ');

   Write('ЭВМ');

End.

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

uses Crt;

Begin

   Writeln;

   Writeln;

   Write(‘                             мир’);

End.

 Запустим программу на выполнение. Появившееся окно может вместить  25 строк, а строка 80 символов. Поэтому в третьей команде Write перед словом мир необходимо поставить 40 пробелов.

 Задания для самостоятельного выполнения.

1. Написать программу, которая бы вывела на экран ниже написанный текст в таком же расположении. Для вывода каждого слова использовать только одну процедуру Write или Writeln.

Пять часов

утра,

солнце уже

показалось.

Зеленая долина

на ней три

человека.