Page 127 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN

Suku_2 := ((N-1) * Legendre(X, N-2)) / N;

Legendre := Suku_1 + Suku_2;
end;

end;

procedure Awal;
begin

Writeln('Latihan Pascal 2 : Prosedur dan Fungsi');

Writeln('--------------------------------------');
Writeln;

Writeln('Nama : ____________________');
Writeln('NIM : __________');

Writeln;

end;
procedure Baca_Data;

begin

Writeln('Menghitung Suku Banyak Legendre');
Writeln;

Write('Sampai suku ke : ');
Readln(Jum_Suku);

Write('Masukkan nilai X : ');

Readln(Bil_X);
Writeln;

end;

begin
ClrScr;

Awal;

Baca_Data;
for I := 0 to Jum_Suku do

begin

Writeln('Suku ke-',I:2,', Nilainya = ',Legendre(Bil_X, I):8:3);
end;

Writeln;

Write('Tekan Enter...');