Input nama:
uses crt;
begin
clrscr;
writeln(‘nama = mario’);
writeln(‘npm = 32108390’);
write(‘kelas = 1 db 15’);
readln;
end.
Output :
Nama = mario
Npm = 32108390
Kelas = 1 db 15
Program berjalan
Uses crt;
Var a:string;
I:integer;
Begin
Clrscr;
Write(‘masukan nama anda : ‘);
Readln(a);
Clrscr;
For i:=1 to 100 do
Begin
Clrscr;
Write(‘harap tunggu’);
Write(i,’%’);
Delay(100);
End;
For i:=1 to 24 do
Begin
Clrscr;
Gotoxy(1,i);
Textcolor(i);
Writeln(a);
Delay(300);
End;
For i:=1 to 74 do
Begin
Clrscr;
Gotoxy(i,24);
Textcolor(i);
Writeln(a);
Delay(300);
End;
For i:=24 downto 1 do
Begin
Clrscr;
Gotoxy(74,i);
Textcolor(i);
Writeln(a);
Delay(300);
End;
For i:=74 downto 1 do
Begin
Clrscr;
Gotoxy(i,1);
Textcolor(i);
Writeln(a);
Delay(300);
End;
Readln;
End.
Output
Masukan nama anda : (misal mario)
Maka output akan muncul nama aibie dan berjalan dari kiri atas kepaling bawah, lalu akan bergeser kekanan, lalu keatas, lalu kekiri atau tempat awal lagi
Segitiga cermin
Uses crt;
Var x,y,k,L,nilai:integer;
Begin
Clrscr;
Write(‘masukan jumlah deret : ‘);
Readln(nilai);
For x:=1 to nilai do
Begin
For y:=1 to x do
Begin
Write(‘ ‘,y);
End;
Writeln;
End;
For k:=nilai downto 1 do
Begin
For L:=1 to k do
Begin
Write(‘ ‘,L);
End;
Writeln;
End;
Readln;
End.
Output
Masukan jumlah deret : (misal 5)
Maka output:
1
12
123
1234
12345
12345
1234
123
12
1
