Nembak Cewek Lewat Bahasa Pemograman Pascal

Bahasa Pemograman Komputer adalah bahasa atau perintah yang dapat dimengerti oleh komputer saat langkah-langkah atau proses yang telah di input (masukan) komputer secara otomatis dapat dimengerti perintah tersebut itulah Bahasa Pemograman Komputer.

Selain bahasa pemograman komputer ada juga bahasa pemograman Mesin dan Bahasa Pemograman Web [CSS] (php,html,xhtml,bbcode) dll.

untuk bahasa Pemograman Web (CSS) tentunya sudah tak asing lagi bagi para pemilik Blog, Wap dan Website. Tapi kita tidak akan membahas itu sesuai materi judul artikel ini. Tapi yang jelas jika kamu sudah mampu membuat CSS sendiri berarti kamu sudah mampu membuat program dan kamu disebut programer Web

Baik didalam Algoritma (bahasa pemograman komputer) akan ada banyak dan contoh-contoh bahasa pemograman diantara Basic, C++, Pascal, dan masih banyak lagi

Bahasa Pascal adalah Bahasa tingkat tinggi kenapa, karena Bahasa Pascal sudah menggunakan perintah input seperti yang dimengerti oleh Manusia pada umumnya (mulai, tulis, baca, selesai, dll)

Berikut contoh kecil (sederhana) bahasa pemograman Pascal:

Kalau Katakan cinta lewat surat itu sudah biasa, lewat SMS juga sudah biasa, Lewat telpon juga begitu, apalagi dikatakan secara langsung di Hadapan Doi itu sudah pasti dan wajar (gentelmen)

tapi bagaimana jika
"Nembak Cewek lewat Bahasa pemograman Pascal"
tentunya ini berbeda dan akan membuat kamu menjadi lebih kreatif dalam menulis sebuah perogram bahasa Pascal.

Berikut:
menggunakan perintah

"If Then Else"

uses crt;
var x:integer;
begin
clrscr;
writeln ('Sudah lama aku menanti disaat ini');
writeln ('sungguh aku kaku jika harus');
writeln ('mengutarakannya secara langsung');
writeln ('dan inilah kesempatan ku');
writeln ('Juliana Maukah engkau menjadi sebagian dari hidupku');
writeln ('menjadi kekasih ku..?');
writeln ('Jika Ya pilih angka 1');
writeln ('Jika Ragu pilih angka 2');
writeln('Jika Tidak pilih angka 3');
writeln ('Aku menanti jawaban darimu');
readln(x);
if x=1 then
writeln('Ya, Sungguh aku tak percaya aku bahagia engkau telah memilihku dan aku ingin menjadi kekasihmu')
else if x=2 then
writeln('Ragu, aku masih ragu padamu aku butuh waktu')
else if x=3
writeln('Tidak, aku tidak bisa menjadi pacarmu hatiku sudah ada yang punya Wawan');
readlen;
end.
Nanti hasilnya akan seperti ini:

"Sudah lama aku menanti disaat ini sungguh aku kaku jika harus mengutarakannya secara langsung dan inilah kesempatan ku, Juliana maukah engkau menjadi sebagian dari hidupku dan menjadi kekasihku..?

Jika Ya pilih angka 1
Jika Ragu pilih angka 2
Jila Tidak pilìh angka 3
aku menanti jawaban darimu
Lalu saat juliana menekan angka pilihannya misalnya ia memilih angka 3 otomatis dilayar akan muncul tulisan

'Tidak, aku tidak bisa menjadi pacarmu hatiku sudah ada yang punya maafkan aku Wawan'

Bagaimana Mudah bukan ini adalah contoh versi paling mudah dalam Bahasa Pascal.

Ini dapat bermanfaat buat kamu yang sedang mencari Tugas sekolah maupun tugas Kuliah Algoritma, semoga ini dapat membantu.