beberapa bahasa pascal yang sudah saya pelajari di Teknik Informatika (S1) Universitas Jabal Ghafur
1. bahasa pascal untuk membuat program mencari nilai kuliah
uses wincrt;
var nilai :integer;
begin
gotoxy(5,5);
write('masukkan nilai : ');readln(nilai);
if nilai<=50
then
begin
gotoxy(5,8);
write ('E');
end
else if nilai
<=65 then
begin
gotoxy(5,8);
write ('D');
end
else if nilai
<=75 then
begin
gotoxy(5,8);
write ('C');
end
else if nilai
<=85 then
begin
gotoxy(5,8);
write ('B');
end
else if nilai
<=100 then
begin
gotoxy(5,8);
write ('A');
end
else if nilai
>=100 then
begin
gotoxy(5,8);
write ('salah');
end
end.
2. Program
perulangan
uses WINCRT;
var
no:integer;
bil:integer;
begin
bil:=0;
FOR no:=1 to 10 do
begin
bil:=bil+2;
writeLN (bil);
end
end.
Program
perulangan2;
uses WINCRT;
var
no:integer;
bil:integer;
begin
bil:=1;
FOR no:=1 to 10 do
begin
writeLN (bil);
bil:=bil+2;
end
end.
3.bahasa pascal untuk membuat program mencari luas lingkaran
uses wincrt;
var luas :real;
pi
:real;
jari
:real;
begin
jari:=11;
pi
:=3.14;
Luas:=pi * (jari*jari);
write (' Luas LINGKARAN =',luas:4:2);
END.
4.bahasa pascal untuk membuat program mencari luas segi tiga
uses wincrt;
var AL,TG,LUAS
: REAL;
begin
gotoxy(5,5); write ('MASUKKAN NILAI ALAS : ');READLN(AL);
gotoxy(5,6); write ('MASUKKAN NILAI
TINGGI : ');READLN(TG);
luas:=0.5*al*tg;
gotoxy(5,8); write ('LUAS SEGITIGA :',
luas:3:2);
end.
5.bahasa pascal pemprograman
uses wincrt;
begin
gotoxy(20,1); write('selamat pagi');
gotoxy(35,3);write('kota sigli');
gotoxy(51,5);write('apa kabar');
end.
PROGRAM
PERTAMA;
USES WINCRT;
Begin
CLRSCR;
Writeln('Selamat
SORE');
Writeln('yusrifal');
Writeln('apa
kabar?');
End.
uses wincrt;
var a
:integer;
begin
a:=1;
if a=1 then
write('benar');
end.
uses wincrt;
var nm,al :
string;
begin
gotoxy(5,5); write ('NAMA ANDA
:');READLN(NM);
gotoxy(5,6); write ('ALAMAT :');READLN(AL);
clrscr;
gotoxy(5,8); write ('Hallo ',nm, 'apa kabar');
gotoxy(5,9); write (al);
end.
uses wincrt;
var nm,al :
string;
begin
gotoxy(5,5); write ('NAMA ANDA
:');READLN(NM);
gotoxy(5,6); write ('ALAMAT :');READLN(AL);
clrscr;
gotoxy(5,8); write ('Hallo ',nm, 'apa kabar');
gotoxy(5,9); write (al);
end.
uses wincrt;
var a
:integer;
begin
a:=1;
if a=1 then
begin
write('benar');
end
else
begin
write('salah')
end
end.
6.bahasa pascal untuk membuat program mencari luas persegi panjang
uses wincrt;
var luas :INTEGER;
PJ
:INTEGER;
LB
:INTEGER;
begin
PJ:=6;
LB:=8;
Luas:=PJ * LB;
write (' Luas PERSEGI PANJANG =',luas);
END.
7.bahasa pascal untuk membuat program mencari kelulusan
uses wincrt;
var nilai
:integer;
begin
gotoxy(5,5); write('masukkan nilai :
');readln(nilai);
if nilai<=60 then
begin
gotoxy(5,8); write ('tidak lulus');
end
else if nilai <=85 then
begin
gotoxy(5,8); write ('lulus cadangan');
end
else
begin
gotoxy(5,8); write ('lulus');
end
end.
No comments:
Post a Comment