Exersices 2

Dosen : Elisawati, S.Kom, M.Kom

Buatlah program huruf yang berjatuhan sehingga membentuk suatu kalimat yang telah diinput dari keyboard. ?

Jawaban :

Exersices_2.pas

program exersices2;
Uses crt;
var
    i,n : INTEGER;

const
    a = 'Anonputraid';

begin
    clrscr;
    writeln('Nama : anda');
      write('NIM  : anda.pas');
    for i := 1 To 16 Do
    begin
        textbackground(red);
        textcolor(black);
        Gotoxy(0+i,4); write(a[i]);
        DELAY(100);
        textbackground(0);
        textcolor(white);
        Gotoxy(6,4+i); write(a[i]);
        DELAY(100);
        textbackground(blue);
        Gotoxy(0+i,17); write(a[i]);
    end;
end.