Ввод/вывод в программе. Форма вывода.

 

    

Описание: Эта программа запрашивает у пользователя числа и другие типы данных и выводит их в различных формах. В комментариях к тексту программы приведены дополнительные сведения о конкретных процедурах и функциях.

 

Текст программы:

 

program Program2;  {Название данной программы}

uses crt; {Описание используемых модулей в зависимости от задач, решаемых в программе}

var

x, y: real; {Переменные дробного типа}

I: integer; {Целочисленные переменные}

s: string; {Строка длиной до 255 символов}

begin {Начало исполнительной части программы}

     clrscr; {Очистка экрана}

     writeln ('Введите дробное число x и целое число i: '); {Выполняет вывод на экран с новой строки различной информации}

     readln(x, i); {Выполняет ввод различной информации с отображением на экране и с переводом строки}

     writeln ('Вывод просто x = ‘, x);

     writeln ('Вывод в формате 8:3 x = ‘, x:8:3); {(x+y):8:3 – вывод дробного числа (тип real) в указанном формате: всего цифр в числе 8, а после запятой - 3}

writeln ('Вывод в формате 5:1 x = ‘, x:5:1);

     writeln ('Вывод просто i = ‘, i);

     write (‘Введите y = ’); readln(y);

      writeln(‘Спасибо за прекрасный y!’);

     writeln(‘Пропуск строк…’);

     writeln;

      writeln(‘Теперь, пожалуйста, тихо и незаметно введите какой-нибудь символ ’);

      s := readkey; {Вводит символ с клавиатуры без отображения на экране}

     writeln(‘Вы нажали: ’,s);

     writeln (‘Нажмите любую клавишу…');

     readkey; {Без аргументов (как здесь) ждёт нажатия любой клавиши}

end. {Окончание программы – перед End точку с запятой ; можно не ставить}

 

'Загрузить текст программы'

 

Примечания:

• Чтобы вывести сообщение в конце текущей строки вместо Writeln используйте процедуру Write (это справедливо и для Readln - Read).
• Для целочисленных типов формат вывода не указывается.

 

Попробуйте поэкспериментировать с текстом программы для лучшего понимания:

• Уберите очистку экрана – Clrscr.
• Измените формат вывода числа, например, на (x+y):8:1 или  на просто (x+y).
• Поменяйте Readln на Read или Writeln на  Write.
• Уберите ReadKey.

 

Посмотрите на изменения в выполнении программы после каждого изменения её текста.

'К списку тем'     'Версия для печати'