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

Follow our Network

Program Sederhana Turbo Pascal Bag.4

0

Label:

Reaksi: 

assalammu'alaikum..
kembali ke Progg..ram..hehehehe bukan laptop, atau tangtop yach..monnggo di check this out..!!

program perhitungan2;
uses wincrt;
var
a,b:integer;
C:real;
op:string;

begin
write('Nilai A=');readln(a);
write('Operasi [+,-,/,*]=');readln(op);
write('Nilai B=');readln(b);

if op='+' then
  C:=a+b
else
if op='-' then
  C:=a-b
else
if op='*' then
  C:=a*b
else
if op='/' then
  C:=a/b

else
writeln ('tanda operasi harus +,-,* atau /');

writeln('hasil',a,op,b,'=',C:2:2);

writeln(' ');
writeln('Thank You for using this Program..!!');
end.


NB: boleh copas, tapi mesti cantumin sumber dan penulisnya..Ok sob..!!

created by: Tio RM (Muchtar Family)

Comments (0)

Posting Komentar

Social Media

  • Subscribe via email

    Enter your email address:

    Delivered by FeedBurner

    Techno 4 U