pemrograman dasar 1

program loop_kasus2;
uses crt;
var a,b,i:integer;
    jawab:char;
begin
repeat
begin
clrscr;
writeln('Program cetak bilangan faktor 3 dan bukan faktor 5 diantara dua buah bilangan');
writeln('*****************************************************************************');
     write('input bilangan pertama : ');readln(a);
     write('input bilangan kedua : ');readln(b);
     if (a=b) or ((a-b)=1) or ((b-a)=1) or ((a-b)=2) or ((b-a)=2) then
        writeln('Tidak ada hasil')
     else if ((b-a)>=3) then
     begin
          for i:=a+1 to b-1 do if (i mod 3=0) and (i mod 5<>0) then write(i:4)
     end
     else
     begin
          for i:=a-1 downto b+1 do if (i mod 3=0) and (i mod 5<>0) then write(i:4) ;
     end;
     writeln;
     write('mau coba lagi <y/t> : ');readln(jawab);
end
until (jawab<>'y');
end.

Tweet

Artikel keren lainnya:

Ditulis oleh kata-quotes pada tanggal Wednesday, January 7, 2015