INPUT DAN OUTPUT

1
INPUT DAN OUTPUT

• FUNGSI OUTPUT
• PRINT
• - sentiasa mendahulukan output dengan satu baris
  baru
• (print saya) -gt SAYA SAYA
• (print ( 1 2)) -gt 3 3
• ( (print 1) (print 2)) -gt 1 2 3
• 2. PRIN1
• ( (prin1 1)(prin1 2)) -gt 12 3
• (defun cetak (x) (terpri)(prin1 x))

2
INPUT DAN OUTPUT

• FUNGSI OUTPUT
• PRINC
• (prin1 Ini satu percubaan)
• -gt Ini satu percubaan
• Ini satu percubaan
• (princ Ini satu percubaan)
• -gt Ini satu percubaan
• Ini satu percubaan
• Cuba contoh aturcara 8.3 dan 8.4

3
INPUT DAN OUTPUT

• FUNGSI OUTPUT
• FORMAT
• -gt (format t Ini satu percubaan)
• Ini satu percubaan NIL
• -gt (format nil Ini satu percubaan)
• Ini satu percubaan
• Cuba contoh aturcara 8.3 dan 8.4

4
INPUT DAN OUTPUT

• FUNGSI OUTPUT
• FORMAT
• -gt (format t Ini satu percubaan)
• Ini satu percubaan NIL
• -gt (format nil Ini satu percubaan)
• Ini satu percubaan
• (pemformatan khas , , S, T, A dan )

5
INPUT DAN OUTPUT

• FUNGSI OUTPUT
• -gt (format t Ini satu percubaan)
• Ini satu
• percubaan
• NIL
• (defun alamat ()
• (format t Jabatan kejuruteraan perisian)
• (format t Fakulti Sains komputer Sistem
  Maklumat))
• -gt (alamat)
• Jabatan Kejuruteraan Perisian
• Fakulti Sains Komputer

6
INPUT DAN OUTPUT

• FUNGSI OUTPUT
• -gt (format t Ini S S satu percubaan)
• Ini SATU
• PERCUBAAN
• NIL
• (defun square (n)
• (format t Kuasa dua bagi s ialah s n (
  n n )))
• -gt (square 3)
• Kuasa dua bagi 3 ialah 9
• NIL
• -gt (MAPCAR SQUARE (1 2 3))
• Kuasa dua bagi 1 ialah 1
• Kuasa dua bagi 2 ialah 4
• Kuasa dua bagi 3 ialah 9

7
INPUT DAN OUTPUT

• FUNGSI OUTPUT
• -gt (defun f-to-c (ftemp)
• (let ((ctemp ( (- ftemp 32) 5/9)))
• (format t S darjah Fehrenhait sama dengan
  S Celcius ftemp (float ctemp) ctemp))
• -gt (f-to-c 82)
• 82 DARJAH FEHRENHAIT SAMA DENGAN
• 27.7777777777 DARJAH CELCIUS
• 250/9

8
INPUT DAN OUTPUT

• FUNGSI OUTPUT
• -gt (defun f-to-c (ftemp)
• (let ((ctemp ( (- ftemp 32) 5/9)))
• (format t S darjah Fehrenhait sama dengan
  S Celcius ftemp (float ctemp) ctemp))
• -gt (defun test (x)
• (format t ada escape characters s x)
• (format t tiada escape characters A x))
• -gt (test Apa khabar?
• APA KHABAR?
• APA KHABAR
• NIL

9
INPUT DAN OUTPUT

• FUNGSI READ
• -gt (defun f-to-c ()
• (format t Sila masukkan suhu fehrenheit )
• (let ((ftemp (read))
• ((ctemp ( (- ftemp 32) 5/9)))
• (format t sdarjah fehrenheit sama dengan s
  darjah celsiuc ftemp (float ctemp)) ctemp))
• -gt (f-to-c)
• Sila masukkan suhu fehrenheit 56 input
  pengguna
• 56 darjah fehrenheit sama dengan
• 13.333333333 darjah celsius
• 40/3

10
INPUT DAN OUTPUT

• FUNGSI READ
• -gt (defun kuasadua ()
• (format t Sila masukkan satu nombor )
• (let ((x (read))
• (format t kuasadua bagi s ialah s x ( x
  x))))
• -gt (kuasadua 2)
• Sila masukkan satu nombor 2
• Kuasadua 2 ialah 4
• nil

11
INPUT DAN OUTPUT

• FUNGSI YES-OR-NO-P
• -gt (defun TRY ()
• (if (yes-or-no-p Apa khabar? )
• (format t Bagus!!)
• (format t Tak Bagus!!)))
• -gt (try)
• Apa khabar? Yes
• BAGUS
• nil
• -gt (try)
• Apa khabar? No
• Tak bagus!!
• nil

12
INPUT DAN OUTPUT

• INPUT DAN OUTPUT KE FAIL
• -gt (defun baca-fail()
• (with-open-file (stream data.txt)
• (let ((hari (read stream))
• ((jam (read stream))
• ((tarikh (read stream)))
• (format t Perjumpaan pada hari s
• , hari)
• (format t tarikh s jam s pagi, tarikh
  jam)))
• -gt (baca-fail)
• Perjumpaan pada hari isnin
• Tarikh (9 september 2007) jam 9 pagi
• nil

13
INPUT DAN OUTPUT

• INPUT DAN OUTPUT KE FAIL
• -gt (defun tulis-fail(hari tarikh jam)
• (with-open-file (stream data.txt direction
  output)
• (format stream s hari)
• (format stream s tarikh)
• (format stream s jam)))
• -gt (tulis-fail isnin (9 september 2007) 9)
• Nil
• untuk menambah guna if-exists append
• -gt (with-open-file (f-output data.txt
  direction output if-exists append) (print
  (selamat pagi) f-output))
• (Selamat pagi)

14
INPUT DAN OUTPUT

• INPUT DAN OUTPUT KE FAIL
• (with-open-file) akan ralat jika output stream
  tidak wujud, melainkan guna arahan
  if-does-not-exists create atau
  if-does-not-exists nil
• Selain itu fungsi
• print, prin1, terpri, format, read dan read-line,
• boleh digunakan untuk input dan output ke fail