String pascal
uses crt;
var
a:string;
b,c,d:integer;
begin
clrscr;
write('tulis
kata=');readln(a);
b:=length(a);
for c:=0 to b do
begin
for d:=1 to b-c
do
write(' ',a[d]);
writeln;
end;
readln;
end.
Input
program
Logika
program
Setelah program
selesai dibuat, selanjutnya program memanggil library data dalam bentuk var
bertipe a adalah string, sedagkan b,c,d
adalah integer. Kemudian program
berjalan clrscr berfungsi sebagai
pembersih data sebelumnya. Program cetak kalimat” tulis kata”,kemudian program membaca” a” sebagai string,.
Kemudian ” b” adalah intger yang kemudian
berhubungan dengan string. Selanjutnya
program melakukan pengulangan dengan rumus” for do”, dimana data “C”
dimulai dari nol membaca kata dari
awal untuk ke data “b”. sedangkan data” d” dimulai dari 1untuk
membaca kata dari depan dan mengurangi kata diakhir satu huruf. Begitulah
seterusnya hingga kata itu Cuma tinggal satu huruf saja. Readln berfungsi
sebagai pembaca data diatasnya.” End”
berfungsi sebagai mengakhiri program.
Output program
