Program String Biodata

Program perkenalan2;

Uses crt;

Const

Nama=’nama msg2’;

Kelas=’kelas msg2’;

Var

kampus:string;

Begin

Clrscr;

Writeln(‘Lokasi Kampus Anda :’);readln(kampus);

Readln

End.

Program latihan;

Uses crt;

Const

kampus=’FT UMJ’;

Var

nama : string[20];

kelas : string;

Begin

Clrscr;

Write(‘NAMA :’);readln(nama);

Write(‘KELAS :’);readln(kelas);

Writeln(‘Lokasi Kampus Anda :’,kampus);

Readln

End.

Program String_ahmad;

Uses Crt;

Begin

WriteLn( ‘Saya’ );

Write( ‘Belajar’ );

WriteLn( ‘Turbo’ );

Write( ‘Pascal’ );

Write( ‘Versi 7.0’ );

End.

Posted in: BAHASA PASCAL