Posts

Showing posts from April, 2011

Algoritma & Pemrograman 2 Bahasa Pascal

TUGAS AKHIR MODUL 3 No. 2 program pascal; var        a,b,c,d,e,f : string ; begin        a := ' Pascal' ;        b := ' Pasca' ;        c := ' Pasc' ;        d := ' Pas' ;        e := ' Pa' ;        f := ' P' ;           writeln ('= ',a);          delete (a,6,6)           writeln ('= ',b);          delete (a,5,6)           writeln ('= ',c);          delete (a,4,6)           writeln ('= ',d);          delete (a,3,6) ...