Program Pascal Perulangan untuk Menghitung Rata-rata Bilangan Ganjil dengan Input Bilangan Awal dan Akhir

For...to...do

program for_to_do;

uses wincrt;

label back;

var

 i:byte;

 k,awal,akhir:integer;

 rata,jum:real;

begin

back:

clrscr;

write('nilai awal=');readln(awal);

write('nilai akhir=');readln(akhir);

if awal<=akhir then

begin

for i:=awal to akhir do

if i mod 2=1 then

begin

jum:=jum+i;

awal:=awal+2;

k:=k+1;

end;

end

else goto back;

rata:=jum/k;

writeln('rata-rata=',rata:2:2);

end.

While...do

program while_do;

uses wincrt;

label back;

var

 k,awal,akhir:integer;

 rata,jum:real;

begin

back:

clrscr;

write('nilai awal=');readln(awal);

write('nilai akhir=');readln(akhir);

if awal<=akhir then

begin

while awal<=akhir do

begin

jum:=jum+awal;

awal:=awal+2;

k:=k+1;

end;

end

else goto back;

rata:=jum/k;

writeln('rata-rata=',rata:2:2);

end.

Repeat...Until

program repeat_until;

uses wincrt;

label back;

var

 k,awal,akhir:integer;

 rata,jum:real;

begin

back:

clrscr;

write('nilai awal=');readln(awal);

write('nilai akhir=');readln(akhir);

if awal<=akhir then

begin

repeat

jum:=jum+awal;

awal:=awal+2;

k:=k+1;

until awal>akhir;

end

else goto back;

rata:=jum/k;

writeln('rata-rata=',rata:2:2);

end.