Input nilai Y (Turbo Pascal)


uses crt
var
       i  : integer :
      y  : integer ;
begini
     clrscr ;
     write('input nilai y = '):readln(Y);
     for i  := 1 to 10 do
     begini
                writeln,  '  x  '   ,   y  ,   '  =   ' ,  i  * y) ;
     end:
     readln:_
end

(setelah itu tekan Alt + F9 secara bersamaan / klik Run di  menu) 

Komentar

Postingan populer dari blog ini

SISTEM PERSAMAAN LINEAR ELIMiNASI GAUSS / ELEMINASI GAUS JORDAN

SISTEM PERSAMAAN LINEAR DEKOMPOSISI METODE CROUT/DOOLITLE

A |Post Fix 1 | Pengertian Komputer dan Sejarah Perkembangan Komputer