PROGRAM PASCAL PENGHITUNG KALOR

PROGRAM AKHIR PASCAL SEMESTER 2

PROGRAM Penghitung_Kalor;

Uses Crt;

VAR 

 Q : real;

m1,m2,c,T1,T2,L : real;

Q2:real;

pil:integer;

BEGIN

Clrscr;

Textcolor(13);

Gotoxy(6,5);write(‘\^.^/ Selamat datang di program penghitung kalordan kalor laten \^.^/’);

Textcolor(3);

Gotoxy(31,10);write(‘1.Kalor’);

Gotoxy(31,12);write(‘2.Kalor Laten’);

Textcolor(4);

Gotoxy(38,15);write(‘PILIHAN:’);

Gotoxy(48,15);read(pil);

Delay(1000);

If pil=1 then

BEGIN

Clrscr;

Gotoxy(27,5);write(‘Massa benda:            kg);

Delay(1500);

Gotoxy(27,7);write(‘Kalor jenis benda:               j/kg’);

Textcolor(5);

Delay(1500);

Gotoxy(31,9);write(‘Suhu(T1) dalam kelvin:                     derajat K’);

Delay(1500);

Gotoxy(31,11);write(‘Suhu(T2)dalam kelvin:                  derajat K’);

Delay(1500);

Gotoxy(41,5);read(m1);

Gotoxy(47,7);read(c);

Gotoxy(54,9);read(T1);

Gotoxy(54,11);read(T2);

Textcolor(10);

Gotoxy(35,15);write(‘Nilai kalor:                  joule’);

Q:=(m1*c*(T2-T1));

Gotoxy(49,15);write(Q:2:2);

READKEY;

END;

If pil=2 then

BEGIN

Clrscr;

Textcolor(10);

Gotoxy(27,6);write(‘Massa benda:                 kg’);

Delay(1500);

Gotoxy(27,8);write(‘Masukkan nilai kalor:                   joule’);

Delay(1500);

Gotoxy(30,11);write(‘Nilai Kalor Laten:                        j/Kg’);

Gotoxy(41,6);read(m2);

Gotoxy(50,8);read(Q2);

L:=(Q2/m2);

Gotoxy(50,11);write(L:2:2);

Readkey;

End;

BEGIN

Clrscr;

Delay(2000);

Gotoxy(20,12);write(‘\”.”> TERIMAKASIH ANDA SUDAH MENCOBA <”.”/’);

READKEY;

END;

END.

PROGRAM PROCEDURE

Program  TITIK_KOORDINAT;

Uses crt;

Var      absis,ordinat,pengali:integer;

Procedure   dilat(a,b,peng:integer);

Var     c,d:integer;

Begin

c:=a*peng;

d:=b*peng;

Writeln(‘(‘,c,’,’,d,’)’);

End;

Begin

Clrscr;

Textcolor(12);

Gotoxy(23,2);write(‘silahkan mencoba  program ini!!!!’);

Delay(2500);

Textcolor(13);

Gotoxy(33,6);write(‘Koordinat Awal’);

Gotoxy(32,10);write(‘Absis:’);

Gotoxy(32,12);write(‘Ordinat:’);

Gotoxy(40,10);readln(absis);

Gotoxy(41,12);readln(ordinat);

Writeln;

Gotoxy(32,14);write(‘Masukkan faktor pengali:’);

Gotoxy(57,14);readln(pengali);

Gotoxy(25,20);write(‘Kornidat(‘,absis,’,’,ordinat,’)setelah dikalikan ’,pengali,’ menjadi’);

Dilat(absis,ordinat,pengali);Readln;

End.

PROGRAM FUNCTION

PROGRAM  persamaan_kuadrat;

Uses Crt;

Var   x,y,z,s:integer;

Function  fungsi(a,b,c,x : integer):integer;

Begin

Fungsi:=a*(x*x)-b*x+c;

End;

begin

Clrscr;

Textcolor(13);

Gotoxy(9,7);write(‘program ini membantu anda menghitung nilai persamaan kuadrat’);

Gotoxy(36,10);write(‘nilai a:’);

Gotoxy(36,12);write(‘nilai b:’);

Gotoxy(36,14);write(‘nilai c:’);

Gotoxy(36,16);write(‘nilai x’);

Gotoxy(45,10);read(x);

Gotoxy(45,12);read(y);

Gotoxy(45,14);read(z);

Gotoxy(45,16);read(s);

Gotoxy(32,18);write(‘f(x)=’,x,’(x^’,x,’2)-‘,y,’x+’,z);

Gotoxy(32,20);write(‘f(‘,s,’)=’fungsi(x,y,z,s);

Readln;

End.