Download Turbo Pascal Jadwal Pascal If Then Else , While Do , Case Of , Repeat Until

bagi yang ingin mend0wnl0ad turbo pascal sanggup disini , ini ialah teladan agenda yang sanggup dijadikan di tubo pascal agar sanggup membantu , turbo pascal disini sanggup di d0wnl0ad di bawah agar bermanfaat , kalau ada pertanyaan silahkan berkomentar terima kasih ^^

Program if_then:
Uses Crt;
Var
Nilai : Real;
Begin
Write ('Jumlah Nilai :');
Readln (nilai); { Pemasukan data }
If nilai > 60 Then {seleksi kondisi variabel nilai}
Writeln('Lulus') { Dilaksanakan kalau nilai lebih besar dari 60 }
Else
Writeln('Tidak lulus'); { Dilaksanakan kalau variabel nilai lebih kecil dari 60 }
End.



Program case_of;
Var
x: Char ;
Begin
Write ('Nilai Numerik yang didapat :');
Readln (x);
Case x Of
'A': Writeln ('Sangat Baik’);
'B': Writeln('Baik’);
'C': Writeln('Cukup');
'D': Writeln('Kurang');
'E': Writeln('Sangat Kurang');
End;
End.



agenda while_do;
Uses Crt;
Var
a, b : Integer;
Begin
ClrScr;
a:=1;
b:=1;
While a < 4 Do{ loop selama a masih lebih kecil dari 4 }
Begin
a := a+1;
While b < 3 Do{ loop selama b masih lebih kecil dari 3 }
Begin
Write (a:3,b:2);
b:=b+1;
End;
End;
Readln;
End.



agenda repeat_until;
Var
a,b,c : Real;
Begin
Writeln('========================================');
Writeln(' sisi A sisi B Sisi C ');
Writeln (' =======================================');
a:= 1;
Repeat { perulangan luar }
b := 0;
Repeat{ perulangan dalam }
c:=Sqrt (a*a+b*b);
Writeln (a:6:2, b:9:2, c:9:2);
b:=b+5;
Until b>25; { berhenti kalau b lebih besar dari 5 untuk perulangan dalam }
a:=a+1;
Until a>3; { berhenti kalau a lebih besar dari 3 untuk perulangan luar }
Writeln(' =======================================');
End.

Program turbo pascal sanggup di d0wnl0ad disini : d0wnl0ad
Sumber http://sulaiman4fun.blogspot.com