Tugas PASCAL – LOOPING / Perulangan
Posted by: mlente on: December 14, 2008
- In: Bahan Kuliah
- Comment!
Tugas Pascal tentang looping/perulangan menggunakan fungsi for
uses wincrt;
var
kata: string;
i,j,pjg : byte;begin
write(‘Masukkan Kata:’);readln(kata);pjg:= length(kata);
for i:=1 to pjg do
begin
for j:=1 to i do
write(kata[j]);
writeln;
end;for i:=1 to pjg do
begin
for j:=1 to pjg-i+1 do
write(kata[j]);
writeln;
end;
end.
Silahkan bagi yang memerlukan bisa langsung copy paste 
13 Responses to "Tugas PASCAL – LOOPING / Perulangan"
December 16, 2008 at 8:58 am
waduh…..jadi g enak hati ne…he….
tapi jujur gue demen banget yang kaya ginian
jadinya kita- kita yang lagi belajar ga mumeeeeee…….t bgt
yang sering j ya bosss, kalo d tugas, kasih tau kita jawabannya, hua…..ha…
think you bosss eko….
January 16, 2009 at 9:10 pm
Kk………tau gmn cara buat file bertipe ??? masih bingung neh !!
February 7, 2009 at 3:36 pm
Saya dapet tugas buat program pascal yang outputnya seperti ini:
1.)*
**
***
****
2.)****
***
**
*
pake perulangan while dan repea, tapi aku gak bisa ngerjain
tolong bantuin buat programnya ya
tolong ya! soalnya ni penting banget
hasilnya kirim ke e-mail aku di rian.yulianto@gmail.com
terimakasih sebelumnya.
May 29, 2009 at 9:44 am
saya adela,mo minta tolong..saya ada tugas pascal disuruh membuat program looping dengan menggunakan fungsi if untuk menghitung total bilangan yang genap2 saja dari N buah bilangan yang diinputkan.
mohon bantuan nya ya..
makasih
Leave a Reply
About Me
mY naMe Is Eko PujiArSO, LAHiR di BOGor beSaR Di PURWOkerTo sATRia, mantan WArGA BElkit YANG SekaRaNG hIJRah kE kAdipaTeN pAsir loR BeKas kAdipATen PASir LUHuR kecaMaTan kArAnGleWAS kaBuPatEn BanYUmas |
|
|---|---|
Your Information
Tracker
December 16, 2008 at 2:06 am
thaks mek
dah meringankan tugas qta xixixixxi