Jsawkers Berbagi: December 2012

STRING PADA C++ DAN PASCAL

Pemograman December 30, 2012

C++

LISTING

#include <iostream.h>

#include <conio.h>

#include <string.h>

int main(){

char nama[30];

char hoby[30];

cout<<"========HOBY=======\n";

cout<<"Masukan nama anda: ";

cin.getline(nama,sizeof(nama));

cout<<"apa hoby anda :";

cin.getline(hoby,sizeof(hoby));

cout<<"______________________\n";

cout<<"Nama : "<<nama<<endl;

cout<<"hoby : "<<hoby<<endl<<endl;

getch ();

}

OUTPUT

misalkan kita inputkan data nama andi dan hoby sepak bla maka outputnya sebagai berikut:

PASCAL

LISTING

program KENALAN;

uses crt;

var nama,umur:string;

begin

clrscr;

write('siapakah nama anda ?');

readln(nama);

writeln('hayyy ',nama,' umur kamu berapa? ');
readln(umur);
writeln('ohh, jadi umur kamu ',umur,' tahun ya?');
writeln('terimakasih sudah kenalan');

readln;

end.

OUTPUT:

misalkan kita memasukan nama amat, dan umur 17 tahun maka outputnya sebagai berikut.

Share |

ARRAY pada PASCAL DAN C++

Pemograman December 02, 2012

Pascal:

Listing:

uses crt;

var nama : array[1..20] of string;

tugas, uts, uas, presensi : array[1..20] of integer;

rata : array[1..20] of real;

a,jd : byte;

begin

clrscr;

write('Masukkan Jumlah Data Nilai: '); readln(jd);

for a := 1 to jd do;

begin

clrscr;

writeln('PENILAIAN UJIAN MAHASISWA');

write('Masukkan Nama : '); readln(nama[a]);

write('Masukkan Nilai Tugas : '); readln(tugas[a]);

write('Masukkan Nilai UTS : '); readln(uts[a]);

write('Masukkan Nilai UAS : '); readln(uas[a]);

write('Masukkan Presensi : '); readln(presensi[a]);

Rata[a]:=(0.1*tugas[a])+(0.2*uts[a])+(0.3*uas[a])+(0.4*presensi[a]);

end;

for a := 1 to jd do;

begin

clrscr;

writeln('PENILAIAN UJIAN MAHASISWA');

writeln('Nama : ',nama[a]);

writeln('Nilai Tugas : ',tugas[a]);

writeln('Nilai UTS : ',uts[a]);

writeln('Nilai UAS : ',uas[a]);

writeln('Presensi : ',presensi[a]);

writeln('Rata-rata : ',rata[a]:1:2);

end;

readln;

end.

logika program:

Dalam program ini menggunakan pengulangan “For and Do”. Pertama gunakan perintah “uses crt” yang digunakan untuk mendefinisikan library sehingga dapat menggunakan fungsi tambahan seperti clrscr. Kemudian “var” untuk pendeklarasian array untuk menentukan tugas, uts, uas, presensi. Yang hanya mengimput data antara 1 sampai 20

erupa bilangan real. Kemudian diteruskan a dan jd bertipe byte. Clrscr yang berfungsi membersihkan layar.kemudian masukan data pada printah “write” yang digunakan untuk menampilkan output. Kemudian kita memasuki perulangan 1 sampai batas jumlah data memenuhi. Kemudian kita memasukan output yang ingin ditampilkan pada peerintah “writeln” .

lalu program diakhiri dengan end.

Output:

Contoh kita ingin mencari nilai rata-rata dari seorang siswa

Dengan data sebagai berikut:

Nama : amat

Nilai tugas:75

Nilai UTS :80

Nilai UAS :70

Presensi :75

C++

Listing:

#include<iostream.h>

#include<conio.h>

void main()

{

clrscr();

char nama[20][10];

char npm[8][10];

char kelas[5][10];

int jml;

cout<<"Masukkan jumlah yang ingin di data:";

cin>>jml;

clrscr();

for(int i=1;i<=jml;i++)

{

cout<<"\n input data ke-"<< i <<":";

cout<<"\n nama ke-"<<i<<":";

cin>>nama[i];

cout<<"\n npm ke-"<<i<<":";

cin>>npm[i];

cout<<"\n kelas ke-"<<i<<":";

cin>>kelas[i];

}

for(int j=0;j<=jml;j++)

{

cout<<"\n input data ke-"<< j;

cout<<"\n nama : "<< nama [j];

cout<<"\n npm : "<< npm [j];

cout<<"\n kelas : "<< kelas [j];

cout<<"\n================================\n";

}

getch();

}

logika program:

Pertama-tama kita masukan printah #include<iostream.h> dan #include<conio.h> untuk memanggil program yang kan digunakan. Kemudian disini kita menggunakan karakter nama, npm, dan kelas . disini juga kita memakai perulangan for I sebagai integer. setelah program selesai . klik run makaprogram sudah bisa dijalankan.

Output:

contoh kita ingin mendata 2 orang dengan data sebagai berikut:

1. nama: amat

npm: 78

kelas: 12

2. nama: andi

npm: 75

kelas: 11

maka hasilnya sebagai berikut:

Share |

FUNCTION PADA PASCAL DAN C++

Pemograman December 02, 2012

pascal

listing

uses crt;

var answer,a :integer;

function kuadrat(i: integer): integer;

begin

kuadrat:= i*i;

end;

begin

clrscr;

write('masukan sebuah nilai yang ingin dikuadratkan :');

readln(a);

writeln('kuadrat dari angka tersebut adalah adalah :', kuadrat(a));

readln;

end.

Penjelasan:

uses crt;

unit yang digunakan dalam program.

Var answer,a :integer;

pernyataan yang digunakan berfungsi mendefinisikan variable yang akan kita pakai. Pada program ini saya memakai pil sebagai variable pilihana menu.

function kuadrat(i: integer): integer;

memulai proses function dengan nama ‘kuadrat’, dimana nilai variabel i yang ada dip roses tersebut bertipe integer / bilangan bulat.

Begin

awal dari blok statement function ‘kuadrat’.

kuadrat:= i*i;

memulai perintah berupa rumis pemgkuadratan.

end;

akhir dari blok statement function ‘besar’.

Begin;

awal dari blok statement.

clrscr;

berfungsi untuk membersihkan layar.

write('masukan sebuah nilai yang ingin dikuadratkan :');

readln(a);

mencetak kalimat ‘masukan sebuah nilai yang ingin dikuadratkan :’ lalu meletakan pointer ke sebelah kanan kalimat, setelah itu compiler akan membaca inputan yang kita masukan sebagai nilai variabel ‘a’.

writeln('kuadrat dari angka tersebut adalah adalah :', kuadrat(a));

mencetak kalimat ‘kuadrat dari angka tersebut adalah adalah : ‘ lalu memasukan nilai procedure ‘kuadrat’, dimana nilainya didapat dari nilai variabel i yang telah dimasukan sebelumnya.

readln;

menunggu penekanan enter.

end.

Program berakhir.

Output :

Misalkan kita ingin mencari kuadrat dari nilai 15, maka programnya adalah sebagai berikut

C++

Listing:

#include<iostream.h>

int tambahan (int a, int b)

{

int r;

r=a+b;

cout<<"hasilnya adalah:"<<r<<endl;

}

int main ()

{

int a,b ;

cout<<"masukan bilangan pertama:";cin>>a;

cout<<"\nmasulan bilangan kedua:";cin>> b;

cout<<"\n=========================\n";

tambahan(a,b);

return 0;

}

Penjelasan :

#include<iosrtream.h>

Adalah sebagai kepala program. #include berfungsi untuk memberitahu kepada computer bahwa program akan menggunakan file-file yang didaftarkan. <iostream.h> sebagai header file , yang mengatur cout dan cin.

int tambahan (int a, int b)

pendeklarasian variable fungsi, disini kita mempunyai 2 buah argument yang bertipe integer.

{

Awal program rumus.

int r;

pendeklarasian variable r sebagai integer.

r=a+b;

cout<<"hasilnya adalah:"<<r<<endl;

merupakan rumus penjumlahan yang kita masukan, kemudian diteruskan pada outputan sehingga akan menampilkan tulisan “hasilnya adalah” lalu akan menampilkan hasil perhitungan pada variable r .

}

Akhir dari program, rumus.

int main ()

Berfungsi sebagai tipe output, mendeklarasikan variable yang akan dijadikan operator yang berupa integer.

{

Awal program

int a,b ;

pendeklarasian variable a dan b sebagai integer.

cout<<"masukan bilangan pertama:";cin>>a;

berfungsi sebagai output, jika kita memasukan kata kunci seperti “masukan bilangan pertama” kemudian di baca sebagai a oleh program.

cout<<"\nmasukan bilangan kedua:";cin>> b;

berfungsi sebagai output, jika kita memasukan kata kunci seperti “masukan bilangan kedua” kemudian di baca sebagai b oleh program.

tambahan(a,b);

return 0;

adalah menyatakan bahwa prugram berakhir dengan normal

}

Program berakhir.

output
sebagai contoh kita akan mencoba menjumlahkan dua buah angka, yaitu 2 dan 6 maka hasilnya akan seperti berikut:

mohon kritik dan saran karna masih pemula.

Share |

PROSEDUR PASCAL DAN C++

Pemograman December 02, 2012

pascal

Listing:
uses crt;
var i,n:integer;
p,l:real;
procedure hitungLuaspersegipanjang(panjang,lebar:real);
var luas:real;
begin luas:=panjang*lebar;
writeln('luas persegi panjang=',luas:3:2);
writeln('------------------------------------------------');
end;
begin
clrscr;
writeln('=================================================');
writeln('------- PRGRAM LUAS PERSEGI PANJANG -----------'); writeln('_________________________________________________');
write ('berapa banyak persegi panjang yang ingin dihitung?');
readln(n); for i:=1 to n do begin write(' berapa panjangnya ?');
readln(p); write('berapa lebarnya?');
readln(l); hitungluaspersegipanjang(p,l);
end;
readln;
end.

Penjelasan :

uses crt;

Digunakan untuk mendefinisikan library sehingga dapat menggunakan fungsi tambahan seperti clrscr.

var

i,n:integer;

p,l:real;

pernyataan yang digunakan berfungsi mendefinisikan variable yang akan kita pakai. Dimana I adalah sebagai jumlah persegi yang akan dihitung, dan output “berapa banyak persegi panjang yang akan dihitung?” akan dibaca sebagai n leh program. Kemudian p (panjang) dan l (lebar) adalah bilangan real.

procedure hitungLuaspersegipanjang(panjang,lebar:real);

memanggil prosedur, pada prosedur ini kita memiliki variable masukan berupa panjang dan lebar sebagai bilanga real.

var

luas:real;

pernyataan ini digunakan berfungsi mendefinisikan variable luas sebagai bilangan real.

Kemudian program terpecah menjadi lebih sederhana seperti berikut:

begin

luas:=panjang*lebar;

writeln('luas persegi panjang=',luas:3:2);

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

end;

adalah prosedur yang memuat rumusan dari luas persegi panjang .

begin

sebagai awal program dijalankan.

clrscr;

berfungsi untuk membersihkan layar.

writeln('=================================================');

writeln('------- PRGRAM LUAS PERSEGI PANJANG -----------');

writeln('_________________________________________________');

berfunsi untuk menampilkan tulisan yang ada pada dalam tanda kurung petik (‘ ‘), yang akan ditampilkan pada output program nantinya.

write ('berapa banyak persegi panjang yang ingin dihitung?'); readln(n);

pada tulisan tersebut akan dibaca sebagai n oleh program.

for i:=1 to n do

pada saat kita memasukan jumlah persegi panjang yang ingin kita hitung maka akan dibaca sebagai i oleh program.

begin

write(' berapa panjangnya ?');

readln(p);

write('berapa lebarnya?');

readln(l);

hitungluaspersegipanjang(p,l);

end;

pada baris-baris ini berfungsi untuk memasukan inputan nilai yang ingin dimasukan untuk menghitung luas luas persegi panjang.

readln;

end.

Setelah semua data terbaca dan dijalan kan oleh program data berakhir.

Output :

sebagai contoh kita ingin menghitung 3 buah persegi panjang , dengan masing-masing,

1. Panjang = 2

Lebar = 3

2. Panjang =5

Lebar =3

3. Panjang =4

Lebar =5

Maka hasil output sebagai berikut:

C++

Listing:

#include <conio.h>

#include <iostream.h>

void kcptan(float jarak,float waktu)

{

float kecepatan ;

kecepatan = jarak/waktu;

cout << "kecepatannya adalah : " << kecepatan << endl ;

}

void main() {

float jarak, waktu;

float kecepatan ;

cout << "============================"<<endl;

cout << "PROGRAM MENGHITUNG KECEPATAN "<< endl ;

cout << "============================"<< endl << endl ;

cout << "Masukkan jarak (meter) : " ; cin >> jarak ;

cout << "Masukkan waktu (detik) : " ; cin >> waktu ;

cout << "____________________________\n" ;

kcptan(jarak,waktu);

getch(); }

penjelasan :

#include <conio.h>

#include <iostream.h>

Berfungsi sebagai kepala program, juga sebagai pemberi tahu kepada computer bahwa program akan menggunakan file-fil e yang akan dipakai dan di daftarkan.

void kcptan(float jarak,float waktu)

berfungsi sebagai tipe output, mendeklarasikan variable yang akan dijadikan operator.

{

float kecepatan ;

kecepatan = jarak/waktu;

cout << "kecepatannya adalah : " << kecepatan << endl ;

}

Merupakan prosedur yang memuat rumusan tentang kecepatan.

void main()

berfungsi sebagai tipe output, mendeklarasikan variable yang akan dijadikan operator.

{

float jarak, waktu;

float kecepatan ;

float berfungsi sebagai tipe data angka yg berkoma.kadang bisa jga dipanggil menggunakan %f.

cout << "============================"<<endl;

cout << "PROGRAM MENGHITUNG KECEPATAN "<< endl ;

cout << "============================"<< endl << endl ;

cout << "Masukkan jarak (meter) : " ; cin >> jarak ;

cout << "Masukkan waktu (detik) : " ; cin >> waktu ;

cout << "____________________________\n" ;

Pada baris-baris ini,Count berfungsi sebagai output, berfunsi untuk menampilkan tulisan yang ada pada dalam tanda kurung petik (“ ”), yang akan ditampilkan pada output program nantinya.

kcptan(jarak,waktu);

berfungsi menghubungkan dengan prosedur rumus.

getch(); }

program selesai.

Output:

Semisalkan kita mencari kecepatan, dengan memasukan jarak 1500 m dan dalam waktu 30 detik.

Share |

Newer
Stories

Older
Stories

Pages

Jsawkers Berbagi

STRING PADA C++ DAN PASCAL

C++

LISTING

LISTING

ARRAY pada PASCAL DAN C++

FUNCTION PADA PASCAL DAN C++

PROSEDUR PASCAL DAN C++

Popular Posts

Follow Us

Labels

recent posts

Blog Archive