Coba dengan cara ini; Program Urut; var angka1,angka2,angka3,tmp: integer; begin write('Masukan 3 angka : '); readln(angka1,angka2,angka3); tmp := angka1; if angka1 > angka2 then begin angka1 := angka2; angka2 := tmp; end; tmp := angka2; if angka2 > angka3 then begin angka2 := angka3; angka3 := tmp; end; write('Bentuk terurut : ',angka1,' ',angka2,' ',angka3); readln; end.
On 5/7/07, zhoura_chan <[EMAIL PROTECTED]> wrote: > > Ass. Ni Nira anak SMKN 7. Sy mau tanya gimna sih syntaxnya pascal > bagian mengurutkan data? contoh: input 1 5 3 maka akan diurutkan dan > outputnya 1 3 5. saya sudah mencoba tetapi hanya bisa menampilkan 2 > data. mhn bantuannya yach........ > > > [Non-text portions of this message have been removed] -- www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED] ## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ## ## Jaket ITCENTER tersedia di http://shop.itcenter.or.id Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/ITCENTER/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/ITCENTER/join (Yahoo! ID required) <*> To change settings via email: mailto:[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/