Algoritma

TURBO BASIC

Menghitung luas dan keliling bujur sangkar

5 cls

10 input “masukan panjang sisi=”,sisi

 20 luas = sisi * sisi

30 keliling =4 * sisi

40 print “bujur sangkar=; luas

50 print “keliling bujur sangkar=”;keliling

60 end

Menghitung luas bangun

5 cls

10 input” masukan nilai A=”,A

20 input” masukan nilai B=”,B

30 luas = (a*b)+(22/7)*(((B/2)^2)/2)

40 keliling=((2*a)+b)+((22/7*b)/2

50 print “ luas bangun=”,luas

60 print “keliling bangun=”,keliling

70 end

Membuat program jurusan

5 cls

10 input”masukan pilihan=”;pilihan

20 if pilihan= 1 then

     Print”jurusan teknoligi”

     Elseif pilihan= 2 then

     Print”jurusan system”

    Elseif pilihan= 3 then

   Print”jurusan informasi”

Else

Print “ yang anda masukan tidak ada”

30 end if

Program fornex

5 cls

10 for A =1 to 10

Print”============”

Print”angka ke:”,A

Print”******************”

Next A

20 end

Program while wend

5 cls

     A=5

    While A>=1

    Print”pertemuan keà”;A

   A=A-1

Wend

Program do wile

5 cls

A=1

Do wile A >=1

Print”pertemuan ke=”;A

A=A+1

Loop

End

Program do until

5 cls

A=1

   Do

Print “pertemuan ke=”A

A=A+1

Loop until A>=10

End

                                                                                                                         A

Menghitung luas dan keliling

5 cls

10 input”nilai A=”,A

20 input”nilai B=”,B                                       B

30 input”nilai C=”,C

40 input”nilai D=”,D

50  if A >=C then                                                           C

       Go to 10

     Elseif B>D then

    Go to 10

  Else

L= (B*C)+((a-c)*d)

K= A+B+C+D(B-D)+(A-C)

60 print”luas=”;L

70 print”keliling=”;K

80 end if

90 end3

semakin lama memang semakin sulit pelajaran turbobasick tapi bagiku program turbo basick adalah program yang sangat saya senangi karena menurutku adalah pelajaran yang semakin sulit semakin kuat pula rasa keingin tahuan saya . nah baiklah gak perlu panjang lebar berbicara mari kita simak penggunaan fungsi SUB di bawah ini baiklah kita menuju ke tkp:
langkah yang pertama(1) anda buka dulu program turo basick dan ketikanlah kode berikut soalnya di turbo basick ini tidak ada istilah COPPY dan PASTEY jadi ketik aja yang di bawah ini,

5 cls
10 input"pilihan=",pil
20 If pil= 1 then
     gosub 100:end
   elseif pil= 2 then
     gosub1000:end
else
print "selesai"
end if

setelah itu maka kita akan melakukan proses sebagai berikut

100 rem***Program persegi panjang***
110 input "panjang=",p
120 input "lebar=",l
130 ls = p*l
140 print "panjang=";p
150 print "lebar=";l
160 print "luas=";ls
170 return

naaah sekarang sudah selesai yang untuk gosub 100 sekarang kita tinggal yang gosub 1000 adalah sbb:

1000 rem ***program bujur sangkar***
1010 input "sisi=",S
1020 ls = s*s
1030 print "sisi=",S
1040 print "luas=",L

1050 return