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;