Tugas Bahasa Pemograman Paskal Dan Delphi

Tugas Bahasa Pemograman Paskal Dan Delphi

Created by Haze Lee Kaizera a.k.a Minak Djinggo

1.Buat program identitas dengan bahasa paskal

2.Buat program input / ouput dengan bahasa paskal

3.Buat program rancang bangun dengan bahasa paskal

Konversikan kedalam bahasa borland delphi.

1. # Program Identitas

Program Identitas; uses crt; var nm : string; npm : string; jur : string; begin clrscr; write <'nama saya:'>; readln ; write <'npm saya:'>; readln ; write <'saya jurusan:'>; readln ; write <'nama saya ',nm,' npm saya ',npm,' saya jurusan ',jur>; readln; end.

2. # Program Input / Output

Program IO; Uses crt; Type Sets = set of char; Var A,b, Irisan, union, Selisih1, Selisih2 : Sets; {Variabel Untuk Menampung Satu} Lagi : Char;{Huruf} Procedure Input (var N :Sets; Y:Byte); Var I : Byte; Ch : Char; Begin For I := 1 to 5 do Begin GotoXY (22+I*3,Y); Ch:= Upcase (Readkey); N := N + [Ch]; If I = 5 then Begin GotoXY (22+I*3,Y);write(ch,’)’); End else Begin GotoXY (22+I*3,Y);write(ch,’,’); End; End; End; Procedure InputData; Var I : Byte; Begin GotoXY (25,1); Write(‘Operasi Himpunan’); GotoXY (25,2); Write(‘=============’); GotoXY (10,8); Write(‘Himpunan A : (‘); Input (A,8); GotoXY (10,10); Write(‘Himpunan B : (‘); Input (B,10); End; {Procedure Untuk Cetak Isi Sets ke Layar} Procedure Cetak (N:Sets; Y:Byte); Var I : Char; Begin GotoXY (30, Y); For I := #00 to #255 do {Utk Penjelasan baca note pada hal} If N * [I] then write ( ‘ ’ , I , ‘ ’) ; {Berikutnya} Write ( ‘ ) ’ ) ; End; Procedure Tampilkan; Begin GotoXY (10,15) ;Write(‘ Intersection (A,B) =(‘);; Goto XY (10,17) :Write(‘ Union (A,B) =(‘); Goto XY (10,19) :Write(‘ Defference (A,B) =(‘); Goto XY (10,21) :Write(‘ Defference (B,A) =(‘); End; Procedure Proses; Begin Union := A + B ; {Sets Untuk Union} Irisan := A * B ; {Sets Untuk Intersection} Selisih1 := (A-B) ; {Sets Untuk Difference A-B} Selisih2 := (B-A) ; {Sets Untuk Difference B-A} Tampilkan; Repeat GotoXY(20,23); Write(‘Coba Lagi ( Y/T ) : ‘ ) ; Lagi :=UpCase (ReadKey); Until Lagi In [ ‘Y’,’T,’]; End; Begin {Program Utuma} While Lagi( ) ‘T’ do Begin A := [ ]; B := [ ]; {Set Dikosongkan, Agar pada saat Program} Clrscr; Inputdata; Proses; Readln; End; End. Ouput Program Operasi Himpunan ============= Himpunan A : ( R,A,N,I,L ) Himpunan B : ( E,S,T,E,R ) Intersection (A,B) = ( AR ) Union (A,B) = ( AEILNRST) Difference (A,B) = ( ILN ) Difference (B,A) = ( EST ) Coba Lagi ( Y/T ) : Y

3. # Program Rancang Bangun

1.# Progam Luas Segitiga Program luasegitiga; uses crt; var alas : integer; tinggi : integer; luas : real; begin clrscr; writeln <'Perhitungan Luas Segitiga'>; writeln <'*************************'>; write <'alas:'>; readln ; write <'tinggi:'>;readln ; luas:=alas*tinggi*0.5; writeln <'hasil :'>; write<'Luas Segitiga',luas>; readln; end.

2. #Program Volume Limas Segiempat Program v_l_s; Uses Crt; Var Panjang : integer; Lebar : integer; Tinggi : integer; Volume : real; Begin Clrscr; Write(‘Masukkan Panjang Limas Segi Empat = ‘); Readln(panjang); Write(‘Masukkan Lebar Limas Segi Empat = ‘); Readln(lebar); Write(‘Masukkan Tinggi Limas Segi Empat = ‘); Readln(tinggi); Volume := 1/3 * panjang * lebar * tinggi ; Writeln(‘Volume Limas Segi Empat adalah = ‘,volume); Readln; End.

3.# Program Volume Kerucut Program Volume_kerucut; Uses Crt; Var Jari_jari : integer; Tinggi : integer; Volume : real; Begin Clrscr; Write(‘Masukkan Jari-jari Kerucut = ‘); Readln(jari-jari); Write(‘Masukkan Tinggi Kerucut = ‘); Readln(tinggi); Volume := 1/3 * 3.14159265 * jari_jari * jari_jari * tinggi ; Writeln(‘Volume Kerucut adalah = ‘,volume); Readln; End.

4.# Program Volume Bola ; Program Volume_bola; Uses Crt; Var Jari_jari : integer; Tinggi : integer; Volume : real; Begin Clrscr; Write(‘Masukkan Jari-jari Bola = ‘); Readln(jari-jari); Write(‘Masukkan Tinggi Bola = ‘); Readln(tinggi); Volume := 4/3 * 3.14159265 * tinggi * tinggi * tinggi ; Writeln(‘Volume Bola adalah = ‘,volume); Readln; End.

5. # Program Volume Tabung Program Volume_Tabung; Uses Crt; Var Jari_jari : word; Tinggi : word; Volume : real; Begin Clrscr; Write(‘Masukkan Jari-jari Tabung = ‘); Readln(jari-jari); Write(‘Masukkan Tinggi Tabung = ‘); Readln(tinggi); Volume := 3.14159265 * jari_jari * jari_jari * tinggi ; Writeln(‘Volume Tabung adalah = ‘,volume); Readln; End.

Konversikan Ke Bahasa Pemograman Delphi

3. # Program Input / Output Dengan Delphi

program Project1; {$AppType CONSOLE} uses   SysUtils; var   name : string; begin   WriteLn(Output, 'Please enter your name');   ReadLn(Input, name);   WriteLn('Your name is '+name);   WriteLn('');   WriteLn('Press enter to exit');   ReadLn(name); end.

Hasil Output :         Please enter your name    Minak Djinggo    Your name is Minak Djinggo         Press enter to exit

Download Ebook Tugas Bahasa Pemograman Paskal Dan Delphi(.pdf) :
Click Here