Forum Kuliah UAD
Would you like to react to this message? Create an account in a few clicks or log in to continue.

TUGAS PEMROG Kelas E

Go down

TUGAS PEMROG Kelas E Empty TUGAS PEMROG Kelas E

Post  AULIA12006262 Mon Mar 31, 2014 11:41 am

Nama Kelompok :
1. Lisa Kurniati (12006252 )
2. Nella Anggraeni (12006255 )
3. Aulia Khasanah ( 12006262 )

Uses
var    N , H             :integer;
       N1,H1,R_hasil_:real;
begin
clrser  :
         write('Nilai N = ')readln(N);
         write('Nilai H = ')readln(H);
                R :=N/H ;
         write('Nilai R = '_R:2:2);
         readln;
write R )= P do
write R )= N do
begin
      N1 : N ;
  begin
         write('Nilai H diganti Nilai N_H1);
         readln;
  begin
         N1 :=N ;
         write('Nilai H diganti Nilai R = N1);
         readln;
              Hasil := H1/N1 ;
  begin
         write('Hasil Nilai = ' Hasil:4:2);
         readln;
end; end; end; end;
end.

AULIA12006262

Jumlah posting : 3
Join date : 28.02.14

Kembali Ke Atas Go down

Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik