POGRAM MENGHITUNG TARIF OJEK ONLINE (TURBO PASCAL)

Komputer pemrograman

1. Program hit_tarif_ojek_online

    Uses crt;
    Var j,b,biaya:real;
    Pilih:integer;
    Begin
    Repeat
    Clrscr;
                Writeln( ‘ tarif hitungan ojek online’);
                Writeln( ‘ 1. Ojek online grabbike’);
                Writeln( ‘ 2. Ojek online gojek ‘);
                Writeln( ‘ 3. Keluar ‘);
                Writeln(‘ pilih 1-3’);readln(pilih);
                Case pilih of
                1:begin
                Writeln( ‘ jarak tempuh perjalanan ‘ );readln(j);
                b : = j*1500;
                writeln(‘biaya perjalanan ojek grabbrike=’ , b);readln(b);
                end;
                2:begin
                Writeln(‘jarak tempuh perjalanan’);readln(j);
                B:=j*2000;
                Writeln(‘biaya perjalanan ojek grojek=’ ,b);readln(b);
                Readln;
                If ( biaya <=10) and (biaya <=15) then
                Writeln(‘biaya perjalanan gojek’)
                Else
                Writeln(‘bukan biaya peralanan gojek’);
                Readln;
                End;
                3:begin
                Writeln(‘keluar’);
                Readln;
                End;
                End;
                Until ( pilih =3);
                Readln;
End .