AGUSTINUS OK  
 
  Bahas Soal 12/12/2017 1:58pm (UTC)
   
 

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


 
  MENU
 
 
 
 
 
 
 
 
 
 
 
  Pesan
  Advertisement
  Thomas A. Edison
Jenius adalah 1 % inspirasi dan 99 % keringat.
Tidak ada yang dapat menggantikan kerja keras.
Keberuntungan adalah sesuatu yang terjadi ketika
kesempatan bertemu dengan kesiapan.

Penemu dan Pediri Edison Electric Light Company
  Alexander Graham Bell
Ketika satu pintu tertutup, pintu lain terbuka;
namun terkadang kita melihat dan menyesali pintu
tertutup tersebut terlalu lama hingga kita tidak
melihat pintu lain yang telah terbuka.

Penemu dan Mantan Presiden National Geographic Society
  Apa yang telah kamu perbuat hari ini ?
Kebahagiaan biasanya merupakan hasil dari sebuah
pengorbanan.
Sebelum tidur, bertanyalah, kebaikan apa yang sudah
kulakukan hari ini ?

 
Yang terpenting dalam Olimpiade bukanlah kemenangan,
tetapi keikutsertaan ...

Yang terpenting dari kehidupan bukanlah kemenangan
namun bagaimana bertanding dengan baik.

Baron Pierre de Coubertin,
Pendiri & Presiden pertama Komite Olimpiade
International
Halaman ini sudah dikunjungi 112663 visitors (276251 hits) Terima Kasih
=> Do you also want a homepage for free? Then click here! <=