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  n DO
          begin
             write(y,' ');
             jum:=jum+y;
             y:=y+2;
          end;
          writeln;
          writeln('Total jumlah bilangan = ',jum)
   end
ELSE IF pil = 2 THEN
  begin
      writeln('Menghitung bilangan GANJIL');
      writeln('**************************');
      write('Masukkan banyak bilangan = ');
      readln(n);
      writeln('Deret bilangan ganjil :');
      jum:=0;
         y:=1;
      FOR  x:=1 TO  n DO
          begin
...................
...................
...................
(silahkan diisi sendiri)
   end

ELSE
    writeln('Pilihan Anda Salah !');
writeln;
writeln('*');
writeln('*');
writeln('*');
writeln('Tekan H untuk mengakhiri');
ulang:=ReadKey;
UNTIL (ulang = 'H') OR (ulang = 'h');

END.

Read more »

TP : Program Menghitung Gaya

program gaya;
uses crt;
var
m,s,t:real;

begin
clrscr;
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 »