Category : Pascal Source Code
Archive   : PASTUT.ZIP
Filename : WRITELNX.PAS

(* Chapter 10 - Program 1 *)
program Examples_Of_Write_Statements;

var Index : byte;
Count : real;
What : boolean;
Letter : char;
Name : string[10];

begin
Writeln('Integer');
Index := 17;
Writeln(Index,Index);
Writeln(Index:15,Index:15);

Writeln;
Writeln('Real');
Count := 27.5678;
Writeln(Count,Count);
Writeln(Count:15,Count:15);
Writeln(Count:15:2,Count:15:2);
Writeln(Count:15:3,Count:15:3);
Writeln(Count:15:4,Count:15:4);

Writeln;
Writeln('Boolean');
What := FALSE;
Writeln(What,What);
Writeln(What:15,What:15);

Writeln('Char');
Letter := 'Z';
Writeln(Letter,Letter);
Writeln(Letter:15,Letter:15);

Writeln('String');
Name := 'John Doe';
Writeln(Name,Name);
Writeln(Name:15,Name:15);

Writeln;
Writeln('Text output','Text output');
Writeln('Text output':15,'Text output':15);
end.




{ Result of execution

Integer
1717
17 17

Real
2.7567800000E+01 2.7567800000E+01
2.75678000E+01 2.75678000E+01
27.57 27.57
27.568 27.568
27.5678 27.5678

Boolean
FALSEFALSE
FALSE FALSE
Char
ZZ
Z Z
String
John DoeJohn Doe
John Doe John Doe

Text OutputText Output
Text Output Text Output

}