Maret 2010 ~ rati dwi's blog

Senin, 29 Maret 2010

output program

3/29/2010 06:25:00 AM

Rati Dwi A

output program binner ke desim...

listing program rekursi biner ke desimal.uses crt;varbiner:string;function convert(biner:string):real;vari,m,x,code,dum,hasil:integer;beginm:=0;hasil:=0;for i:=length(biner) downto 1 dobeginval(biner,x,code);dum:=x*trunc(exp(m*ln(2)));hasil:=hasil+dum;inc(m);end;convert:=hasil;end;beginclrscr;write('Input Bilangan Biner : ');readln(biner);write('Bilangan Desimalnya : ',convert(biner):3:0);readln;end.output program berupa input bilangan binner : 25bilangan desimalnya : 75maksudnya, jika kita masukkan...

Senin, 22 Maret 2010

Tugas Algoritma & Pemrograman 2A_No 5

3/22/2010 06:21:00 AM

Rati Dwi A

uses wincrt;varinput: real;c, f, r: real;suhu: char;nilai: real;back: char;Celcius, Reamur, Fahrenheit: real;label 100;begin100:write(’Masukkan Jenis Suhu Celcius/ Fahrenheit/ Reamur (c/f/r) : ‘);readln(suhu);if(suhu <> ‘c’)thenif(suhu <> ‘f’)thenif(suhu <> ‘r’)thenbeginwriteln(’Jenis suhu yang anda masukan salah, silahkan coba kembali’);writeln;goto 100;end;beginwrite(’Masukkan nilai : ‘);read(nilai);readln;end;if(suhu = ‘c’)thenbeginf:=(angka * 9/5) + 32;r:=angka * 4/5;writeln(’Hasil...

Tugas Algoritma & Pemrograman 2A_Bu Marliza

3/22/2010 05:34:00 AM

Rati Dwi A

FOR ...TO...DOuses crt;var i,j,n: integer;begin clrscr; write('Masukkan Angka: ');readln(n); for i := 1 to n do begin for j := 1 to i do begin write(i); end; writeln; end; readln;end.FOR...DOWNTO...DOuses crt;var k,l,n : integer;begin clrscr; write('Masukkan Angka: ');readln(n); for k := n downto 1 do begin for l := 1 to (k-1) do begin write(l); end; writeln; end; readln;end.REPEAT..UNTILuses crt;var a: integer;begin clrscr; a := 1; repeat write(a,' '); a :=...

Program Data Nilai Berkondisi (IF…THEN…ELSE)

3/22/2010 05:31:00 AM

Rati Dwi A

contoh program pascal dengan kondisi IF...THEN...ELSEprogram Data_Nilai;uses crt;var nilai: integer;begin clrscr;write('Masukkan nilai : '); readln(nilai); if nilai >= 82 then write ('Nilai A')else if nilai >= 72 thenwrite ('Nilai B')else if nilai >= 56 thenwrite ('Nilai C')else if nilai >= 41 thenwrite ('Nilai D')else if nilai <= 40 thenwrite ('Nilai E');readln;en...

Minggu, 21 Maret 2010

Cinta Kasih Orang Tua Terhadap Seorang Anak

3/21/2010 12:33:00 AM

Rati Dwi A

Manusia dan cinta kasih merupakan suatu hal yang tidak dapat dipisahkan. Cinta memiliki peranan yang penting dalam kehidupan, karena cinta merupakan dasar untuk menciptakan suasana hidup menjadi lebih indah. Coba bayangkan apabila di dunia ini tidak ada cinta, tentu saja manusia akan merasa tidak tenang hidup di dunia.Sejak lahir manusia telah memiliki cinta, yaitu cinta kasih yang didapat dari seorang ayah dan ibu. Begitu besar rasa cinta yang dimiliki seorang ibu ketika melahirkan seorang anak...

Senin, 01 Maret 2010

Contoh Program Pascal

3/01/2010 05:13:00 AM

Rati Dwi A

2 Contoh Program Pascal:1. Menghitung Dua Buah Bilanganprogram Menghitung_Dua_Buah_Bilangan;uses crt;var x,y : real; kali,tambah : real;begin clrscr; write('Masukkan Bilangan ke 1= '); readln(x); write('Masukkan Bilangan ke 2= '); readln(y); kali := x * y; tambah := x + y; writeln; writeln('Hasil Perkalian : ', x:0:0, '*', y:0:0, '= ', kali:0:0); writeln('Hasil Penambahan : ', x:0:0, '+', y:0:0, '= ', tambah:0:0); readln;end.hasil output:Masukkan Bilangan ke 1 = 2(misalkan)Masukkan Bilangan...