Selasa, 31 Agustus 2010

Latihan Soal Fungsi Delphi

Soal :
1. ubah nilai a string jadi z numerik (z=-7.25)
2. z dijumlahkan dengan d
3. z diambil bulatnya, jadi tinggal desimal (-0.25)
4. z diambil desimalnya, jadi tinggal bulat (-7.00)
5. z dipositifkan (7.25)
6. d dibulatkan ke bawah dan tampilkan karakter ASCII-nya
7. nilai b dan c digabung ke e
8. tampilkan posisi "j" di e
9. ambil nilai jaten dari e ditampung pada f
10. hapus c jadi nilainya "jaten"
11. sisipkan c pada f, sehingga jadi "jajatenten"


Programnya :

VAR A,B,C,I,E,F,G:STRING;
D,X,Z:REAL;
H:INTEGER;
POSISI: BYTE;
begin
A:='-7.25';
B:='SAYA';
C:='PEJATEN';
D:=1.25;
VAL(A,Z,H);
WRITELN ('1.NILAI Z:',Z:6:2);
X:=Z+D;
WRITELN ('2.E+Z:=',X:6:2);
X:=FRAC(Z);
WRITELN ('3.DIAMBIL DESIMAL Z:',X:6:2);
X:=INT(Z);
WRITELN ('4.DIAMBIL BULAT Z:',X:6:2);
X:=ABS(Z);
WRITELN ('5.POSITIF Z:',X:6:2);
H:=ROUND(D);
WRITELN('6.KARAKTER ASCII PEMBULATAN Z:', CHR(H));
E:= B+C;
WRITELN('7.PENGGABUNGAN DI E :',E);
POSISI:= POS('J',E);
WRITELN ('8.POSISI J:',POSISI);
F:=COPY(E,7,5);
WRITELN ('9. F:',F);
DELETE (C,1,2);
WRITELN('10. MENGHAPUS :',C);
INSERT (C,F,3);
WRITELN ('11. HASILNYA :',F);
READLN;

end.

Hasil :

Tidak ada komentar:

Posting Komentar