USES CRT;
VAR
X:BYTE;
KATA:STRING;
BEGIN
CLRSCR;
KATA:='SELAMAT';
FOR X:=1 TO 7 DO
BEGIN
WRITELN(KATA);
DELETE(KATA,1,X);
END;
READKEY;
END.
Hasil
Program Menggunakan Delete plus looping pada pascal
Berikut adalah contoh Program menggunakan Delete plus looping pada pascal semoga bermanfaat untuk kawan-kawan semua
USES CRT;
VAR
X:BYTE;
KATA:STRING;
BEGIN
CLRSCR;
KATA:='SELAMAT';
FOR X:=1 TO 7 DO
BEGIN
WRITELN(KATA);
DELETE(KATA,1,X);
END;
READKEY;
END.
Hasil
USES CRT;
VAR
X:BYTE;
KATA:STRING;
BEGIN
CLRSCR;
KATA:='SELAMAT';
FOR X:=1 TO 7 DO
BEGIN
WRITELN(KATA);
DELETE(KATA,1,X);
END;
READKEY;
END.
Hasil
Jika Anda menyukai Artikel di blog ini, Silahkan
klik disini untuk berlangganan gratis via email, dengan begitu Anda akan mendapat kiriman artikel setiap ada artikel yang terbit di Creating Website
|
