One Shoot

Disinilah Nila berada, diantara kerumunan orang ia mengetuk-ngetukan kakinya. Menunggu. Ia juga sebenarnya tidak terlalu mengharapkan bisa ada ditempat begini. Didepannya ada sahabatnya Icha, yang sudah berdegup kencang dan berjingkrak-jingkrak tidak sabaran. Yah, beberapa puluh langkah didepan mereka ada Zayn Malik, Harry Styles, Liam Payne, Niall Horan and Louis Tomlinson. Siapa yang tidak tau kelima pria itu? Pria keren yang menjadi idola para gadis masa kini. 

Kalau bukan karena paksaan Icha, sebenarnya, Nila tak akan mau kesini. Ia lebih baik menyimpan uang meet and greet ini kedalam tabungannya dan membeli kamera lomography daripada membuang uang ini. Ini sungguh merugikan. Ia sedikit menyesal.

"Keep calm, Cha." Dia bilang kepada Icha, temannya menoleh dan menjawab

"I can't."

Nila memutar bola mata. Yasudahlah. Beginilah temannya kalau sudah dihubungkan dengan idolanya. Apalagi beberapa menit lagi mereka berdua akan bertemu One Direction. 5 pria-pria keren yang telah mengguncang ruangan ini. Jujur saja, Nila juga tau One Direction dari Icha. Icha berteriak kencang sekali saat ia melihat banner album One Direction didepan toko CD di Mall saat itu. kali itu Nila sempat menyukai Zayn Malik. One of the boys and wears earings and got any tattoo.

Jarak mereka semakin dekat kearah pria-pria British dan Irish itu. Membuat Icha semakin gemas dan membuat Nila menggelengkan kepalanya.

"OMG! THAT'S HARRY STYLES! MY ETERNAL LOVE. GOD, HE'S SO FUCKING GORGEOUS. NILA, I CAN'T HANDLE THIS." Icha hampir berteriak tidak karuan. Ia terlalu berlebihan.

"Calm down, you told me Harry doesn't like girl who yelling at him." Ucap Nila. Icha mengangguk mengerti sambil menenangkan dirinya. Ia berbisik kepada dirinya "Calm down, Icha. Calm fucking down!"

Nila terkekeh kecil. Ia sudah tidak sabar ingin melihat kehisterisan sahabatnya saat ber-high five dengan Harry Styles dan kawan kawannya.

Jarak mereka semakin mendekat, langkah demi langkah untuk kearah sang The Boys semakin kecil. Nila bisa melihat kelima pria tampan itu sedang duduk sejajar dan tersenyum kepada fans fans mereka. Mereka terlihat sangat, baik. Menurut Nila.

Matanya tertuju pada seorang pria berambut paling hitam dan berhalis tebal.

"Zayn Malik," gumamnya dalam hati. Jujur saja, Nila cukup naksir dengan pria itu. Wajahnya yang tampan dan rahangnya yang jantan mampu membuat matanya cukup terdiam, senyumnya yang mengembang mampu membuat jantungnya ikut menggema dan membuat risih tingkahnya. Ia berharap ia tidak salah tingkah didepan pria tampan itu nanti.

"Oh god, I can't breath." Gumam Icha pada Nila. Well, Nila kali ini akan menyetujui gumaman Icha tadi. Seakan ia seorang Directioner - sebutan untuk para fans One Direction - ia merasa jantungnya terlalu memburu karena melihat kearah Zayn terus menerus.

One step closer. They're so close to One Direction. Untuk saat ini, Nila bisa mengakui pria-pria ini begitu menganggumkan.

"Hallo, what's your name?" Pria blonde  bertanya pada Icha. Icha menelan ludah sambil memberikan albumnya yang akan ditanda tangani oleh Niall and the other boys secara bergantian, duh, kenapa si blonde ini sangat-amat menggemaskan dimata Icha.

"I'm Icha," ucapnya menyembunyikan kegagapan. Oh, it's working. Icha hanya harus menahan rasa gemasnya agar tidak mencubit pria itu hidup-hidup.

"Okay, I'll write your name here." Ucap Niall dengan aksen irishnya. "Ihh gemesiiiin" gereget Nila dalam hati.

Icha lalu bergeser ke posisi tepat didepan Louis Tomlinson. Nila tersenyum manis pada Niall. "Hello, you're so sweet, what's your name?" Kata Niall, Nila nyengir lebar. Ia dipuji seorang Niall Horan, pria berambut seperti ice cream yg menggemaskan. Itu suatu kehormatan.

"I'm Nila." Nila memberikan albumnya. Well, itu paksaan dari Icha untuk membeli album One Direction yang Nila akui album itu tak ada cacatnya.

"Wow, do you feel our names almost same? I mean, Nila and Niall. There's almost same. And we had N on our first letters." Ucap Niall, Yaampun, kenapa pria ini malah mengajak 

Nila berbicara. Membuat gadis ini semakin ingin mencubitnya.

"Oh yeah? I didn't know that. You're right. Niall and Nila. Our names not really different. But, you're an artist, it means, we're different, rite?" Nila menanggapi, jauh didalam hatinya ia ingin berjingkrakan karena ia sangat amat senang dipuji dan diajak berkomunikasi lebih lama oleh Niall Horan.

"No. We're all the same. We mean nothing if we don't have an amazing fans like you and the others."

"Yeah, but you guys deserve it."

"Nah, thank you. Here's your album Nila. And btw, is that your friend, isn't it?"

Niall menunjuk kearah Icha yang sedang berbincang pada Harry. Ia terlihat sangat menikmati conversation mereka.

"Ya, why?"

"I think, Harry likes her. Hahaha."

"Hahaha, I hope so,"

Niall tersenyum lagi pada Nila sebelum gadis itu menggeser ke posisi Zayn.

And now, she's face to face with Zayn. Zayn Malik!

Nila mencoba menenangkan agar tidak salah tingkah. Kali ini ia benar benar merasakan seluruh tubuhnya dialiri oleh darah yang sedingin es.

Zayn mendongak kearahnya. Ia sedikit terdiam lalu tersenyum pada Nila. Nila memberikan albumnya yg sekarang ditanda tangani oleh Zayn.

"Can I tell you something?"

Degub Nila semakin kencang ketika Zayn berkata. "He-em, yea, w-what?"

Zayn bisa membaca kegugupan Nila. “Sorry, if i say that. I’ve been watching for you. and i think, you’ll be prettier if you let down your hair.”

Nila menautkan alisnya. Barusan Zayn Malik berkata begitu? Oh god, ia bermimpi apa? Ia tidak sedang tidur dan di alam mimpi kan? Dan ia baru sadar kalau ia sedang menguncir kuda rambutnya. Dan.. Zayn berpikir ia lebih cantik jika ia membukanya?

“What’s your name by the way?”

“I-im, Nila.”

“Oh, Nila. Here’s your album. And if we meet again. I want you to do that. Got it?”

“What? Meet you again? When?”

Zayn Malik menyunggingkan senyumannya lagi. Nila semakin deg-degan. Dan ia tidak bisa menahan malunya jika Zayn melihat semburat merah yang sudah mengelilingi pipinya. Bodohnya, kenapa Nila jadi terdiam tak bergeming didepan Zayn Malik, padahal ia tau dibelakangnya masih banyak para gadis yang menunggu giliran untuk ber-high five dengan Zayn.

“Hem, i’ll DM you on twitter this night, to make sure when.”

Nila semakin tidak mengerti. “DM me? on twitter?”

“Yeah, i’ll follow you and your friend. And nilaaanos, was very nice username. Hahahaa” 

Zayn mengangkat sebuah kertas yang berisi tulisan @nilaaanos didalamnya.

What the hell is going on? Siapa yang berani memberikan username twitter-nya kepada Zayn Malik? Bodoh. Dia terlihat bodoh didepan Zayn saat ini. Entah kenapa, Nila langsung menoleh kearah Icha yang masih berbincang sambil tertawa-tawa bersama Harry Styles. Wow, she’s so good. Dan sama sekali tidak terlihat jiwa fangirling atau nervousnya. Nila yakin seyakin-yakinnya bahwa gadis itu yang memberikan Zayn username twitternya. Diam-diam Nila tersenyum.

“Don’t forget to check your DM tonight.” Zayn langsung tersenyum manis. Nila hanya bisa terdiam sambil lalu tersenyum nakal. “Okay, if you promise me to follow me back, bradford badboy.”

Zayn mengangkat ibu jarinya dan Nila hanya tertawa geli.

Malam ini Zayn akan mengiriminya DM? She can’t believe it. Dan dia bisa berasumsi kalau ia tidak pernah menyesal datang ke tempat ini.

***

          

 

  SEJARAH - SEJARAH KOMPUTER

Pengertian komputer

komputer adalah alat yang digunakan untuk memproses data menurut perintah yang telah di rumuskan, alat pengolah informasi, jadi apapun alat elektronik yang berfungsi sebagai alat pengolah informasi dapat disebut sebagai komputer (ya termasuk kalkulator), zaman sekarang keberadaan komputer semakin canggih, semakin tipis dan semakin praktis serta mudah dibawa kemana-mana, tapi sebelum melewati era seperti sekarang ini, sejarah komputer melewati 5 Generasi yaitu :

Sejarah komputer – Generasi Komputer Pertama

generasi pertama sejarah perkembangan komputer dilandasi oleh perang dunia ke dua, negara-negara yang terlibat dalam perang dunia kedua berlomba-lomba untuk mengembangkan dan menciptakan sistem komputer yang bisa mereka manfaatkan untuk menunjang sistem pertahanan dan kemampuan tempur
pada tahun 1941 seorang insinyur jerman yang bernama Konrad Zuse membangun sebuah komputer Z3 yang berfungsi untuk mendesain pesawat terbang dan peluru kendali

Zuse Z3 Machine 1936

tahun 1943 inggris berhasil menciptakan komputer pemecah kode rahasia (dekripter) yang dibuat oleh jerman, komputer ini diberinama colossus, komputer ini fungsinya hanya sebagai pemecah kode rahasia dan tidak bisa digunakan untuk yang lain.

colossus computer

pihak Amerika tidak mau ketinggalan,  seorang insinyur havard yang bernama Howard H. Aiken berhasil membuat kalkulator yang diperuntukan bagi US navy (satuan khusus tentara amerika), komputer ini diberi nama MARK I , fungsi utamanya sebagai kalkulator yang dapat menyelesaikan perhitungan aritmatika dasar dan persamaan yang kompleks

penampakan komputer MARK I

perkembangan komputer lain pada generasi ini adalah ENIAC ( Electronic Numerical Integrator and Computer) yang tercipta atas kerjasama antara amerika serikat dan University of Pennsylvania, ENIAC diciptakan oleh John Presper Eckert dan John W. Mauchly, ENIAC merupakan komputer serba guna yang memiliki kecepatan hingga 1000 kali lebih cepat dibanding MARK I

komputer eniac

pertengahan 1940an John von Neumann mendesain Electronic Discrete Variable Automatic Computer (EDVAC), pada tahap ini komputer sudah menggunakan memori baik untuk program maupun data, sehingga komputer dapat melakukan proses pause dan resum

komputer EDVAC

tahun 1951 diciptakan UNIVAC I (Universal Automatic Computer I) oleh Remington Rand, sebuah komputer komersial yang pertama, namun UNIVAC I masih menggunakan arsitektur dari EDVAC

komputer univac

pada generasi pertama ini komputer masih memiliki fungsi yang terbatas dan hanya berfungsi untuk satu tugas saja, komputer khusus untuk pekerjaan seperti menghitung, mendesain dlsb dilakukan oleh masing-masing komputer (komputer untuk menghitung sendiri, untuk mendesain sendiri)  masing-masing mesin memiliki bahasa mesinnya sendiri sendiri, jadi nggak multi fungsi seperti komputer jaman sekarang ini,
ukuran komputer pada generasi pertama ini juga berukurang raksasa hal ini diakibatkan oleh penggunaan tube vacum dan silinder magnetik untuk menyimpan data

Sejarah Komputer – Generasi Komputer ke Dua

generasi kedua ditandai dengan ukuran komputer yang semakin mengecil, hal ini dikarenakan adanya penemuan transistor yang menggantikan tube vacum, transistor sendiri mulai ramai diterapkan pada komputer komputer di tahun 1956.
perkembangan lain pada generasi ke dua ini adalah penemuan memori yang menggunakan inti magnetik, dimana komputer bekerja lebih cepat, hemat energi dan lebih handal, mesin pertama yang menganut teknologi baru pada masanya ini adalah superkomputer, IBM memproduksi superkomputer yang diberi nama Stretch dan  Sperry-Rand membuat komputer yang bernama LARC, walaupun pada masanya jenis komputer ini sangat canggih, namun tidak diproduksi masal dan tidak di pasarkan untuk bisnis karena harganya yang sangat mahal dan sangat rumit, pada tahap ini komputer sudah menggunakan bahasa assembly.

komputer IBM Stretch

komputer LARC

baru pada tahun 1960 komputer generasi kedua mulai di jual ke pasar dan banyak digunakan oleh kalangan bisnis, universitas maupun pemerintahan, pada masa ini komputer sudah sepenuhnya menggunakan transistor dan memiliki komponen-komponen modern seperti printer, disket, memori, sistem operasi dan program
pada tahun 1401 komputer di terima luas oleh kalangan industri dan pada tahun 1965 perusahan-perusahan besar sudah menggunakan komputer generasi kedua untuk memproses informasi keuangan
pada generasi ini beberapa bahasa pemrograman mulai bermunculan , bahasa pemrograman yang umum digunakan pada saat itu adalah Common Business-Oriented Language (COBOL) dan Formula Translator (FORTAN), bahasa pemrograman ini sangat membantu manusia karena mengganti kode mesin yang rumit menjadi kata-kata, kalimat dan formula matematika yang lebih dipahami oleh manusia.
pada masa ini berbagai karir baru mulai bermunculan seperti analis dan programer, indrustri perangkat lunak juga banyak bermunculan pada masa ini.

Sejarah Komputer – Generasi Komputer ke Tiga

transistor memang jauh lebih unggul dari tube vacum, namun transistor ternyata menimbulkan panas yang cukup besar, sehingga berpotensi untuk merusak komponen komputer yang penting, untuk mengatasi masalah ini digunakanlah batu kuarsa  (quartz rock), hingga pada tahun 1958 Jack Kilby, seorang insinyur di Texas Instrument, mengembangkan sirkuit terintegrasi (IC : integrated circuit).

jack kilby dikelilingi komputer generasi ke 3

IC terbuat dari pasir kuarsa yang didalamnya terdapat 3 komponen elektronik yang dikombinasikan, hingga kemudian ilmuwan berhasil memasukan lebih banyak lagi komponen kedalam sebuah chip yang disebut semikonduktor, hasilnya bisa kita tebak, ukuran komputer menjadi semakin kecil karena komponennya dipadatkan dalam sebuah chip IC.
pada tahap ini komputer sudah menggunakan sistem operasi yang memiliki kemampuan untuk menjalankan beberapa program secara serentak, dengna program utama yang mengontrol penggunaan memori komputer

Sejarah Komputer – Generasi Komputer ke Empat

setelah IC ditemukan, perkembangan komputer semakin pesat dan jelas, semakin banyak komponen yang bisa dimasukan kedalam chip hingga Pada tahun 1980-an, Very Large Scale Integration (VLSI) dapat memasukan ribuan komponen dalam sebuah chip tunggal
jumlah ribuan tersebut meningkat menjadi jutaan, jutaan komponen berhasil dimasukan kedalam sebuah chip tunggal, kemampuan tersebut berdampak pada semakin kecilnya ukuran komputer dan semakin murah harganya.
pada tahun 1971 chip INTEL 4004 membawa kemajuan besar dalam dunia IC, intel berhasil memasukan semua komponen dalam sebuah komputer (central processing unit, memori, dan kendali input/output) kedalam sebuah chip tunggal yang sangat kecil, jika sebelumnya IC digunakan untuk mengerjakan pekerjaan  tertentu saja maka pada masa ini mikroprosesor dapat diproduksi dan di program untuk menjalankan seluruh kebutuhan yang diinginkan.

chip intel 4004

dengan perkembangan ini komputer bukan lagi miliki perusahan-perusahaan besar, masyarakat umum seperti kita-kita ini bisa menikmati komputer, pada tahun 1970an komputer mulai dipasarkan ke masyarakat umum, komputer yang dipasarkan ini dijuluki minikomputer, dijual sudah termasuk sistem operasi dan perangkat lunak yang mudah digunakan oleh masyarakat awam, perangkat lunak yang paling populer pada masa itu adalah program word processing dan spreadsheet
pada awal 1980an komputer sudah mulai digunakan untuk kebutuhan gaming, atari 2600 sangat menarik konsumen pada saat itu.

atari-2600

pada tahun 1981 IBM memperkenalkan penggunaan Personal Computer (PC) untuk pengguna rumahan, kantor dan sekolah, ternyata langkah ini disambut sangat positif oleh pasar, terbukti dengan terjualnya 2 juta unit pada tahun 1981 menjadi 5,5 juta unit pada tahun 1982. Sepuluh tahun kemudian, 65 juta PC digunakan. komputer pun terus melanjutkan evolusinya, dari yang semula diatas meja, menjadi bisa dimasukan ke dalam tas (laptop) bahkan ada yang bisa digengam (palmtop).

komputer IBM tahun 1981

IBM bersaing keras dengan Apple machintos, machintos menjadi populer karena memperkenalkan sistem operasi berbasis grafis (GUI) sedangkan lawannya masih berbasis text, Macintosh juga memopulerkan penggunaan piranti mouse.

machintos generasi pertama

Pada masa sekarang, kita mengenal perjalanan IBM compatible dengan pemakaian CPU: IBM PC/486, Pentium, Pentium II, Pentium III, Pentium IV (Serial dari CPU buatan Intel). Juga kita kenal AMD k6, Athlon, dsb. Ini semua masuk dalam golongan komputer generasi keempat

Sejarah Komputer – Generasi Komputer ke Lima

generasi ini lah yang akan kita lalui, belum ada proyek nyata untuk komputer generasi ke lima, karena sejauh ini masih berupa konsep dan jargon yang belum di kembangkan lebih jauh, konsep komputer generasi ke lima adalah adanya kecerdasan buatan sehingga komputer memiliki nalar seperti manusia, dapat belajar dari pengalamannya sendiri dan menggunakan masukan visual

ilustrasi

walaupun masih konsep namun beberapa fungsi tersebut sudah mulai terlihat gambarannya walaupun masih kasar , beberapa komputer saat ini dapat menerima perintah suara dari manusia dan mampu meniru nalar manusia, menterjemahkan bahasa asing dlsb, agaknya komputer generasi ke lima ini ingin “memanusiakan” komputer, bukan tidak mungkin namun butuh waktu dan perjuangan ekstra keras untuk mewujudkannya, mengingat manusia bukan sekedar hitungan dan logika , manusia itu rumit..!!
Jepang adalah negara yang terkenal dalam sosialisasi jargon dan proyek komputer generasi kelima. Lembaga ICOT (Institute for new Computer Technology) juga dibentuk untuk merealisasikannya. Banyak kabar yang menyatakan bahwa proyek ini telah gagal, namun beberapa informasi lain bahwa keberhasilan proyek komputer generasi kelima ini akan membawa perubahan baru paradigma komputerisasi di dunia.
dari berbagai sumber

Artikel lain yang berhubungan dengan sejarah komputer - sejarah perkembangan komputer dari masa ke masa

pengertian internet, sejarah internet serta internet pada masa kini

pengertian komputer dan definisi komputer menurut para ahli

Sejarah Linux - Asal Mula terciptanya sistem operasi Linux

komputer virtual memungkinkan instalasi OS di dalam OS

TUGAS TULISAN
 
TATA CARA MEMBUAT GARIS MELENGKUNG PADA GIMP

Pertama, buka aplikasi GIMP versi berapapun yang ada di laptop atau PC anda. Setelah terbuka, akan tampil lembar kerja seperti dibawah ini :

Lalu anda pilih File dan klik New. Dan akan keluar tempat untuk mengatur berapa pixels ukuran yang akan kita buat. Misalnya, 420x360 pixels.

Kemudian, pilih OK.

Inilah, lembar kerja yang untuk mengedit gambar atau foto pada GIMP.

Untuk membuat garis melengkung seperti huruf S, pilih pada bagian Tool Box disamping kanan dan pilih Paths Tool yang bericon  

Setelah di klik, arahkan kursor ke lembar kerja dan buatlah dua titik garis dengan jarak yang cukup jauh, seperti dibawah ini

Tarik dan tahan garis akhir lalu buatlah lekukan agar terbentuk hasil seperti diatas, kemudian beri titik pada anchor terakhir. Hingga jadi seperti ini :

Itulah, garis yang berbentuk sama dengan S. Dan jika garis ingin diperbagus dengan menggunakan beberapa efek. Kita bisa menggunakan Stroke Path yang sudah tersedia dibawah Tool Options.

Arahkan kursor anda kebawa Tool Options lalu pilih Stroke Path. Dan hasilnya akan jadi seperti ini,

Hasilnya, garis tadi akan berubah menjadi garis hitam tebal, jika anda ingin merubahnya dengan macam-macam warna ataupun efek, bisa menggunakan warna ataupun efek yang tersedia disana. Anda bisa merubahnya dari Paintbrush Tool.

Pilih Paintbrush Tool lalu akan keluar pilihan seperti ini

Anda bisa pilih sesuka hati, misalnya, pilih yang bermotif bintang, matahari, paprika dan lain lain. Kali ini kita coba menggunakan ini . Klik pada motif itu lalu buat garis seperti langkah-langkah awal (menggunakan paths tool dan tarik perlahan lalu stroke dengan stroke paths).

Gambar diatas adalah hasil jika kita membuat salah satu Paths Tool dan men stroke-nya dengan Stroke Paths.

Buat sebuah garis lagi agar menjadi tiga buah garis sejajar. Dengan cara sama menggunakan Paths Tool dan Stroke Paths. Kali ini kita akan menggunakan motif dengan warna merah.

Karena warna mataharinya berwarna orange, jadi hanya pinggirannya saja yang berubah warna menjadi agak sedikit merah.

Nah, diatas adalah tata cara membuat lengkungan S dengan menggunakan GIMP. Hanya dengan menggunakan Paths Tool, Stroke Path dan Paintbrush, pembuatan garis bisa menggunakan beberapa macam efek.

Untuk mengesave atau menyimpan gambar pada GIMP. Anda bisa menggunakan tahap :

-          Klik File lalu pilih Save As. Jika pada laptop biasanya format yang dipakai masih GIMP atau berekstensi XCF.

Untuk merubah format anda bisa mengeklik :

-          File lalu pilih Export to, lalu anda bisa memilih format yang anda inginkan. Ada PNG, JPEG, JPG, GIF dan lain-lain.

Inilah hasil jika gambar sudah di eksport ke format JPG

Program Sort Mahasiswa Berdasarkan Kelas

Program  sort_pascal;

uses wincrt;

label z;

label l;

var textfile:text;

    FileName, TFile : String;

    a:array[1..15] of string;

    i,j:integer;

    x,v:char;

    temp: string;

procedure input;

Begin

 clrscr;

 Writeln('press Enter to input data '+

    +' of the text file:');

 readln(FileName);

 writeln('.......DATA MAHASISWA......');

 writeln('--------------------------');

 writeln('KELAS   NAMA        NPM');

 writeln('--------------------------');

 {A .txt file will be assigned to a text variable}

 Assign(textfile, 'H:\contoh.txt');

 Reset(textfile); {'Reset(x)' - means open the file x}

 Repeat

  Readln(textfile,TFile);

  Writeln(TFile);

 Until Eof(textfile);

 Close(textfile);

 Readln;

End;

procedure sort;

begin

clrscr;

 assign(textfile,'H:\contoh.TXT');

  reset(textfile);

  for i:=1 to 15 do readln(textfile,a[i]);

  close(textfile);

  for i:=1 to 14 do

    for j:=i to 15 do

      if a[j]<a[i] then

        begin

          temp:=a[i];

          a[i]:=a[j];

          a[j]:=temp;

        end;

assign(textfile,'H:\contoh.TXT');

rewrite(textfile);

for i:=1 to 15 do writeln(textfile,a[i]);

close(textfile);

end;

procedure output;

Begin

 clrscr;

 Writeln('Enter the file name '+

        +'(with its full path) of the text file:');

 readln(FileName);

 writeln('========DATA MAHASISWA========');

 writeln('--------------------------');

 writeln('KELAS   NAMA        NPM');

 writeln('--------------------------');

 {A .txt file will be assigned to a text variable}

 Assign(textfile, 'H:\contoh.txt');

 Reset(textfile); {'Reset(x)' - means open the file x}

 Repeat

  Readln(textfile,TFile);

 Writeln(TFile);

 Until Eof(textfile);

 Close(textfile);

 Readln;

End;

begin

z: clrscr;

gotoxy(8,10); write('|################|');

write(' Program sort berdasarkan kelas');

writeln('|###############|');writeln;

gotoxy(9,11);writeln('---------------------------------------------------------');

gotoxy(20,13);writeln('1.Masukkan Data');

gotoxy(20,14);writeln('2.Pensortiran Data');

gotoxy(20,15);writeln('3.Output');

gotoxy(20,16);writeln('4.Exit ');

gotoxy(1,20);writeln('Masukkan Pilihan (1,2,3,4) : ');readln(x);

case x of

'1' : input;

'2' : sort;

'3' : output;

'4' : goto l;

end;

if x = '2' then

begin

clrscr;

writeln('Selesai(tekan Enter)'); readln;

goto z;

end;

writeln('Apakah anda ingin kembali ke menu? : '); readln(v);

if (v = 'y') or (v = 'Y') then goto z;

l: end.

 Berikut adalah penulisan coding pada program pascal 

Coding 1

Coding 2

Coding 3

Coding 4

Data di masukan ke notepad lalu simpan di derektori H /sesuai dengan penyimpanan data masing-masing

Jalankan Program

Secara Otomatis Data Akan Muncul

Setelah itu kembali ke menu dengan menuliskan "y"

Setelah itu pilih "2" untuk mensortir data

Dan akan menghasilkan sortiran seperti diatas