Tipe Bilangan

Bilangan Bulat Tipe ini sudah dikenal dalam kehidupan sehari-hari. Bilangan bulat adalah bilangan yang tidak menhgandung pecahan desimal, misalnya 34, 8, 1203, 0, -17 dan sebagainya. Nama Tipe Nama tipe bilangan bulat adalah integer. Ranah Nilai Secara teoretis, tipe bilangan bulat mempunyai ranah nilai yang tidak terbatas. rentang nilainy adalah dari minus tah hingga sampai plus tak hingga asalkan setiap nilainya tidak mengandung titik desimal. Namun di dalam algoritma kita dapat mendefinisikan ranah tertentu untuk objek yang kita definisikan. Pendefinisaian ranah ini diperlukan untuk menyatakan bahwa nilai objek hanya boleh berada dalam ranah tersebut. Misalnya objek “jam” didefinisaikan bertipe bilangan bulat dengan ranah nilai untuk “jam” adalah dalam {0..23}. Bila sebuah objek bilangan...

Read more »

Sub Program

Dalam suatu program, kadang ada bagian progam yang disembunyikan dan menggantinya dengan suatu kata. Bagian program tersebut dinamakan subprogram. Dalam bahasa pascal, ada dua tipe subprogram, yaitu procedure dan function. Keduanya merupakan kelompok dalam bahasa pascal yang dipisahkan dari program utamanya. keduanya dijalankan dan dieksekusi dengan memanggil namanya. Perbedaan procedure dan function adalah pengenal function mempunyai tipe dan membawa nilai ketika dieksekusi. sedangkan pengenal procedure tidak mempunyai tipe dan tidak membawa tipe. Suatu procedure atau finction mempunyai argument atau parameter yang ditulis dalam tanda kurung. Parameter formal adalah parameter yang terdapat pada pendeklarasian judul. parameter actual adalah parameter pada pemanggilan....

Read more »

Rekursi

Rekursi bisa melalui procedure atau function. Procedure memanggil dirinya sendiri meruakan suatu procedure yang memanggil atau menggunakan procedure itu juga. Fungsi juga dapat memanggil dirinya sendiri. Proses dari suatu program yang memenggil dirinya sendiri disebut rekursi. Contoh: Program Latihan_Rekursi_1; Uses Wincrt; Function Faktorial(a:real):real; Begin If (a=1)then Faktorial:=1 else Faktorial:=a*faktorial(a-1); End; Var x:longint; Begin Writeln('Berapa Faktorial? ');Readln(x); Writeln(x,' faktorial ','= ',Faktorial(x):5:0); End....

Read more »

Procedure

Dalam dunia pemrograman, procedure adalah modul program yang mengerjakan tugas yang spesifik dan menghasilkan efek netto. Suatu efek netto diketahui dengan membandingkan keadaan awal dan keadaan akhir pada pelaksanaan sebuah procedure. Setiap procedure mempunyai nama yang unik. nama procedure sebaiknya diawali dengan kata kerja. Contoh: Program Menukar_Nilai_A_dan_B; Uses Wincrt; Var A,B:real; Procedure Tukar(Var X,Y:real); Var penukar:real; Begin penukar:=X; X:=Y; Y:=penukar; End; Begin Write ('Masukkan Nilai A=');readln (A); Write ('Masukkan Nilai B=');readln (B); Writeln ('Nilai A sebelum ditukar',(A):5:0); Writeln ('Nilai B sebelum ditukar',(B):5:0); Tukar(A,B);...

Read more »

Pengulangan

Salah satu kelebihan komputer adalah kemampuannya untuk mengerjakan pekerjaan yang sama berulang kali tanpa mengenal lelah. ini berbeda dengan manusia yang cepat lelah bila mengerjakan pekerjaan yang sama berulang-ulang. tidak hanya lelah, tetapi juga cepat bosan. Dalam bahasa Pascal terdapat 3 macam kendali untuk melakukan proses pengulangan (looping) yang sering digunakan dalam bahasa pemrograman tingkat tinggi, yaitu pernyataan for, while dan repeat. masing-masing pernyataan mempunyai kekhususan dan keunggulan sendiri. Pada umumnya control pengulangan mengulang satu atau lebih pernyataan berdasarkan suatu kondisi. Hal ini sangat memudahkan kita membuat suatu program karena dapat menghemat jumlah pernyataan yang harus ditulis. Kontrol Program For For adalah salah satu pernyataan yang...

Read more »

Pemilihan

Adakalanya sebuah instruksidikerjakan jika kondisi tertentu dipenuhi. Pencarian data terkecil dilakukan dengan membandingkan data. Mula-mula data pertama dianggap data terkecil sementara (min). Bandingkan (min) denghan data ke-2, 3, …, N. Selama proses pembandingan, bila data ke-j lebih kecil dari min, maka data ke-j itu jadi min baru. If-then Struktur pemilihan if-then hanya memberikan satu pilihan aksi bila kondisi dipenuhi, dan tidak memberi pilihan aksi lain bila kondisi bernilai salah. Bentuk pemilihan yang lebih umum adalah memilih satu dari dua buah aksi bergantung pada nilai kondisinya: if kondisi then aksi 1 else aksi 2 Else artinya kalau tidak. Bila kondisi benar aksi 1 dikerjakan, kalau tidak aksi 2 dikerjakan. Contoh: If hari hujan then pergilah dengan mobil else pergilah...

Read more »

Function

Blok fungsi hamper sama dengan blok procedure, hanya fungsi harus dideklarasikan dengan tipenya. Tipe deklarasi ini menunjukkan tipe hasil dari function. Pada daftar parameter bisa berisi sejumlah parameter yang dipisahkan denga tanda koma. jika function tidak memiliki parameter, tanda() tidak perlu disertakan. Contoh: Program Latihan_Function; Uses Wincrt; Var x,y:longint; Function Tambah(a,b:longint):longint; Var Hasil:longint; Begin Hasil:=a+b; Tambah:=Hasil; End; Begin Write('Masukkan bilangan pertama: ');readln(x); Write('Masukkan bilangan kedua: ');readln(y); Write('Hasilnya adalah ',(Tambah(x,y))); end....

Read more »

Larik (Array)

Apakah Larik Itu? Larik adalah struktur data yang menyimpan sekumpulan elemen yang bertipe sama. Setiap elemen diakses langsung dari indeksnya. Indeks larik haruslah tipe data yang menyatakan keterurutan, misalnya integer atau karakter. Larik yang bernama A dengan delapan buah elemen dapat dibayangkan lecara logis sebagai sekumpulan kotak yang terurut. tiap kotak tersebut diberi indeks. Contoh: A[1], A[2], A[3], A[4], A[5] Angka didalam tanda kurung siku menyatakan indeks larik. Setiap elemen larik menyimpan sebuah nilai. Karena seluruh elemen larik bertipe sama, maka nilai yang disimpan setiap elemen harus bertipe sama pula. Contoh: Program Latihan_Array_1; Uses Wincrt; Var a,b:integer; tabel: array[1..3,1..2] of integer; Begin Write('Tabel 1,1:');Readln(tabel[1,1]); ...

Read more »

Apakah Algoritma Itu?

Ditinjau dari asal-usul kata, kata algoritma mempunyai sejarah yang aneh. Kata ini tidak muncul dalam kamus Webster sampai akhir tahun 1957. Orang hanya menemuka kata algorism yang berarti proses menghitung dengan angka arab. Anda dikatakan algorist jika anda menggunakan angka arab. para ahli sejarah matematika menemukan asal mula kata tersebut. Kata algorism berasal dari nama penulis buku arab yang terkenal, yaitu Abu Ja’far Muhammad ibnu Musa al-Khuwarizmi (al-Khuwarizmi dibaca orang barat menjadi algorism). Al-Khawarizmi menulis buku berjudul Kitab al jabar wal-muqabala, yang artinya “Buku pemugaran dan pengurangan”. Perubahan dari kata algorism menjadi algorithm muncul karena kata algorism sering dikelirukan dengan arithmetic, sehingga akhiran -sm berubah menjadi -thm. Kata algorithm...

Read more »

Algoritma

Definisi: Algoritma adalah urutan langkah-langkah logis penyelesaian masalah yang disusun secara sistematis. Sebagai pembanding, disini dikemukakan definisi algoritma menurut Kamus besar Bahasa Indonesia: Algoritma adalah urutan logis pengambilan putusan untuk pemecahan masalah. Kata logis merupakan kata kunci dalam sebuah algoritma. Langkah-langkah di dalam algoritma harus logis, ini berarti hasil dari urutan langkah-langkah tersebut harus dapat ditentukan benar atau salah. Langkah-langkah yang tidak benar dapat memberikan hasil yang salah....

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang segitiga asik.Program Jumlah_Segitiga_Asik;Uses Wincrt;Var a,b,c,d:longint;Begin Write ('Berapa baris segitiga asik yang kamu inginkan: '); read (a); For c:=1 to a do Begin For b:=1 to c do Begin Write (c:2); If bc then="" write="" ('="" +="" '); End; For b:=1 to c do d:=b*b; Write (' = '); Write (d); Writeln; Writeln; End;End.Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang segitiga asik.Program Jumlah_Segitiga_Asik;Uses Wincrt;Var a,b,c,d:longint;Begin Write ('Berapa baris segitiga asik yang kamu inginkan: '); read (a); For c:=1 to a do Begin For b:=1 to 1 do Write (c:2); ...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang for to do.Program For_to_do;Uses Wincrt;Var a:longint;Begin For a:=1 to 5 do Writeln (a,' . Pemrograman Komputer');End.Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang repeat until.Program Repeat_until;Uses Wincrt;Var a:longint;Begin a:=0; Repeat a:=a+1; Writeln (a,' . Pemrograman Komputer'); Until a>4;End.Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang while do.Program While_do;Uses Wincrt;Var a:longint;Begin a:=0; While a<5 do Begin a:=a+1; Writeln (a,' . Pemrograman Komputer'); End;E...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang rekursi.Program Latihan_Rekursi_1;Uses Wincrt;Function Faktorial(a:real):real;Begin If (a=1)then Faktorial:=1 else Faktorial:=a*faktorial(a-1);End;Var x:longint;Begin Writeln('Berapa Faktorial? ');Readln(x); Writeln(x,' faktorial ','= ',Faktorial(x):5:0);End.Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang rekursi.Program Latihan_Rekursi_2;Uses Wincrt;Procedure Rekursi(a:integer);Var y:integer;Begin If a<10 then Begin Writeln('Pascal'); Writeln; a:=a+1; Rekursi(a); End;End;Var x:integer;Begin Writeln('Berapa batas awalnya?');Readln(x); Rekursi(x);End.Bagi teman-teman yang sedang...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang konversi detik ke jam.Program Konversi_Detik_ke_Jam;Uses Wincrt;Var hh,mm,ss,Total_Detik:longint;Begin Write ('Total Detik= ');readln (Total_Detik); hh:=Total_detik div 3600; mm:=(Total_detik mod 3600) div 60; ss:=(Total_detik mod 3600) mod 60; Writeln ('Waktu dalam Jam adalah ',hh,(' jam, '),mm,(' menit, '),ss,(' detik.'));End.Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang konversi detik ke jam.Program Konversi_Detik_ke_Jam;Uses Wincrt;Type Jam = record hh:longint; mm:longint; ss:longint; end;Var J:Jam; Total_Detik:longint;Begin Write ('Total Detik= ');readln (Total_Detik);...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang konversi suhu.Program Konversi_Suhu;Uses Wincrt;Var C,K,F:real;Begin Write ('Masukkan suhu dalam Celcius= ');readln(C); F:=((9/5)*C)+32; K:=C+273; Writeln ('Suhu dalam Fahrenheit= ',(F):5:2); Writeln ('Suhu dalam Kelvin= ',(K):5:2);End.Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang konversi suhu.program Konversi_Suhu;uses wincrt;vara:real;b,c,d:real;beginwrite ('Masukkan suhu dalam Celcius=');readln(a);b:=(5/9*a)+32;c:=(4/5*a);d:=a+273;writeln ('Suhu dalam Fahrenheit=',(b):5:2);writeln ('Suhu dalam Reamur=',(c):5:2);writeln ('Suhu dalam Kelvin=',(d):5:2);e...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang array.Program Latihan_Array_1;Uses Wincrt;Var a,b:integer; tabel: array[1..3,1..2] of integer;Begin Write('Tabel 1,1:');Readln(tabel[1,1]); Write('Tabel 1,2:');Readln(tabel[1,2]); Write('Tabel 2,1:');Readln(tabel[2,1]); Write('Tabel 2,2:');Readln(tabel[2,2]); Write('Tabel 3,1:');Readln(tabel[3,1]); Write('Tabel 3,2:');Readln(tabel[3,2]); Writeln; Clrscr; For a:=1 to 3 do Begin For b:=1 to 2 do Write(tabel[a,b],' '); Writeln; End;End.Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang array.Program Latihan_Array_2;Uses Wincrt;Var b,k:integer; tabel: array[1..3,1..3] of integer;Begin Write('Berapa baris...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang rumus abc.program Rumus_abc;uses wincrt;vara,b,c,d,X1,x2:real;beginwriteln ('Masukkan a=');readln(a);writeln ('Masukkan b=');readln(b);writeln ('Masukkan c=');readln(c);if a=0 then ('Masukkan a=');readln(a);else d:=b*b-(4*a*c);end; if d<0 then ('Masukkan d='e...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang terbilang.Program Terbilang;Uses Wincrt;Var a,b,c:longint;Begin Write('Masukkan Angka: ');readln(a); b:=a div 10; c:=a mod 10; Writeln; Begin If (b=1) and (c=0) then write('sepuluh'); If (b=1) and (c=1) then write('sebelas'); If (b=1) and (c=2) then write('dua belas'); If (b=1) and (c=3) then write('tiga belas'); If (b=1) and (c=4) then write('empat belas'); If (b=1) and (c=5) then write('lima belas'); If (b=1) and (c=6) then write('enam belas'); If (b=1) and (c=7) then write('tujuh belas'); If (b=1) and (c=8) then write('delapan belas'); If (b=1) and (c=9) then write('sembilan belas'); ...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang kelulusan.program Kelulusan;uses wincrt;vara,b,c,d:real;Ket:string[11];beginwriteln ('Masukkan Nilai PDB=');readln(a);writeln ('Masukkan Nilai Kalkulus=');readln(b);writeln ('Masukkan Nilai Statistika Inferensial=');readln(c);d:=(a+b+c)/3;Writeln ('Rata-rata Nilai',(d):5:2);Ket:='Lulus';if d <50 then Ket:='Tidak Lulus';writeln(Ket);e...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung luas dan keliling lingkaran.Program Menghitung_Luas_dan_Keliling_Lingkaran;Uses Wincrt;Const Phi=3.14;Var r,Luas,Keliling:real;Begin Write ('Masukkan ukuran Jari-jari Lingkaran=');readln (r); Luas:=Phi*r*r; Keliling:=2*Phi*r; Write ('Luas Lingkaran adalah ');writeln ((Luas):5:2); Write ('Keliling Lingkaran adalah ');writeln ((Keliling):5:2);End.Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung luas dan keliling persegi panjang.Program Menghitung_Luas_dan_Keliling_Persegi_Panjang;Uses Wincrt;Var p,l,Luas,Keliling:real;Begin Write ('Masukkan ukuran panjang Persegi Panjang=');read (p); Write ('Masukkan ukuran...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung biaya telepon.Program Menghitung_Biaya_Telepon;Uses Wincrt;Var hh1,mm1,ss1,hh2,mm2,ss2,Total_Detik,Biaya_Telepon:longint;Begin Writeln ('Waktu mulai telepon:'); Write ('Jam =');read (hh1); Write ('Menit=');read (mm1); Write ('Detik=');read (ss1); Writeln ('Waktu selesai telepon:'); Write ('Jam =');read (hh2); Write ('Menit=');read (mm2); Write ('Detik=');read (ss2); Total_Detik:=(hh2-hh1)*3600+(mm2-mm1)*60+(ss2-ss1); Biaya_Telepon:=(Total_Detik div 5)*200; Writeln ('Lama Waktu Telepon dalam Detik adalah ',(Total_Detik), (' detik.')); Writeln ('Biaya Telepon adalah Rp ',Biaya_Telepon);End.Bagi teman-teman yang sedang belajar Pascal, bisa melihat...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menampilkan bilangan genap.Program Menampilkan_Bilangan_Genap;Uses Wincrt;Var x,angka_awal:longint;Begin angka_awal:=2; Repeat Write (angka_awal,' '); angka_awal:=angka_awal+2; Until angka_awal>50E...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung gaji karyawan.Program Menghitung_Gaji_Karyawan;Uses Wincrt;Var Nama_Karyawan:string; Gaji_Pokok:real; Jumlah_Anak:longint; Tunjangan_Istri,Tunjangan_anak,Gaji_Keseluruhan,Pajak,Gaji_Akhir:real;Begin Write ('Masukkan Nama Karyawan: ');readln (Nama_Karyawan); Write ('Masukkan Gaji Pokok=Rp ');readln (Gaji_Pokok); Write ('Masukkan Jumlah anak= ');readln (Jumlah_Anak); Tunjangan_Istri:=0.15*Gaji_Pokok; Tunjangan_Anak:=Jumlah_Anak*0.20*Gaji_Pokok; Gaji_Keseluruhan:=Gaji_Pokok+Tunjangan_Istri+Tunjangan_Anak; Pajak:=0.15*Gaji_Keseluruhan; Gaji_Akhir:=Gaji_Keseluruhan-Pajak; Writeln ('Tunjangan Istri =Rp ',(Tunjangan_Istri):15:2); Writeln ('Tunjangan...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang operasi.program Operasi;uses wincrt;vara,b:longint;c,d,e,f,g,h:real;beginwriteln ('Masukkan bilangan pertama');readln (a);writeln ('Masukkan bilangan kedua ');readln (b);c:=a+b;d:=a-b;e:=a*b;f:=a/b;g:=a div b;h:=a mod b;write ('jumlah=',(c):5:2,(d):5:2,(e):5:2,(f):5:2,(g):5:2,(h):5:2);end.Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang procedure.Program Operasi_Tambah_Kurang_Kali_Procedure;Uses Wincrt;Procedure Penjumlahan(Var a,b:longint);Var c:longint;BeginWriteln ('Operasi yang anda pilih adalah Penjumlahan');Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);c:=a+b;Gotoxy (20,7); Writeln ('Hasil...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang function.Program Latihan_Function;Uses Wincrt;Var x,y:longint;Function Tambah(a,b:longint):longint;Var Hasil:longint;Begin Hasil:=a+b; Tambah:=Hasil;End;Begin Write('Masukkan bilangan pertama: ');readln(x); Write('Masukkan bilangan kedua: ');readln(y); Write('Hasilnya adalah ',(Tambah(x,y)));e...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menu makan hari ini.Program Menu_Makan_Hari_Ini;Uses Wincrt;Var a:integer;Begin Gotoxy (28,3); Writeln ('Menu Makan Hari Ini'); Gotoxy (25,4); Writeln ('========================='); Gotoxy (25,6); Writeln ('1. Nasi Uduk'); Gotoxy (25,7); Writeln ('2. Nasi Jamblang'); Gotoxy (25,8); Writeln ('3. Nasi Goreng'); Gotoxy (25,9); Writeln ('4. Nasi Gudeg'); Gotoxy (25,10); Writeln ('5. Nasi Padang'); Gotoxy (25,11); Writeln ('6. Nasi Rames'); Gotoxy (25,13); Write ('Masukkan Pilihan Anda: ');readln (a); Clrscr; Gotoxy (20,7); Case a of 1: Begin Writeln ('Menu yang Anda pilih adalah Nasi Uduk.'); Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang pengulangan.Program Pengulangan;Uses Wincrt;Var a,b:longint;Begin Write ('Kita akan mengulang berapa kali : '); read (b); For b:=1 to b do a:=1; For a:=1 to b do Writeln (a,'.','Aku Suka Indonesia'); End.Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang pengulangan.Program Pengulangan;Uses Wincrt;Var a,b:longint;Begin Write ('Kita akan mengulang berapa kali : '); read (b); For b:=1 to b do a:=1; b:=b+1; Repeat Write (a,'. '); Writeln ('Aku Suka Indonesia'); a:=a+1; Until a>=b;E...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang penjumlahan.program Penjumlahan;uses wincrt;vara,b:real;c:real;beginwriteln ('Masukkan bilangan pertama');readln (a);writeln ('Masukkan bilangan kedua ');readln (b);c:=a+b;write ('jumlah=',(c):5:2);e...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang penjumlahan deret bilangan bulat.Program Penjumlahan_Deret_Bilangan_Bulat;Uses Wincrt;Var bilangan_awal,bilangan_akhir,bilangan_setelah_awal,bilangan_penolong1,bilangan_penolong2:longint; jumlah1,jumlah2,jumlah_akhir:longint;Begin Write ('Masukkan bilangan awal yang diinginkan = '); readln (bilangan_awal); Write ('Masukkan bilangan akhir yang diinginkan = '); readln (bilangan_akhir); If bilangan_akhir=bilangan_awal then write (bilangan_awal) else begin jumlah_akhir:=0; jumlah1:=0; jumlah2:=0; bilangan_setelah_awal:=bilangan_awal+1; bilangan_penolong1:=0; bilangan_penolong2:=0; Write (bilangan_awal); Repeat ...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung koordinat titik tengah dua titik.Program Menghitung_Koordinat_Titik_Tengah_Dua_Titik;Uses Wincrt;Var x1,y1,x2,y2,x,y:real;BeginWrite ('Masukkan nilai x1: ');readln (x1);Write ('Masukkan nilai y1: ');readln (y1);Write ('Masukkan nilai x2: ');readln (x2);Write ('Masukkan nilai y2: ');readln (y2);x:=(1/2)*(x1+x2);y:=(1/2)*(y1+y2);Writeln ('Koordinat titik tengah=(x,y)= ',('('),(x):5:2,(','),(y):5:2,(')'));E...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung umur seseorang.Program Menghitung_Umur_Seseorang;Uses Wincrt;Type Tahun = recordyy:longint;mm:longint;dd:longint;end;Var T1,T2:Tahun;Total_Hari,Umur_Tahun,Umur_Bulan,Umur_Hari:longint;BeginWriteln ('Masukkan Tanggal Sekarang:');Write ('Tanggal=');read (T1.dd);Write ('Bulan =');read (T1.mm);Write ('Tahun =');read (T1.yy);Writeln ('Masukkan Tanggal Lahir:');Write ('Tanggal=');read (T2.dd);Write ('Bulan =');read (T2.mm);Write ('Tahun =');read (T2.yy);Total_Hari:=(T1.yy-T2.yy)*365+(T1.mm-T2.mm)*30+(T1.dd-T2.dd);Umur_Tahun:=Total_Hari div 365;Umur_Bulan:=(Total_Hari mod 365) div 30;Umur_Hari:=(Total_Hari mod 365) mod 30;Writeln ('Umur Anda Sekarang adalah ',(Umur_Tahun),(' tahun,'),(Umur_Bulan),(' bulan,'),(Umur_Hari),('...

Read more »