Kategori :
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
0 Response to "String pascal"
Post a Comment