Rabu, 10 April 2013

Algoritma untuk menampilkan deret angka

Algoritma untuk menampilkan deret angka (0, 2, 5, 10, 26, 37)
Program deretangka;
uses wincrt;
var
     array[1..50]:integer;
     i, n, min, kelompok, temp, tempatnya_min : integer;
begin
  writeln('Program deret angka 0, 2, 5, 10, 26, 37');
  for kelompok := 1 to n do
  begin
       min := x[kelompok];
       for i := kelompok to n do
       begin
             if (x[i] <= min) then
             begin
                   min := x[i];
                   tempatnya_min := i;
             end.
       end.
  temp := x[kelompok];
  x[kelompok] := x[tempatnya_min];
  x[tempatnya_min] := temp;
end.
daftar pustaka
http://blog.rosihanari.net/algoritma-sorting-dan-implementasinya/
diunduh (6 april: 11:22)

menentukan bil positif atau negatif

Apa itu bilangan positif dan negatif ?
     positif adalah bilangan yang lebih besar dari pada nol (0) : {1,2,3,...)
     negatif adalah bilangan yang lebih kecil dari pada nol (0) : {-1,-2, -3,...}

1. Algoritma Flowchart Menentukan Bilangan Positif atau Negatif
       

sumber : http://nurfitrianti-23.blogspot.com/2012/08/menentukan-bilangan-positif-atau-negatif.html


2. Algoritma Turbo Pascal

Program bilangan_positif;
Uses wincrt;
Var
     angka,hasil:integer;
Begin
     writeln(' menentukan bilangan positif dan negatif');
     writeln('masukan angka : ');read(angka);
     if angka >=0 then writeln (angka, 'adalah bilangan POSITIF')
     else writeln(angka, 'adalah bilangan NEGATIF');
end.
    

PERSAMAAN KUADRAT PADA TPW

PERSAMAAN KUADRAT PADA TPW
Program PersamaanKuadrat;

Uses wincrt;

Var 
         a, b, c, x, nilai: Real;
Begin
write ('Masukan nilai a:');
read(a);

write ('Masukan nilai b:');
read(b);

write('Masukan nilai c:');
read(c);

write('Masukan nilai x:');
read(x);

nilai:=a*x*x+b*x+c;
writeln ('Hasil Persamaan Kuadrat axx+bx+c:'nilai:5:2);

End.

Kamis, 04 April 2013

Rahasia Wajah Berseri

1. Bangun awal pagi untuk sholat subuh, air yang di gunakan untuk wudhu yang mengenai muka akan      membuat muka berseri-seri.
2. Menunaikan sholat dzuhur di tengah hari, air wudhu yang mengenai muka akan jadi mencerahkan kulit.
3. Menunaikan sholat ashar di waktu petang, air wudhu yang mengenai muka akan dapat membersihkan kotoran asap dan dbu yang menempel di wajah.
4. Menunaikan sholat magrib, air wudhu yang mengenai muka dapat menhilangkan bau di hidung dan mulut.
5. Menunaikan sholat isya', air wudhu yang mengenai wajah dapat menceriakan wajah dari kemungkaran.