home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
pascal
/
tutorial
/
tp4tutor
/
chardemo.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
409b
|
19 lines
(* Chapter 3 - Program 7 *)
program Char_Demonstration;
var Letter : char;
Number : char;
Dogfood : char;
begin
Letter := 'P';
Number := 'A';
Dogfood := 'S';
Write(Letter,Number,Dogfood);
Letter := Number; (* This is now the 'A' *)
Number := 'L';
Dogfood := 'C';
Write(Dogfood,Letter,Number);
Writeln;
end.