Contoh Program Pascal Menentukan Saran dengan If-Then-Else

Source Code Pascal Program - Contoh Program pascal menggunakan IF, THEN, ELSE, ELSE IF pada program untuk menentukan saran dari seseorang berjalan dengan jarak tertentu.

Bagi yang membutuhkan Source Code nya silahkan lihat dibawah ini.










Gambar Program Source Code.


Source Code Program Aplikasi Menentukan Saran Ketika seseorang berjalan dengan jarak tertentu.

Program Saran;
uses crt;
label awal;
var
 distance : integer;
 time     : integer;
 locate   : string;
 weather  : string;
 mean     : string;
 lagi     :char;
begin
awal:
     clrscr;
     writeln('Program Kondisi oleh Wildan & Nur Ardiansyah');
     writeln;
     writeln('Masukkan Jarak yang Anda Tempuh:'); readln(distance);
        if(distance > 5) then mean:='drive'
        else if(distance > 1) then
        begin
        writeln('Masukkan Waktu Anda:'); readln(time);
        if(time < 15) then mean := 'drive'
        else
        writeln;
        if (time > 15) then mean := 'walk';
        end;

        if mean = 'drive' then
        begin

        write('Dimana Anda sekarang berada (downtown/uptown) ? '); readln(locate);

        if (locate = 'downtown') then
                writeln('*Take a cab*')
        else if locate = 'uptown' then
                writeln('*Drive your car*');
        end;

        if mean = 'walk' then
        begin
                write('Bagaimana Kondisi Cuacanya? (good/bad): '); readln(weather);
        if weather = 'bad' then
                writeln('*Take a coat and walk*')
        else if weather = 'good' then
                writeln('*Walk*');
        end;
        writeln;
        write('Apakah Anda ingin mengulang (y/n) ? '); readln(lagi);
        if lagi = 'y' then
        goto awal
        else
        readln;
        end.

Semoga informasi ini berguna bagi siapa saja yang mau belajar, salam sukses untuk semuanya -IT-

Share this post