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.

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.

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.

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.

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.

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.

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.

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.

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.

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.