TP : Ganjil dan Genap

program ganjilgenap; uses crt; var n,x,y,pil,jum:integer; ulang:char; begin REPEAT clrscr; writeln('Menghitung bilangan ganjil dan genap'); writeln('------------------------------------'); writeln('PILIHAN :'); writeln('1. Bilangan GENAP'); writeln('2. Bilangan GANJIL'); write('Masukkan pilihan = '); readln(pil); writeln; IF pil =1 THEN    begin       writeln('Menghitung bilangan GENAP');       writeln('*************************');       write('Masukkan banyak bilangan = ');       readln(n);       writeln('Deret bilangan genap :');       jum:=0;       y:=0;       FOR  x:=1 TO ...

Read more »

TP : Program Menghitung Gaya

program gaya;uses crt;varm,s,t:real;beginclrscr;writeln('MENGHITUNG GAYA');writeln('===============');write('Masukkan massa = ');readln(m);write('Masukkan jarak = ');readln(s);write('Masukkan waktu = ');readln(t);writeln('-----------------------------');writeln('Maka yang dihasilkan dengan :');writeln('Massa = ',m:0:2,' gr');writeln('Jarak = ',s:0:2,' meter');writeln('Waktu = ',t:0:2,' second');writeln;writeln('adalah :');writeln('Kecepatan  = ',s/t:0:2,' m/s');writeln('Percepatan = ',(s/t)/t:0:2,' m/s^');writeln('Gaya       = ',m*(s/t)/t:0:2,' Newton');readln;end....

Read more »