ostw tmn'' semua ketemu lagi dengan saya bloger coba - coba hehehe
dalam kesempatan ini saya akan berbagi bagaimana cara membuat program sederhana dengan turbo pascal
yah tanpa panjang lebar kta langsung saja ke intinya
copy kode scripe di bawah dan anda juga bisa menganti nama dan kata kata yang ada di dalamnya. dengan catatan tidak merubah kode kodenya
program komang;
uses wincrt;
var rumus,p,l,t,r,phi,jumlah,kode,x,y,z:integer;
begin
writeln('rumus lingkaran,persegi,nilai terbesar');
writeln('**************************************');
writeln('1 luas lingkaran');
writeln('2 luas persegi');
writeln('3 nilai terbesar x,y,z');
writeln('4 program nilai');
writeln('***************');
write('pilih rumus luas,nilai terbesar dan program nilai');
readln(kode);
case kode of
1: begin
writeln('rumus lingkaran = 314*r*r');
write('masukan nilai r =');
readln(r);
rumus:=r*r*314;
write('luas lingkaran',rumus);
readln;
end;
2:begin
writeln('rumus persegi = p*l');
writeln('masukan nilai p dan l');
writeln('nilai panjang');read(p);
writeln('nilai lebar');read(l);
rumus:=p*l;
write('luas persegi',rumus);
readln;
end;
3:begin
writeln('masukan tiga buah nilai');
write('nilai x=');
readln (x);
write('nilai y=');
readln (y);
write('nilai z=');
readln (z);
if x>y then
if x>z then
writeln('terbesar x')
else
writeln('terbesar z')
else
if y>z then
writeln('terbesar y')
else
writeln('terbesar z');
end;
end;
end;
hasil ketika di runing
demikian cara membuat program sederhana dengan turbo pascal
semoga bermanfaat
om shanti shantu shanti om
dalam kesempatan ini saya akan berbagi bagaimana cara membuat program sederhana dengan turbo pascal
yah tanpa panjang lebar kta langsung saja ke intinya
copy kode scripe di bawah dan anda juga bisa menganti nama dan kata kata yang ada di dalamnya. dengan catatan tidak merubah kode kodenya
program komang;
uses wincrt;
var rumus,p,l,t,r,phi,jumlah,kode,x,y,z:integer;
begin
writeln('rumus lingkaran,persegi,nilai terbesar');
writeln('**************************************');
writeln('1 luas lingkaran');
writeln('2 luas persegi');
writeln('3 nilai terbesar x,y,z');
writeln('4 program nilai');
writeln('***************');
write('pilih rumus luas,nilai terbesar dan program nilai');
readln(kode);
case kode of
1: begin
writeln('rumus lingkaran = 314*r*r');
write('masukan nilai r =');
readln(r);
rumus:=r*r*314;
write('luas lingkaran',rumus);
readln;
end;
2:begin
writeln('rumus persegi = p*l');
writeln('masukan nilai p dan l');
writeln('nilai panjang');read(p);
writeln('nilai lebar');read(l);
rumus:=p*l;
write('luas persegi',rumus);
readln;
end;
3:begin
writeln('masukan tiga buah nilai');
write('nilai x=');
readln (x);
write('nilai y=');
readln (y);
write('nilai z=');
readln (z);
if x>y then
if x>z then
writeln('terbesar x')
else
writeln('terbesar z')
else
if y>z then
writeln('terbesar y')
else
writeln('terbesar z');
end;
end;
end;
hasil ketika di runing
demikian cara membuat program sederhana dengan turbo pascal
semoga bermanfaat
om shanti shantu shanti om