Praktikum 2a (Algoritma dan struktur data)

Listing program identitas organisasi

Program identitas_organisasi;

Uses crt;

Var aj, af, au : string;

Begin

Clrscr;

Gotoxy(2,2);writeln(‘IDENTITAS ORGANISASI’);

Gotoxy(2,3);writeln(‘=====================’);

Gotoxy(2,5);write('Asal Jurusan = ' );readln(aj);

Gotoxy(2,6);write(‘Asal Fakultas = ‘);readln(af);

Gotoxy(2,7);write(‘Asal Universitas = ‘);readln(au);

Gotoxy(2,9);writeln(‘_________________’);

Gotoxy(10,11);writeln(upcase(‘Hasil Masukan ‘));

Gotoxy(10,12);writeln(‘=============’);

Gotoxy(10,14);writeln(upcase(aj));

Gotoxy(10,16);writeln(upcase(af));

Gotoxy(10,18);writeln(upcase(au));

Gotoxy(10,20);writeln(upcase(‘firman(1302100093)’));

End.

Layout program

Share On