TUGAS PROKOM.docx

Description
Nama : Rima Indriyana Putri NIM : M0316056 Mata Kuliah : Pemrograman Komputer 1. Perbedaan Procedure dan Function: a. Function memiliki tipe data, sedangkan procedure tidak memiliki tipe data. b. Function memberikan nilai balikke program utama, sedangkan procedure tidak. c. Harus ada NamaFungsi di dalam tubuh fungsi, karena digunakan untuk menyimpan output. d. Fungsi diawali dengan kata ‘Function’. Procedure diawali dengan kata ‘Procedure’. 2. Program Se

Please download to get full document.

View again

of 3
All materials on our website are shared by users. If you have any questions about copyright issues, please report us to resolve them. We are always happy to assist you.
Information
Category:

Documents

Publish on:

Views: 0 | Pages: 3

Extension: DOCX | Download: 0

Share
Transcript
   Nama : Rima Indriyana Putri  NIM : M0316056 Mata Kuliah : Pemrograman Komputer 1.   Perbedaan Procedure dan Function: a.   Function memiliki tipe data, sedangkan procedure tidak memiliki tipe data.  b.   Function memberikan nilai balikke program utama, sedangkan procedure tidak. c.   Harus ada NamaFungsi di dalam tubuh fungsi, karena digunakan untuk menyimpan output. d.   Fungsi diawali dengan kata ‘Function’. Procedure diawali dengan kata ‘Procedure’.  2.   Program Segitiga; Uses crt; Function sisimiring(a,t: integer): real; Begin sisimiring:= sqrt((a*a)+(t*t)); end; var a,t: integer;  begin clrscr; write(‘alas=’); readln(a);   write(‘tinggi=’); readln(t);   writeln (‘Panjang sisi miring=’, sisimiring(a,t));  readln; end. 3.   Program Fisika; Var E, M, C: integer; Procedure Energi(var M,C:integer); Begin Writeln(‘M=’);  Readln(M); Writeln(‘C=’);  Readln(C); E:=M*C*C;  End; Begin Energi(M,C); Writeln(‘E=’,E);  Readln; End. 4.   Program Kondisi; uses wincrt;  procedure Hitung; var a,b,c:real; d:integer;  begin  b:=0.30*a; c:=0.25*d*a; writeln('Tunjangan=', b:10:0); writeln('Tunjangan Anak=', c:10:0); end; var gol:string[2];jmlAnak:integer; status:char;gaji,tunjangan,tunjanak:real;  begin gol:='3A'; status:='M';  jmlAnak:=5; if(gol='3A') then  begin if(status='M') then  begin if(jmlAnak>3) then  begin hitung; end; end;   end; end.
Related Search
We Need Your Support
Thank you for visiting our website and your interest in our free products and services. We are nonprofit website to share and download documents. To the running of this website, we need your help to support us.

Thanks to everyone for your continued support.

No, Thanks