Syihabudin's Blog

~~ Pascal oh Pascal ~~ October 15, 2009

Turbo pascal

begitulah namanya dan lebih akrabnya disebut pascal,  pascal adalah sebuah bahasa pemrograman yang sampai sekarang say belum mengerti padahal udah semester 3 jurusan Tehnik Informatika pula, kadang jadi malu sama diri sendiri koq saya susah banget mengerti suatu pelajaran ya, apa karena umur saya yang sudah kepala 3??? saya juga kurang paham.

pertengahan ramadhan lalu perkuliahan semester 3 dimulai, dan mata kuliahnya semuanya menurut saya susah-susah.(mudah2an nanti bisa)

dan pada awal perkuliahan semester 3 tersebut kami langsung dikasih tugas untuk membuat tampilan seperti dibawah ini :

masukan n: (dimana nilai n tak terhingga) contoh 3

dan hasil yang diminta adalah seperti ini

1=1

1+2=3

1+2+3=6

dst.. tergantung nilai yang kita masukan

karena kita baru dapet Turbo Pascal pada smeseter 2, maka kita disuruh membuatnya pada program pascal.

setelah googling san googling sini akhirnya da sedikit pencerahan,

dan inilah hasilnya :

uses wincrt;
var i,n,a,jumlah:longint;
begin
Write('masukan N: '); readln(n);
For i := 1 to n do
Begin
For a := 1 to i do
Write(a,'+');
Begin
Jumlah:=jumlah+a;
Write('=',jumlah);
End;
Writeln;
End;
Write('enter to exit');
Readln;
Donewincrt;
End.

dan setelah dijalankan hasilnya seperti ini :
masukan nilai n: 3
1+=1
1+2+=3
1+2+3+=6
nah yang saya bingung bagaimana caranya supaya di angka terakhir
tidak timbul tanda '+', kalo ada yang tau tolong bantu yah.