На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! Правила ЧаВо (FAQ) разделов Паскаля
В этом разделе разрешено создавать только темы, в которых описано РЕШЕНИЕ какой-либо общей проблемы, или описание какого-либо аспекта языка Паскаль.
Обсуждение уже созданных тем разрешено, но только конструктивное, например указание на ошибку или уточнение имеющегося текста.

Также читать Требования к оформлению статей
Модераторы: volvo877, Romtek
  
> Форматированный вывод на экран , при помощи write и writeln
Guru Romtek
Сообщ. #1 ,

    Moderator
    *******
    Профиль · PM
    Поощрения: 30 Dgm
    Рейтинг (т): 188
    Форматированный вывод на экран


    Чем отличаются write от writeln, и read от readln?
    ln-означает, что курсор должен перейти на начало следующей строки.

    Рекомендуемый способ ввода данных такой:
    ExpandedWrap disabled
      write('Введите строку: '); readln(str);
      write('Введите число: '); readln(num);

    Пример вывода
    ExpandedWrap disabled
      Введите строку: Ты просто супер!
      Введите число: 100


    Как красиво вывести данные?

    Одномерный массив A (M) целых чисел
    ExpandedWrap disabled
      writeln;
      { Выводит числа с промежутком в 4 позиции один от другого, выравнивая по правому краю }
      for i:=1 to M do write (A[i] : 4);

    Пример вывода
    ExpandedWrap disabled
       -10   3  14 -87


    Матрица A (MxN) из вещественных чисел
    ExpandedWrap disabled
      type arr= array[1..P,1..Q] of real;
      procedure ShowMatrix(var A: arr; M,N: integer);
      var i,j: word;
      begin
           Writeln;
           For i:=1 to M do
           begin
                Writeln; { переход на следующую строку }
                for j:=1 to N do Write (A[i,j]:8:2);
           end;
      end;

    Пример вывода
    ExpandedWrap disabled
         29.33   28.00   20.67
         23.33   19.00   10.33


    Записи, База Данных (БД)
    ExpandedWrap disabled
      type
         TDataBook=record
           Name: string[30];
           Phone: string[10];
           Street: string[30];
           Gender: Char; {(M)ale/(F)emale}
         end;
       
      const Rec=3; { Count of Records }
       
      var
         DataBook: TDataBook;
         A: Array[1..Rec] of TDataBook;
         i: word;
       
      begin
           With DataBook do
           begin
                for i:=1 to Rec do
                with A[i] do
                begin
                     writeln;
                     write('Name: '); readln(Name);
                     write('Phone: '); readln(phone);
                     write('Street: '); readln(street);
                     write('Gender [(M)ale/(F)emale]: '); readln(gender);
                end;
                
            Writeln;
                writeln ('Name':30, 'Phone':10, 'Street':30, 'Gender':7);
                
            for i:=1 to Rec do
                with A[i] do
                 writeln (Name:30, Phone:10, Street:30, Gender:2);
           end;
           writeln('Press Enter.');
           readln;
      end.


    Дополнительные ссылки:
    Как вывести Real в понятном виде?
    Как вывести текст (строку) ?
    0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
    0 пользователей:


    Рейтинг@Mail.ru
    [ Script execution time: 0,0191 ]   [ 16 queries used ]   [ Generated: 19.04.25, 05:24 GMT ]  
    Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.