Bagaimana cara menulis procedure dan function pada pascal

uses crt;
var a,b,c,d,x : real;
//function

procedure msk; {MSK merupakan nama dari procedure input}

begin
        writeln('From radenrakha.blogspot.com');
        readln(a);
        readln(b);
end; {Akhir program procedure}


function jumlah(a,b : real) :real; {Variable A dan B merupakan variable global}
begin
                jumlah := a+b;
end; {Akhir program function}


begin

        clrscr;
        msk;
        (X merupakan variable baru untuk menampung dari function)
        x := jumlah(a,b);
        writeln('Hasil = ', x );
        readkey;

end.

Note: Jika ada yang tidak mengerti silahkan hubungi saya

Baca Selanjutnya »»  

Cara menghitung cos, tan, dan sin dengan menggunakan array pada pascal

Kalau yang ane share kali ini adalah menggunakan array gan

uses crt;
label awal;
var       a:  [1..3] of integer;
        sin_alpha, cos_alpha, tan_alpha,arctan1 : real;
        x,n : integer;

begin clrscr;
        awal:
        writeln('TRIGONOMETRI 2');
        write('Masukan sudut ke-1: ');readln(a[1]);
        write('Masukan sudut ke-2: ');readln(a[2]);
        write('Masukan sudut ke-3: ');readln(a[3]);
        writeln('');
        n:=3;
        writeln('Jenis sudut |   sin     cos    tan');
        writeln('----------------------------------');
        for x:=1 to n do begin
        sin_alpha := sin(a[x]/57.28);
        cos_alpha := cos(a[x]/57.28);
        tan_alpha := sin_alpha/cos_alpha;


        write('Sudut Ke - ',a[x], '|'); write(sin_alpha:6:2, ' '); write(cos_alpha:7:2, ' '); writeln(tan_alpha:7:2, ' ');
        readkey;
        end;
end.

Baca Selanjutnya »»  

Cara menghitung sin , cos , dan tan pada pascal jika yang diketahui sudutnya

Selamat datang di blog saya para calon orang sukses.

Kali ini saya mau memposting menu 2 dari postingan sebelumnya yang tentang Cara menghitung sin , cos , dan tan pada pascal

Langsung aja deh saya kasih sourcenya

2 : begin clrscr;

        writeln('Jika diketahui sudut');

        write(Masukan sudut alpha: ');readln(sd1);

                sin_alpha := sin(sd1/57.28);

                cos_alpha := cos(sd1/57.28);

                tan_alpha := sin_alpha/cos_alpha;

                arctan1   := arctan(tan_alpha)*57.28;

        writeln('Hasil sinus alpha : ', sin_alpha:0:3);

        writeln('Hasil cos alpha   : ', cos_alpha:0:3);

        writeln('Hasil tan alpha   : ', tan_alpha:0:3);

        writeln(Hasil arctan_alpha: ',arctan1:0:0);

        readn;

                goto awal end;

Note: 

Cara pakainya kalian copy source code diatas, lalu cari tulisan 2 : begin clrscr;

setelah tulisan itu kalian temukan, blog seluruh tulisan tadi, lalu pastekan code yang diatas

Jika ada kesalahan silahkan kirim atau bertanya kepada saya lewat pm email.

selamat mencoba :)

Baca Selanjutnya »»  

Cara menghitung sin , cos , dan tan pada pascal atau rumus sin tan dan cos pada pascal

Lagi nyari nyari source code buat ngitung sin tan dan cos pada pascal?
Nih ane kasih source codenya buat kalian yang lagi bingung, cuman jangan hacking hak cipta ya hehehe

uses crt;
label awal;
var menu: integer ;
        kv1,kv, sd1, sd2, sd3, s1, s2,s3 : real;
        hasil,hasil1,cos_alpha, sin_alpha, tan_alpha,arctan1 : real;
begin clrscr;
awal:;
writeln(''TRIGONOMETRI');
writeln('1: Jika diketahui sisi`);

writeln('2: Jika diketahui sudut');
writeln('3: testing');
write('Masukan pilihan (1-3): ');readln(menu);

case menu of

1 : begin

        writeln('Jika diketahui sisi');
        write('Masukan sisi miring: ');readln(s1);
        write('Masukan sisi tegak(vertikal): ');readln(s2);
        write('Masukan sisi alas(horizontal): ');readln(s3);

        {proses}

        sin_alpha   := s1/s1;
        cos_alpha   := s3/s1;
        tan_alpha   := s2/s3;

        writeln('Hasil sinus alpha: ', sin_alpha:0:3);
        writeln('Hasil cos alpha  : ', cos_alpha:0:3);
        writeln('Hasil tan alpha  : ', tan_alpha:0:3);
        readln;
                goto awal end;
2 : begin clrscr;

        write('Maaf untuk menu ini belum tersedia, silahkan download part 2 nya di radenrakha.blogspot.com');
        write('Tekan enter untuk kembali ke menu utama');

readln;
                goto awal end;
3 : begin clrscr;
                write('Maaf untuk menu ini belum tersedia, silahkan download part 2 nya di radenrakha.blogspot.com');
        write('Tekan enter untuk kembali ke menu utama');

readln;
                goto awal end;
        end;

        readln;
        end.

Note: Menu pertama itu untuk menghitung sin cos dan tan jika yang diketahuinya sisinya;
           Jika ada kesalahan, silahkan kirimi saya PM ke email gmail saya
Selamat belajar..

Baca Selanjutnya »»  

Lampu Zig - Zag Visual Basic / Paskal

$regfile = "m16def.dat"
Disini saya akan membagi semua program untuk membuat lampu ZigZag di program VB dan atau paskal. Silahkan mencoba.. Tapi harus dilengkapi hardwarenya terlebih dahulu :) :)


$crystal = 8000000
Config Portc = Output
Dim A(8) As Integer
        A(1) = 0
        A(2) = 5
        A(3) = 2
        A(4) = 7
        A(5) = 3
        A(6) = 6
        A(7) = 1
        A(8) = 4
        Dim I As Integer
Do
   For I = 1 To 8
      Portc = 0
      Waitms 300
      Portc.a(i) = 1
      Waitms 300
   Next
Loop


Program diatas untuk membuat #Lampu Zig - Zag Visual Basic / Paskal dengan syarat harus install baskomnya dulu :)
Klik Disini untuk download aplikasinya

Baca Selanjutnya »»