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.

   

Menentukan bilangan ganjil / genap

cara menentukan bilangan ganjil atau genap dengan menggunakan Algoritma Flowchart dan deskripsi
   

• Deskripsi :

Deklarasi :
const n = 1, 2, 3, 4, ... , x {nilai}
Genap = real {bilangan genap}

Deskripsi :
read (n)
Genap < - n/2=0

• Flowchart :

algoritma (8,5,3,1,9,7,2)

mengurutkan angka (8,5,3,1,9,7,2) dengan menggunakan algoritma                                                                Maka langkah-langkahnya adalah sebagai berikut:
* SORTING MENGURUTKAN DATA *
* METODE BUBBLE SORT *
1. CLS
2. INPUT “BANYAK BILANGAN YANG DIURUTKAN : “, N
3. DIM BIL(N),Y(N)
4. PRINT
5. PRINT “INPUT BILANGAN YG AKAN DIURUTKAN : “
6. FOR I = 1 TO N STEP 1
7. PRINT” BILANGAN KE – “;I;” : “
8. INPUT “”,BIL( I )
9. Y( I ) = BIL( I )
10. NEXT I
11. PRINT
12. CLS
13. PRINT “DATA SEBELUM URUT : “                                                                                                                                                                                                                                                             FOR I = 1 TO N
PRINT BIL( I );
NEXT I
PRINT:PRINT
PRINT “LANGKAH PENGURUTAN : ”
FOR J= 1 TO N-1
FOR I= 1 TO N-J
IF BIL( I ) < BIL( I+1 ) THEN 151
TUKAR=BIL( I )
BIL( I ) = BIL( I+1 )
BIL( X+1 ) = TUKAR
NEXT I
PRINT “LANGKAH KE : “; J;” : ”
FOR K=1 TO N
PRINT BIL(K);
NEXT K
PRINT
NEXT J
PRINT:PRINT”SETELAH URUT : ”
PRINT”DATA”,”URUT KECIL”,”URUT BESAR”
FOR I= 1 TO N
PRINT Y( I ),BIL( I ),BIL( N+1-I)
NEXT I
END
Kemudian:
For I = 1 to N
Print Abjad$( I );
Next I
Print:Print
Print”Langkah Pengurutan”
For J = 1 to N-1
For I = 1 to N-J
If Abjad$( I ) < Abjad$( I+1 ) then 151
Tukar$ = Abjad$( I )
Abjad$( I ) = Abjad$( I+1 )
Abjad$( X+1 ) = Tukar$
Next I
Print”Langkah ke:”; J ;” : ”
For K = 1 to N
Print Abjad$(K);
Next K
Print
Next J
Print: Print”Setelah Urut : ”
Print “Data”,”Urut kecil”,”Urut besar”
For I = 1 to N
Print Y$( I ), Abjad$( I ), Abjad$( N+1-I)
Next I
End                                                                                                                                                                                                                                                                                                                                 selamat mencoba

music favorit