• Twitter
  • Technocrati
  • stumbleupon
  • flickr
  • digg
  • youtube
  • facebook

Follow our Network

Contoh Program Sederhana Turbo Pascal bag. 5

0

Label:

Reaksi: 

Assalamu'alaikum Wr. Wb..
Hello blogger..ketemu lagi dengan ana di bulan Ramadhan yang penuh berkah ini..
Seperti biasa, kali ini ana share contoh program dari Tpw..mangga check this out..!!

Program Determinan;
uses wincrt;
var
a:integer;
b:integer;
c:integer;
d:integer;

begin
  write('Nilai A= ');read(a);
  write('Nilai B= ');read(b);
  write('Nilai C= ');read(c);

  d:=SQR(b)-4*a*c;

  write('Determinan =',d);

end.


--------------------------------------------------------



Program Nilai;
uses wincrt;
var
nilai_ujian:integer;
nrp:string;
nama:string;

begin
write ('Masukkan Nama:');readln(nama);
write ('Masukkan NRP:');readln(nrp);
write ('masukkan nilai ujian:');readln(nilai_ujian);

if nilai_ujian >= 70 then
writeln('LULUS')
else
if (nilai_ujian >=50) and (nilai_ujian < 70) then
writeln('HER/ REMEDIAL')
else

writeln('TIDAK LULUS');

writeln('Terima Kasih telah menggunakan Program Kecil Ini..!!');
readln;

end.


--------------------------------------------------------

Program password;
uses wincrt;
var
A:string;
i:integer;

begin
i:=0;

repeat
i:=i+1;
write('masukkan password anda= ');readln(A);

if A='tiofurabi' then
begin
writeln('Password Benar');
end
else
begin
writeln('Password Salah');
end
until i=30;

end.

------------------------------------------------------------

oke, segitu dlu yach..

NB: Boleh copas, tapi cantumin penulis dengan link sumbernya yahhh..!! ^^..
created by: Tio Muchtar (Muchtar Family)



Comments (0)

Posting Komentar

Social Media

  • Subscribe via email

    Enter your email address:

    Delivered by FeedBurner

    Techno 4 U