Program akar kuadrat

Index Konsultasi Delphi || Arsip Pertanyaan

Program akar kuadrat [Kusnadi]


Saya baru di dunia Delphi dan saya punya kesulitan
1. bagaimana caranya buat program 2V7+1 (2 akar 7+1)
2. bagaimana cara membedakan antara bilangan bulat dengan bilangan ganjil
Sebelumnya saya ucapkan terima kasih


Jawaban


1) Hasil := ( 2 * sqrt(7) ) + 1;
2) bilangan ganjil dan genap kali ? :)
function IsEven(Data: integer) : boolean;
begin
     Result := Data mod 2 = 0;
end;
function IsOdd(Data: integer) : boolean;
begin
     Result := Data mod 2 <> 0;
end;
-----------------------------------------------------------
WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,
SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC
PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO
-----------------------------------------------------------