Contoh Program Pascal Saran dan Sourcecode Menggunakan Turbo Pascal

Pandualilkom - Pascal adalah salah satu bahasa tingkat dasar yang dijadikan sebagai bahasa untuk programmer pemula. inilah contoh program pascal dalam permintaan saran.

Berikut adalah salah satu contoh dari tugas kuliah yakni membuat program saran menggunakan pascal dan menggunakan Tools Turbo Pascal, berikut Source Codenya.
-------------------------------------------------------------------------------------------------------

program Suggest;
uses crt;

var
        distance : integer;
        time : integer;
        locate : string;
        weather : string;
        mean : string;
begin
        clrscr;
        write('Masukkan jarak tempuh: '); readln(distance);
        if(distance > 5) then mean:='drive'
        else if(distance > 1) then
        begin
        write('Masukkan waktu: '); readln(time);
        if(time < 15) then mean := 'drive'
        else
        if (time > 15) then mean := 'walk';
        end;

        if mean = 'drive' then
        begin

        writeln('Di manakah kamu sekarang? (uptown/downton): '); 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
                writeln('Cuacanya seperti apa? (good/bad): '); readln(weather);
        if weather = 'bad' then
                writeln('Take a coat and walk')
        else if weather = 'good' then
                writeln('Walk');
        end;

        readln;
        end.

----------------------------------------------------------------------------------------------------------------------------------

Baca Juga: Pengertian Pascal

masukan code di atas ke dalam program turbo pascal. semoga program ini bisa bermanfaat bagi para pembaca,  jika anda masih ingin tahu seputar Panduan Ilmu Komputer baca artikel selengkapnya

Share this post