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 bulat tidak didefinisikan ranahnya, maka dianggap ranah tersebut adalah dari minus tak hingga sampai plus tak hingga.

Dalam prakteknya, tipe integer mempunyai rentang nilai yang terbatas. implementasi tipe integer dalam bahasa pemrograman bergantung pada kompilator bahasa yang digunakan. pada kompilator Turbo Pascal misalnya, tipe integer dapat direpresentasikan ke dalam empat macam tipe, yaitu byte, shortint, word, integer dan longint.

Tipe Rantang Nilai Format

byte 0..255 Unsigned 8-bit

shortint -128..127 Signed 8-bit

word 0..65538 Unsigned 16-bit

integer -32768..32767 Signed 16-bit

longint -2147483648.. 2147483647 Signed 32-bit

Bilangan Riil

Bilangan riil adalah bilangan yang mengandung pecahan desimal, misalnya 3.65, 0.0003, 29.0, 2.60240000E-6, .24 dan lain-lain. ingatlah bahwa semua konstanta bilangan riil harus mengandung “.”. Nilai 18 dianggap sebagai bilangan bulat, tetapi 18.0 dianggap sebagai bilanga riil. Bilangan riil dapat juga dituliskan dengan notasi E yang artinya perpangkatan sepuluh. Misalnya 2.60240000E-6 artinya 2.60240000x 10^-6.

Nama Tipe

Nama tipe bilangan riil adalah real.

Ranah Nilai

Secara teoretis tipe bilangan riil memiliki ranah nilai yang tak terbatas. Rentangnya adalah dari minus tak hingga sampai plus tak hingga.

Pada kompilator Turbo Pascal tipe real dapat direpresentasikan ke dalam empat macam tipe, yaitu real, single, double dan extended.

Tipe Rentang Nilai Format

real 2.9x10^-39..1.7x10³⁸ 6 byte

single 1.5x10^-45..3.4x10³⁸ 4 byte

double 5.0x10^-324..1.7x10³⁰⁸ 8 byte

extended 3.49x10^-4932..1.7x10⁴⁹³² 10 byte

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);

Writeln ('Nilai A setelah ditukar',(A):5:0);

Writeln ('Nilai B setelah ditukar',(B):5:0);

End.

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 digunakan untuk menjalankan pengulangan sebuah pernyataan atau blok pernyataan. Kontrol program for paling sesuai digunakan untuk mengulang sejumlah pernyataan apabila jumlah perulangannya diketahui.

Perulangan dengan pernyataan for bisa memiliki nilai penghitung dari kecil ke besar atau dari besar ke kecil. bentuk sintaks perulangan dengan nilai penghitung naik adalah:

For := awal To akhir Do

Bentuk sintaks perulangan dengan nilai penghitung turun adalah:

For := awal Downto akhir Do

Kontrol Program While

Pada umumnya, banyaknya perulangan kendali while tidak dapat ditentukan terlebih dahulu. Pernyataan While do digunakan untuk melakukan proses perulangan suatu pernyataan atau kelompok pernyataan terus menerus selama kondisi pada pernyataan while masih bernilai benar. Bentuk umumpernyataan while adalah:

While do pernyataan

Kontrol Program Repeat Until

Pernyataan repeat digunakan untuk mengulang satu/lebih pernyataan hingga kondisi yang diinginkan terpenuhi. pada pernyataan repeat, kondisi penghentian proses berada pada akhir perulangan. Pada repeat satu/lebih pernyataan dijalankan terlebuh dahulu, kemudian dievaluasi. apabila kondisi dipenuhi maka perulangan berhenti, bila kondisi tidak terpenuhi, proses perulangan dilanjutkan. Pernyataan repeat memiliki bentuk umum sebagai berikut:

Repeat

pernyataan;

pernyataan;

Until

dimana pernyataan yang tertulis antara kata tercadang adalah yang akan diulang. sedangkan kondisi adalah kondisi yang harus dipenuhi unruk mrnghentikan proses perulangan.

Contoh:

Program For_to_do;

Uses Wincrt;

Var

a:longint;

Begin

For a:=1 to 5 do

Writeln (a,' . Pemrograman Komputer');

End.

Program While_do;

Uses Wincrt;

Var

a:longint;

Begin

a:=0;

While a<5 do

Begin

a:=a+1;

Writeln (a,' . Pemrograman Komputer');

End;

End.

Program Repeat_until;

Uses Wincrt;

Var

a:longint;

Begin

a:=0;

Repeat

a:=a+1;

Writeln (a,' . Pemrograman Komputer');

Until a>4;

End.

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 dengan motor

Contoh:

program Kelulusan;

uses wincrt;

var

a,b,c,d:real;

Ket:string[11];

begin

writeln ('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);

end.

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]);

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.

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 dipakai sebagai metode perhitungan secara umum. dalam bahasa Indonesia, kata algorithm diserap menjadi algoritma.

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 b 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);
For b:=2 to c do
Write (' +',c:2);
For b:=1 to c do
d:=c*b;
Write (' = ');
Write (d);
Writeln;
Writeln;
End;
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang segitiga asik.

Program Segitiga_Asik;
Uses Wincrt;
Var
a,b,c: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
Write (c:3);
Writeln;
Writeln;
End;
End.

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;
End.

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 belajar Pascal, bisa melihat contoh berikut ini tentang rekursi.

Program Latihan_Rekursi_3;
Uses Wincrt;
Var
suku,a,b,c: longint;

Function Fibonacci(n:longint):longint;
Begin
If (n=1) then Fibonacci:=a
else
If (n=2) then Fibonacci:=b
else
Fibonacci:=Fibonacci(n-1)+Fibonacci(n-2);
End;

Begin
Write('Masukkan suku pertama dalam deret fibonacci :');readln(a);
Write('Masukkan suku kedua dalam deret fibonacci :');readln(b);
Write('Sampai suku keberapa deret fibonacci yang diinginkan?: ');readln(c);
Writeln;
Writeln('Deret Fibonaccinya adalah sebagai berikut:');
For suku:= 1 to c do
Write(Fibonacci (suku):3);
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang rekursi.

Program Latihan_Rekursi_4;
Uses Wincrt;
Var
a:real;
b:integer;

Function Pangkat(x:real;n:integer):real;
Begin
If n=0 then pangkat:=1
else if n>0 then pangkat:=pangkat(x,n-1)*x
else pangkat:=pangkat(x,n+1)/x;
End;

Begin
Clrscr;
Write('data pertama: ');readln(a);
Writeln;
Write('data kedua: ');readln(b);
Writeln;
While(a<>0) or (b<>0) do
Begin
Writeln;
Write(a:5:2,' pangkat ',b:3,' = ');
Write(pangkat(a,b):5:2);
Writeln;
Writeln;
Write('data pertama: ');readln (a);
Writeln;
Write('data kedua: ');readln (b);
Writeln;
End;
End.

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);
J.hh:=Total_detik div 3600;
J.mm:=(Total_detik mod 3600) div 60;
J.ss:=(Total_detik mod 3600) mod 60;
Writeln ('Waktu dalam Jam adalah ',J.hh,(' jam, '),J.mm,(' menit, '),J.ss,(' detik'));
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang konversi jam ke detik.

Program Konversi_Jam_ke_Detik;
Uses Wincrt;
Var
hh,mm,ss,Total_Detik:longint;
Begin
Write ('Jam = ');readln (hh);
Write ('Menit= ');readln (mm);
Write ('Detik= ');readln (ss);
Total_Detik:=(hh*3600)+(mm*60)+ss;
Writeln ('Waktu dalam detik adalah ',Total_Detik);
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang konversi jam ke detik.

Program Konversi_Jam_ke_Detik;
Uses Wincrt;
Type Jam = record
hh:longint;
mm:longint;
ss:longint;
End;
Var
J:Jam;
Total_Detik:longint;
Begin
Write ('Jam = ');readln (J.hh);
Write ('Menit= ');readln (J.mm);
Write ('Detik= ');readln (J.ss);
Total_Detik:=(J.hh*3600)+(J.mm*60)+J.ss;
Writeln ('Waktu dalam detik adalah ',Total_Detik);
End.

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;
var
a:real;
b,c,d:real;
begin
write ('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);
end.

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 matrik yang diinginkan? ');Readln(b);
Write('Berapa kolom matrik yang diinginkan? ');Readln(k);
Begin
For b:=1 to b do
Begin
For k:=1 to k do
Begin
Write('Tabel ',b,',',k,':');Readln(tabel[b,k]);
End;
End;
Clrscr;
For b:=1 to b do
Begin
For k:=1 to k do
Write(tabel[b,k],' ');
Writeln;
End;
End;
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang array.

Program Latihan_Array_3;
Uses Wincrt;
Var
b,c,k:integer;
tabel1: array[1..10,1..10] of integer;
tabel2: array[1..10,1..10] of integer;
tabel3: array[1..10,1..10] of integer;
Begin
Write('Baris matrik 1? ');Readln(b);
Write('Kolom matrik 1 = Baris matrik 2? ');Readln(c);
Write('Kolom matrik 2? ');Readln(k);
Begin
Writeln('Matrik 1');
For b:=1 to b do
Begin
For c:=1 to c do
Begin
Write('Tabel ',b,',',c,':');Readln(tabel1[b,c]);
End;
End;
Writeln;
Writeln('Matrik 2');
For c:=1 to c do
Begin
For k:=1 to k do
Begin
Write('Tabel ',c,',',k,':');Readln(tabel2[c,k]);
End;
End;
Clrscr;
For b:=1 to b do
Begin
For c:=1 to c do
Write(tabel1[b,c],' ');
Writeln;
End;
Writeln;
For c:=1 to c do
Begin
For k:=1 to k do
Write(tabel2[c,k],' ');
Writeln;
End;
End;
Writeln;
Begin
For b:=1 to b do
For k:=1 to k do
For c:=1 to c do
tabel3[b,k]:=(tabel3[b,k])+((tabel1[b,c])*(tabel2[c,k]));
End;
Begin
For b:=1 to b do
Begin
For k:=1 to k do
Write((tabel3[b,k]),' ');
Writeln;
End;
End;
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang array.

Program Latihan_Array_4;
Uses Wincrt;
Var
b,k:integer;
tabel1: array[1..10,1..10] of integer;
tabel2: array[1..10,1..10] of integer;
tabel3: array[1..10,1..10] of integer;
Begin
Write('Baris matrik 1 = Baris matrik 2? ');Readln(b);
Write('Kolom matrik 1 = Kolom matrik 2? ');Readln(k);
Begin
Writeln('Matrik 1');
For b:=1 to b do
Begin
For k:=1 to k do
Begin
Write('Tabel ',b,',',k,':');Readln(tabel1[b,k]);
End;
End;
Writeln;
Writeln('Matrik 2');
For b:=1 to b do
Begin
For k:=1 to k do
Begin
Write('Tabel ',b,',',k,':');Readln(tabel2[b,k]);
End;
End;
Clrscr;
For b:=1 to b do
Begin
For k:=1 to k do
Write(tabel1[b,k],' ');
Writeln;
End;
Writeln;
For b:=1 to b do
Begin
For k:=1 to k do
Write(tabel2[b,k],' ');
Writeln;
End;
Writeln;
Begin
For b:=1 to b do
Begin
For k:=1 to k do
tabel3[b,k]:=tabel1[b,k]+tabel2[b,k];
End;
End;
Begin
For b:=1 to b do
Begin
For k:=1 to k do
Write(tabel3[b,k],' ');
Writeln;
End;
End;
End;
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang array.

Program Latihan_Array;
Uses Wincrt;
Var
a,b:integer;
data: array[1..10] of integer;
Begin
Write('Masukkan jumlah data yang diinginkan: ');Readln(b);
Begin
For a:=1 to b do
Begin
Write('Data ke-',a,':');Readln(data[a]);
writeln;
End;
End;
Clrscr;
For a:=1 to b do
Begin
Writeln('Data ke-',a,':',data[a]);
Writeln;
End;
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang array.

Program Latihan_Array;
Uses Wincrt;
Var
a,b,c:integer;
data: array[1..10] of integer;
Begin
Write('Masukkan jumlah data yang diinginkan: ');Readln(b);
Begin
For a:=1 to b do
Begin
Write('Data ke-',a,':');Readln(data[a]);
writeln;
End;
End;
Clrscr;
Write('Data ke berapa yang diinginkan? ');Readln(c);
Writeln('Data ke-',c,':',data[c]);
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang array.

Program Latihan_Array_Nilai_Maks_Min_Rata_Rata;
Uses Wincrt;
Var
a,b,c,maks,min:integer;
d:real;
data: array[1..10] of integer;
Begin
Write('Masukkan jumlah data yang diinginkan: ');Readln(b);
Begin
For a:=1 to b do
Begin
Write('Data ke-',a,':');Readln(data[a]);
Writeln;
End;
End;
Clrscr;
Begin
For a:=1 to b do
Begin
Writeln('Data ke-',a,':',data[a]);
Writeln;
End;
End;
Begin
c:=0;
For a:=1 to b do
Begin
c:=c+data[a];
End;
d:=c/b;
Writeln('Rata-rata data adalah ',(d):5:2);
End;
Begin
maks:=data[1];
For a:=2 to b do
Begin
If data[a]>maks then
maks:=data[a];
End;
Writeln('Data terbesar adalah ',(maks));
End;
Begin
min:=data[1];
For a:=2 to b do
Begin
If data[a] min:=data[a];
End;
Writeln('Data terkecil adalah ',(min));
End;
End.

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;
var
a,b,c,d,X1,x2:real;
begin
writeln ('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='
end.

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');
Begin
If (b=0) and (c=1) then write('satu');
If (b=0) and (c=2) then write('dua');
If (b=0) and (c=3) then write('tiga');
If (b=0) and (c=4) then write('empat');
If (b=0) and (c=5) then write('lima');
If (b=0) and (c=6) then write('enam');
If (b=0) and (c=7) then write('tujuh');
If (b=0) and (c=8) then write('delapan');
If (b=0) and (c=9) then write('sembilan');
End;
Case b of
2: Write('dua puluh ');
3: Write('tiga puluh ');
4: Write('empat puluh ');
5: Write('lima puluh ');
6: Write('enam puluh ');
7: Write('tujuh puluh ');
8: Write('delapan puluh ');
9: Write('sembilan puluh ');
End;
If b>1 then
Case c of
1: Write('satu');
2: Write('dua');
3: Write('tiga');
4: Write('empat');
5: Write('lima');
6: Write('enam');
7: Write('tujuh');
8: Write('delapan');
9: Write('sembilan');
End;
End;
End.

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang kelulusan.

program Kelulusan;
uses wincrt;
var
a,b,c,d:real;
Ket:string[11];
begin
writeln ('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);
end.

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 lebar Persegi Panjang=');read (l);
Luas:=p*l;
Keliling:=2*(p+l);
Write ('Luas Persegi Panjang adalah ');write ((Luas):5:2);
Write ('Keliling Persegi Panjang adalah ');write ((Keliling):5:2)
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung luas permukaan tabung dan kerucut.

Program Menghitung_Luas_Permukaan_Tabung_dan_Kerucut;
Uses Wincrt;
Const
Phi=3.14;
Var
rt,tt,rk,tk,s,Luas_Permukaan_Tabung,Luas_Permukaan_Kerucut:real;
Begin
Write ('Masukkan ukuran Jari-jari Tabung=');readln (rt);
Write ('Masukkan ukuran Tinggi Tabung=');readln (tt);
Write ('Masukkan ukuran Jari-jari Kerucut=');readln (rk);
Write ('Masukkan ukuran Tinggi Kerucut=');readln (tk);
Luas_Permukaan_Tabung:=2*Phi*rt*(rt+tt);
s:=sqrt((tk*tk)+(rk*rk));
Luas_Permukaan_Kerucut:=Phi*rk*(rk+s);
Writeln ('Luas Permukaan Tabung adalah ',(Luas_Permukaan_Tabung):5:2);
Writeln ('Luas Permukaan Kerucut adalah ',(Luas_Permukaan_Kerucut):5:2);
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung volum dan luas permukaan kubus.

Program Menghitung_Volum_dan_Luas_Permukaan_Kubus;
Uses Wincrt;
Var
s,Volum,Luas_Permukaan:real;
Begin
Write ('Masukkan ukuran rusuk Kubus=');readln (s);
Volum:=s*s*s;
Luas_Permukaan:=6*s*s;
Write ('Volum Kubus adalah ');writeln ((Volum):5:2);
Write ('Luas Permukaan Kubus adalah ');writeln ((Luas_Permukaan):5:2);
End.

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 contoh berikut ini tentang menghitung biaya telepon.

Program Menghitung_Biaya_Telepon;
Uses Wincrt;
Type Jam = record
hh:longint;
mm:longint;
ss:longint;
end;
Var
J1,J2:Jam;
Total_Detik:longint;
Biaya_Telepon:longint;
Begin
Writeln ('Waktu mulai telepon:');
Write ('Jam =');read (J1.hh);
Write ('Menit=');read (J1.mm);
Write ('Detik=');read (J1.ss);
Writeln ('Waktu selesai telepon:');
Write ('Jam =');read (J2.hh);
Write ('Menit=');read (J2.mm);
Write ('Detik=');read (J2.ss);
Total_Detik:=(J2.hh-J1.hh)*3600+(J2.mm-J1.mm)*60+(J2.ss-J1.ss);
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 contoh berikut ini tentang menghitung lama waktu telepon dalam detik.

Program Menghitung_Lama_Waktu_Telepon_dalam_Detik;
Uses Wincrt;
Var
hh1,mm1,ss1,hh2,mm2,ss2,Total_Detik:real;
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);
Writeln ('Lama Waktu Telepon dalam Detik adalah ',(Total_Detik):2:0, (' detik.'));
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung lama waktu telepon dalam detik.

Program Menghitung_Lama_Waktu_Telepon_dalam_Detik;
Uses Wincrt;
Type Jam = record
hh:real;
mm:real;
ss:real;
end;
Var
J1,J2:Jam;
Total_Detik:real;
Begin
Writeln ('Waktu mulai telepon:');
Write ('Jam =');read (J1.hh);
Write ('Menit=');read (J1.mm);
Write ('Detik=');read (J1.ss);
Writeln ('Waktu selesai telepon:');
Write ('Jam =');read (J2.hh);
Write ('Menit=');read (J2.mm);
Write ('Detik=');read (J2.ss);
Total_Detik:=(J2.hh-J1.hh)*3600+(J2.mm-J1.mm)*60+(J2.ss-J1.ss);
Writeln ('Lama Waktu Telepon dalam Detik adalah ',(Total_Detik):2:0, (' detik.'));
End.

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>50
End.

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 anak =Rp ',(Tunjangan_Anak):15:2);
Writeln ('Gaji Keseluruhan =Rp ',(Gaji_Keseluruhan):15:2);
Writeln ('Pajak =Rp ',(Pajak):15:2);
Writeln ('Gaji Akhir =Rp ',(Gaji_Akhir):15:2);
End.

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang operasi.

program Operasi;
uses wincrt;
var
a,b:longint;
c,d,e,f,g,h:real;
begin
writeln ('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;
Begin
Writeln ('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 Penjumlahan adalah ',c);
End;

Procedure Pengurangan(Var a,b:longint);
Var
d:longint;
Begin
Writeln ('Operasi yang anda pilih adalah Pengurangan');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
d:=a-b;
Gotoxy (20,7); Writeln ('Hasil Pengurangan adalah ',d);
End;

Procedure Perkalian(Var a,b:longint);
Var
e:longint;
Begin
Writeln ('Operasi yang anda pilih adalah Perkalian');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
e:=a*b;
Gotoxy (20,7); Writeln ('Hasil Perkalian adalah ',e);
End;

Var
a,b,c,d,e,i:longint;
f,y,n:string;
Begin
f:='y';
While f='y' do
Begin
Gotoxy (25,3); Writeln ('Menu Opersai Dua Bilangan');
Gotoxy (25,5); Writeln ('1. Penjumlahan');
Gotoxy (25,6); Writeln ('2. Pengurangan');
Gotoxy (25,7); Writeln ('3. Perkalian');
Gotoxy (25,9); Write ('Masukkan Pilihan Anda= '); readln (i);
Clrscr;
Gotoxy (20,3); If i=1 then
Begin
Penjumlahan(a,b);
End
else If i=2 then
Begin
Pengurangan(a,b);
End
else If i=3 then
Begin
Perkalian(a,b);
End
else Writeln ('Pilihan Anda Salah');
Gotoxy (20,9); Write ('Apakah anda ingin mengulang(y/n)?');read (f);
Clrscr;
End;
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang operasi tambah kurang kali bagi div mod.

Program Operasi_Tambah_Kurang_Kali_Bagi_Div_Mod;
Uses Wincrt;
Var
a,b:longint;
c,d,e,f,g,h:real;
Begin
Write ('Masukkan bilangan pertama=');readln (a);
Write ('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;
Writeln ('Hasil Penjumlahan adalah ',(c):5:0);
Writeln ('Hasil Pengurangan adalah ',(d):5:0);
Writeln ('Hasil Perkalian adalah ',(e):5:0);
Writeln ('Hasil Pembagian adalah ',(f):5:2);
Writeln ('Hasil Pembaian Bulat adalah ',(g):5:0);
Writeln ('Sisa Hasil Pembagian adalah ',(h):5:0);
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang operasi tambah kurang kali bagi div mod.

Program Operasi_Tambah_Kurang_Kali_Bagi_Div_Mod;
Uses Wincrt;
Var
a,b,i:longint;
c,d,e,f,g,h:real;
Begin
Gotoxy (25,3); Writeln ('Menu Opersai Dua Bilangan');
Gotoxy (25,5); Writeln ('1. Penjumlahan');
Gotoxy (25,6); Writeln ('2. Pengurangan');
Gotoxy (25,7); Writeln ('3. Perkalian');
Gotoxy (25,8); Writeln ('4. Pembagian');
Gotoxy (25,9); Writeln ('5. Pembagian Bulat');
Gotoxy (25,10); Writeln ('6. Sisa Hasil Pembagian');
Gotoxy (25,12); Write ('Masukkan Pilihan Anda= '); readln (i);
Clrscr;
Gotoxy (20,3); If i=1 then
Begin
Writeln ('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 Penjumlahan adalah ',(c):5:0);
End
else If i=2 then
Begin
Writeln ('Operasi yang anda pilih adalah Pengurangan');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
d:=a-b;
Gotoxy (20,7); Writeln ('Hasil Pengurangan adalah ',(d):5:0);
End
else If i=3 then
Begin
Writeln ('Operasi yang anda pilih adalah Perkalian');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
e:=a*b;
Gotoxy (20,7); Writeln ('Hasil Perkalian adalah ',(e):5:0);
End
else If i=4 then
Begin
Writeln ('Operasi yang anda pilih adalah Pembagian');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
f:=a/b;
Gotoxy (20,7); Writeln ('Hasil Pembagian adalah ',(f):5:0);
End
else If i=5 then
Begin
Writeln ('Operasi yang anda pilih adalah Pembagian Bulat');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
g:=a div b;
Gotoxy (20,7); Writeln ('Hasil Pembagian Bulat adalah ',(g):5:0);
End
else If i=6 then
Begin
Writeln ('Operasi yang anda pilih adalah Sisa Hasil Pembagian');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
h:=a mod b;
Gotoxy (20,7); Writeln ('Sisa Hasil Pembagian adalah ',(h):5:0);
End
else Writeln ('Pilihan Anda Salah');
End.

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)));
end.

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 Anda Puas.');
End;
2: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Jamblang.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
3: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Goreng.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
4: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Gudeg.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
5: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Padang.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
6: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Rames.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
else Writeln ('Pilihan Anda Salah');
End;
End.

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); If a=1 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Uduk.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=2 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Jamblang.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=3 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Goreng.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=4 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Gudeg.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=5 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Padang.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=6 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Rames.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else Writeln ('Pilihan Anda Salah');
End.

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;
c,y,n:string;
Begin
c:='y';
While c='y' do
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); If a=1 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Uduk.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=2 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Jamblang.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=3 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Goreng.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=4 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Gudeg.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=5 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Padang.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=6 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Rames.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else Writeln ('Pilihan Anda Salah');
Gotoxy (20,9); Write ('Apakah anda ingin mengulang(y/n)?');read (c);
Clrscr;
End;
End.

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;
End.

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang penjumlahan.

program Penjumlahan;
uses wincrt;
var
a,b:real;
c:real;
begin
writeln ('Masukkan bilangan pertama');readln (a);
writeln ('Masukkan bilangan kedua ');readln (b);
c:=a+b;
write ('jumlah=',(c):5:2);
end.

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
jumlah2:=jumlah2+bilangan_penolong2;
bilangan_penolong2:=bilangan_penolong2+1;
Until bilangan_penolong2>=bilangan_awal;
Repeat
jumlah1:=jumlah1+bilangan_penolong1;
bilangan_penolong1:=bilangan_penolong1+1;
Until bilangan_penolong1>bilangan_akhir;
Repeat
Write (' + ',bilangan_setelah_awal);
bilangan_setelah_awal:=bilangan_setelah_awal+1;
jumlah_akhir:=jumlah1-jumlah2;
Until bilangan_setelah_awal>bilangan_akhir;
Write (' = ',jumlah_akhir);
end
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang penjumlahan deret bilangan 1 sd 12.

Program Penjumlahan_Deret_Bilangan_1_sd_12;
Uses Wincrt;
Var
bilangan_awal,bilangan_akhir,jumlah:integer;
Begin
bilangan_akhir:=12;
jumlah:=0;
bilangan_awal:=1;
Repeat
Write (bilangan_awal,' + ');
jumlah:=jumlah+bilangan_awal;
bilangan_awal:=bilangan_awal+1;
Until bilangan_awal>bilangan_akhir;
Writeln ('=',jumlah);
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang penjumlahan deret bilangan bulat 1 sampai n.

Program Penjumlahan_Deret_Bilangan_Bulat_1_Sampai_n;
Uses Wincrt;
Var
bilangan_akhir,bilangan_awal,jumlah:longint;
Begin
bilangan_awal:=1;
jumlah:=0;
Write ('Masukkan bilangan akhir yang diinginkan = '); readln (bilangan_akhir);
Repeat
Write (bilangan_awal);
If bilangan_awal jumlah:=jumlah+bilangan_awal;
bilangan_awal:=bilangan_awal+1;
Until bilangan_awal>bilangan_akhir;
Write (' = ',jumlah);
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang penjumlahan deret bilangan bulat 1 sampai n.

Program Penjumlahan_Deret_Bilangan_Bulat_1_Sampai_n;
Uses Wincrt;
Var
bilangan_akhir,bilangan_awal,bilangan_setelah_awal,jumlah:longint;
Begin
Write ('Masukkan bilangan akhir yang diinginkan = '); readln (bilangan_akhir);
If bilangan_akhir=1 then write (bilangan_akhir)
else begin
jumlah:=1;
bilangan_setelah_awal:=2;
Write ('1');
Repeat
Write (' + ',bilangan_setelah_awal);
bilangan_setelah_awal:=bilangan_setelah_awal+1;
jumlah:=jumlah+bilangan_setelah_awal-1;
Until bilangan_setelah_awal>bilangan_akhir;
Write (' = ',jumlah);
end
End.

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;

Begin

Write ('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,(')'));

End.

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 = record

yy:longint;

mm:longint;

dd:longint;

end;

Var

T1,T2:Tahun;

Total_Hari,Umur_Tahun,Umur_Bulan,Umur_Hari:longint;

Begin

Writeln ('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),(' Hari.'));

End.




Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung umur seseorang.


Program Menghitung_Umur_Seseorang;

Uses Wincrt;

Var

yy1,yy2,mm1,mm2,dd1,dd2,Total_Hari,Umur_Tahun,Umur_Bulan,Umur_Hari:longint;

Begin

Writeln ('Masukkan Tanggal Sekarang:');

Write ('Tanggal=');read (dd1);

Write ('Bulan =');read (mm1);

Write ('Tahun =');read (yy1);

Writeln ('Masukkan Tanggal Lahir:');

Write ('Tanggal=');read (dd2);

Write ('Bulan =');read (mm2);

Write ('Tahun =');read (yy2);

Total_Hari:=(yy1-yy2)*365+(mm1-mm2)*30+(dd1-dd2);

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),(' hari.'));

End.

Read more »