cobacoba.com

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