kode-kode bahasa pascal

perkalian

uses wincrt;
var
a,b,h:integer;
begin
writeln('===PERKALIAN===');
writeln('=================');
write('Masukan Angka Pertama = ');read(a);
write('Masukan Angka Kedua = ');read(b);
h:=a*b;
writeln('Angka Pertama * Angka Kedua = Hasil Perkalian');      writeln(a, ' x ',b, ' = ' ,h);      writeln('Hasil Operasi Perkalian Anda Adalah ',h);
end.

SEGITIGAA

program segitiga;

uses wincrt;

var alas, tinggi, sisimiring, luas, keliling : re al ;

begi n

clrscr;

writeln (‘Menghitung Luas dan Keliling Segitiga’);

writeln (‘-------------------------------------------------‘);

write (‘Masukkan nilai alas : ‘) ;

readln (alas);

write (‘Masukkan nilai tinggi : ‘) ;

readln (tinggi) ;

luas:= 0.5*alas*tinggi;

sisimiring:= sqrt (sqr(alas)+sqr(tinggi));

keliling:= alas+tinggi+sisimiring;

writeln (‘Luas Segitiga adalah : ‘, luas:3:2, ‘cm’);

writeln (‘Keliling Segitiga adalah : ‘, keliling3:2, ‘cm’);

readln;

end.

Menghitung Luas dan Keliling Lingkaran

program lingkaran;

uses wincrt;

var r, luas, keliling : real ;

begi n

clrscr;

writeln (‘Menghitung Luas dan Keliling Lingkaran’);

writeln (‘---------------------------------------------------‘)

write (‘Masukkan jari-jari lingkaran : ‘) ;

luas:= pi*sqr(r);

keliling:=2*pi*pi;

writeln (‘Luas Lingkaran adalah : ‘, luas:3:2, ‘cm’);

writeln (‘Keliling Lingkaran adalah : ‘, keliling3:2, ‘cm’);

readln;

end.3. Menghitung Luas dan Keliling Persegi Panjang

program persegi_panjang;

uses wincrt;

var alas, tinggi, luas , keliling : real ;

begi n

clrscr;

suhuuuu

LISTING PROGRAM PASCAL :

program konversi_dan_rumus;

uses wincrt;

var

C,K : integer;

Re,Fe,jari2,panjang,lebar,luas,tinggi,alas : real;

pil : char;

z,y,n:string;

label mn1,mn2,mn3;

begin

mn1:

clrscr;

gotoxy(30,3); writeln('*****MENU UTAMA******');

gotoxy(30,4); writeln('1.Konversi Suhu Udara');

gotoxy(30,5); writeln('2.Rumus Matematika');

gotoxy(30,6); writeln('3.keluar');

gotoxy(30,7); write('masukkan pilihan anda:');

readln(pil);

case pil of

'1':begin

mn2:

clrscr;

writeln('a.Celcius-Reamur');

writeln('b.Celcius-Fahrenheit');

writeln('c.Celcius-Kelvin');

writeln('d.back');

write('masukkan pilihan anda:');readln(pil);

case pil of

'a': begin

clrscr;

writeln('CELCIUS-REAMUR');

Write('Masukkan Celciusnya = '); readln(C);

Re:=4/5*C;

Writeln('Hasil Konversi Celcius-Reamur adalah = ',Re:0:2);

write('mau keluar y/t:');readln(z);

if z='y' then goto mn1

else

goto mn2;

readln;

end;

'b': begin

clrscr;

writeln('CELCIUS-FAHRENHEIT ');

write('Masukkan Celciusmya = ' ); readln(C);

Fe:=9/5*C+32;

writeln('Hasil Konversi Celcius-Fahrenheit adalah = ',Fe:0:2);

readln;

end;

'c': begin

clrscr;

writeln('CELCIUS-KELVIN ');

write('Masukkan nilai Celcius = ' ); readln(C);

K:=C+237;

writeln('Hasil Konversi Celcius-Kelvin adalah = ',K);

end;

'd':begin

goto mn1;

end;

'2':begin

clrscr;

writeln('a.segitiga');

writeln('b.lingkaran');

writeln('c.luas persegi panjang');

writeln('0.selesai');

write('masukkan pilihan anda:');readln(pil);

case pil of

'a':begin

clrscr;

write('masukkan alas:');readln(alas);

write('masukkan tinggi:');readln(tinggi);

luas:=0.5*alas*tinggi;

write('luas segitiga adalah',luas);

end;

'b':begin

clrscr;

write('masukkan jari-jari:');readln(jari2);

luas:=jari2*jari2*3.14;

write('luas lingkaran adalah',luas:0:2);

end;

'c':begin

clrscr;

write('masukkan panjang:');readln(panjang);

write('masukkan lebar:');readln(lebar);

luas:=panjang*lebar;

write('luas persegi panjang adalah',luas);

end;

'3': begin

clrscr;

Writeln('anda keluar Program');

Writeln('Terima Kasih');

readln;

end;

end.

luas dan keliling persegi panjang

writeln (‘Menghitung Luas dan Keliling Persegi Panjang’);

writeln (‘----------------------------------------------------------‘);

write (‘Masukkan nilai alas : ‘) ;

readln (alas);

write (‘Masukkan nilai tinggi : ‘) ;

readln (tinggi) ;

luas:= alas*tinggi;

keliling:= ((2*alas)+(2*tinggi));

writeln (‘Luas Persegi Panjang adalah : ‘, luas:3:2, ‘cm’);

writeln (‘Keliling Persegi Panjang adalah : ‘, keliling3:2, ‘cm’);

readln;

end

lingkaraaan

Uses Crt;
Var r,L,K:Real;
Begin
clrscr;
Write ('masukan jari-jari lingkaran(cm):');
Readln(r);
L:=pi*r*r;
K:=2*pi*r;
Writeln;
Writeln ('luas lingkaran:',L:10:2,'cm2');
Writeln ('keliling lingkaran:',K:10:2,'cm');
End.
Pada baris 7 terdapat penggunaan sintak Read(r), artinya pada baris tersebut program akan berhenti sejenak sampai user mengetikkan sebuah angka untuk nilai variabel 'r' dan menekan tombol ENTER.