Turbo Pascal (TP71)
Turbo Pascal Nih saya kasih contoh program “Turbo Pascal” a. Program penjumlahan 2 bilangan program penjumlahan2bilangan; uses crt; var J1,B2,B1:real; begin clrscr; write('B1=');readln(B1); write('B2=');readln(B2); J1:=B1+B2; writeln('jumlah',J1:10:0,''); readkey; end. b. Program mengitung keliling lingkaran program menghitung_keliling_lingkaran; uses crt; var keliling,r:real; begin clrscr; write('r=');readln(r); keliling:=2*22/7*r; writeln('jumlah',keliling:10:0,''); readkey; end.