User Inputkan Bilangan Bebas (antara 0 - 50), Output yang diminta adalah menampilkan Bilangan Ganjil beserta tanda (+) dan diikuti dengan (=) serta total dari bilangan ganjil.Dapat anda lihat seperti pada contoh dibawah ini Jika user Inputkan 5
Input : 5
Hasil : 1 + 3 + 5 = 9
Pembahasan :
uses crt;
var
i,jum,input : integer;
begin
clrscr;
write('Input : ');readln(input);
for i := 1 to input do
begin
if i mod 2 = 1 then
begin
jum := jum + i;
write(i);
if i write(' + ')
else
write(' = ');
end;
end;
write(jum);
readln;
end.
Penjelasan Progam:
Jum := Jum + 1 adalah menjumlahkan bilangan ganjil
Penjelasan ini terkadang tidak maksimal.
Jika anda masih belum memahami tentang jawaban dan mengalami kesulitan jangan ragu ragu untuk bertanya kepada guru pengajar, saya senantiasa membantu anda
Soal Latihan
2. Input : 6
Hasil : 6 4 2 = 12
Pembahasan Soal :
uses crt;
var
i,b,c : byte;
begin
clrscr;
write('Input : ');readln(b);
for i := b downto 1 do
begin
if i mod 2 = 0 then
begin
write(i,' ');
c:=c+i;
end;
end;
writeln('= ',c);
readln;
end.
Penjelasan program
Menggunakan downto karena diminta untuk menampilkan Angka dari besar ke kecil
Soal Latihan
Input : 8
Bilangan Genap : 4
Pembahasan :
uses crt;
var
i,b,c : byte;
begin
clrscr;
write('Input : ');readln(b);
for i := 1 to b do
begin
if i mod 2 = 0 then
begin
c:=c+1;
end;
end;
writeln('Bilangan Genap = ',c);
readln;
end.
Program Cari Kata :
uses crt;
var
a,b,c : byte;
input : string;
begin
clrscr;
write('Masukkan Kalimat : '); readln(input);
a:=1;
while a<=length(input) do
begin
if input[a]=' 'then
b:=b+1;
a:=a+1;
end;
write('Jumlah kata : ',b+1);
readln;
end.
Selamat mencoba semoga berhasil