Program konversi Kalimat dari huruf kecil ke huruf BESAR PASCAL

Kali ini saya akan membagikan program mengonversikan kalimat di pascal dimana dalam satu kali input kalimat akan dikonversikan dari kata-kata dari huruf kecil diubah ke besar dan kata-kata dari huruf besar diubah ke huruf kecil. program ini mengunakkan kode desimal dari huruf sesuai dengan ASCII ( American Standar Code For Information Interchange). Langsung aja cek source codenya. 

=============================================
Program Konversikalimat;
Uses Crt;
Var
i : integer;
kalimat : string;
Begin
Clrscr;

Write('Masukkan Kalimat Anda : ');
Readln(kalimat);
For i := 1 to Length(kalimat) do
if ord(kalimat[i]) > 96 then
begin
kalimat[i] :=chr(ord(kalimat[i]) - 32);
end
else if ord(kalimat[i]) = 32 then
begin
kalimat[i] := chr(32);
end
else if ord(kalimat[i]) < 96 then
begin
kalimat[i] := chr(ord(kalimat[i]) + 32 );
end;
Write('Hasil Konversi Adalah ' ,kalimat);
Readln;
End.

-------------------------NUHUN-----------------

PROGRAM BILANGAN GANJIL GENAP DAN RATA-RATA PASCAL

PROGRAM BILANGAN GANJIL GENAP DAN RATA-RATA PASCAL
User menginputkan sejumlah angka. Dari angka inputan tersebut akan dibagi menjadi bilangan Ganjil dan Bilangan Genap. Kemudian akan dihitung jumlah rata2 dari bilangan Genap dan Ganjil.

Gini tampilannya :

=======================================================================

Program ganjil_genap;
uses crt;
var
bil, i,g1,g2,j1,j2,n: integer;
rt1,rt2:real;
begin
write('Masukkan Banyaknya Data ' );readln(n);
for i := 1 to n do
begin
write('Bilangan ke:',i ,' ');readln(bil);
if bil mod 2 = 0 then
j1:=j1 +1;
g1:=g1+bil;
if bil mod 2 =1 then
j2:=j2+1;
g2:=g2+bil;
end;
rt1:=g1/j1;
rt2:=g2/j2;

writeln('Jumlah bil. Ganjil=' ,j2);
writeln('Jumlah bil. Genap=' ,j1);
writeln('Rerata Ganjil=' ,rt2:4:2);
writeln('Rerata Genap=' ,rt1:4:2);
readln;
readln;
end.

Hatur nuhun semoga bermanfaat.

Program Hitung Rata-Rata (PASCAL)

Program Baca Nilai  Berpasangan ini pada intinya adalah untuk belajar cara penginputan data integer dan kemudian menghitung nilai rata-ratanya. Variabel yang diinputkan akan dibagi menjadi 2 blok, X dan Y. Masing masing angka inputan di tiap blok akan dihitung nilai rata-ratanya..

Silahkan dicopas. Disini saya memakai DEV-PASCAL. untuk TURBO PASCAL.. ganti Uses Crt dgn USES WINCRT
Facebook saya : Lutfi Matahari
Contoh lain : Program Aritmatika Pascal
--------------------------------------------------=================---------------------------------

================================================================
Program Baca_Berpasangan;
Uses Crt;
Var
X,Y,Rx,Ry,Jx,Jy : real;
Nx,Ny,i : integer;
Begin
ClrScr;
Write('Masukkan Banyaknya X :');Readln(Nx);
Write('Masukkan Banyaknya Y :');Readln(Ny);
If Nx = Ny then
For i:=1 to Nx Do
begin
Write('Data X ke-',i,' = ');Readln(X);
Write('Data Y ke-',i,' = ');Readln(Y);
Jx:=Jx+X;
Jy:=Jy+Y;
end
else if Nx > Ny then
begin
For i:=1 to Ny Do
begin
Write('Data X ke-',i,' = ');Readln(X);
Write('Data Y ke-',i,' = ');Readln(Y);
Jx:=Jx+X;
Jy:=Jy+Y;
end;
i:=Ny+1;
Repeat
Write('Data X ke-',i,' = ');Readln(X);
Jx:=Jx+X;
i:=i+1;
until i>Nx;
end
else if Nx < Ny then
begin
For i:=1 to Nx Do
begin
Write('Data X ke-',i,' = ');Readln(X);
Write('Data Y ke-',i,' = ');Readln(Y);
Jx:=Jx+X;
Jy:=Jy+Y;
end;
i:=Nx+1;
Repeat
Write('Data Y ke-',i,' = ');Readln(Y);
Jy:=Jy+Y;
i:=i+1;
until i>Ny;
end;
Rx:=Jx/Nx;
Ry:=Jy/Ny;
writeln('Rata-rata dari data X = ',Rx:6:2);
writeln('Rata-rata dari data Y = ',Ry:6:2);
Readln;

end.

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,<<<<<<<<<<<<<<<<<<NUHUN>>>>>>>>>>>>>>>>>>>>>>,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,