FUNGSI AKAR KUADRAT

Fungsi ini digunakan bilamana anda ingin mengetahui akar pangkat 2 dari angka yang anda inginkan dengan batas desimal 2 yang berarti akan ada 2 angka di belakang koma.. Fungsinya adalah sebagai berikut :


Uses Wincrt;
var Angka:Real;
Begin
ClrScr;
Write('Ketikken Angka Sing Mbok Pengen!!!!!!');
Readln(Angka);
Write('Akar Pangkate angka iku mang',Angka:0:2,'=',sqrt(Angka):0:2);
readln;
End.


sebagai catatan fungsi ini hanya dapat digunakan 1 kali saja.

FUNGSI KUADRAT

Fungsi ini digunakan untuk menampilkan angka kuadrat dari angka yang anda inginkan.. Penulisannya adalah sebagai berikut:

Uses Wincrt;
var Angka:Real;
Begin
ClrScr;
Write('Ketikkan Angka yang anda inginkan!!!!!!');
Readln(Angka);
Write('Pangkat angka tersebut',Angka:0:2,'=',sqr(Angka):0:2);
readln;
End.


sebagai catatan fungsi ini hanya dapat dipakai sekali saja,agar dapat dipakai berulang kali tambahkan repeat dan until false di rumus tersebut. hasilnya akan menjadi seperti ini :

Uses Wincrt;
var Angka:Real;
Begin
ClrScr;
REPEAT
Write('Ketikkan Angka yang anda inginkan!!!!!');
Readln(Angka);
Write('Pangkat angka tersebut',Angka:0:2,'=',sqr(Angka):0:2);
readln;
until False
End.

FUNGSI UPCASE

Fungsi Upcase ini digunakan untuk menampilkan huruf besar dari suatu karakter,fungsinya adalah sebagai berikut:

{Nama Program: UPCASE.PAS}
Uses wincrt;
Var Kar:Char;
Begin
ClrScr;
REPEAT
Write('Tekan tombol[a..z, Enter=Keluar]:');
Kar:=ReadKey;
If Kar=Chr(13)Then Exit; {Penekanan Enter}
Writeln;Writeln;
Writeln('Anda telah menekan karakter: ',Kar);
Writeln('Huruf besar(UpCase)',Kar,' adalah ',UpCase(Kar));
Writeln;
UNTIL False
End.

Script untuk menampilkan angka 9999 s/d 1050

Uses Crt;
var I:Integer;
begin
clrScr;
I;=9999
REPEAT
WriteIn(I);
Dec(I);
Until I=1050;
readIn;
end.

Script untuk menunjukkan angka 0 sampai 1050 dengan kelipatan 5

Uses crt;
var A:Integer;
Begin
ClrScr;
A:=1;
REPEAT
WriteIn(A);
Inc(I,5);
UNTIL A=1050;
ReadIn;
end.

Script Untuk menunjukkan Angka dari 1 s/d 100

uses Crt;
Var A:Integer;
begin
ClrScr;
A:=0;
REPEAT
WriteIn(A);
Inc(A);
UNTIL A=100;
ReadIn;
End.

BeBerapa macam bahasa pemrograman dalam Turbo_Pascal

disini akan saya jelaskan beberapa jenis program,antara lain :
program HelloWorld(output);
begin
  writeln('Hello, World!')
end.
digunakan untuk menuliskan sebuah kalimat di dalam program Turbo pascal