Halaman

Jumat, 05 April 2013

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

algoritma menentukan bilangan 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
       
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.