uses wincrt;
var
nama,nim:string;
nt,nmt,na:integer;
nr :real;
begin
writeln (' DAFTAR NILAI MAHASISWA');
write ('Nama : ');
readln (nama);
write ('NIM : ');
readln (nim);
write ('Nilai Tugas : ');
readln (nt);
write ('Nilai Mid Test : ');
readln (nmt);
write ('Nilai Akhir : ');
readln (na);
nr:=(0.5*nt)+(0.25*nmt)+(0.25*na);
writeln ('Rata-rata : ',nr:0:2);
end.
You May Like :
Related Posts :
mencari nilai rata2 mahasiswa menggunakan program pascaluses wincrt;
var
nama,nim:string;
nt,nmt,na:integer;
nr :real;
begin
writeln (' DAFTAR NILAI MAHA… Read More...
mencari macam-macam operasi dengan program pascaluses wincrt;
var
x,y : integer;
O1,O2,O3,O4 :real;
begin
write ('masukkan nilai x = ');
read (x);
write ('masukkan nilai y = ');
read (y);… Read More...
mencari tahun kabisat menggunakan pascaluses wincrt;
var
tahun : integer;
begin
write ('masukan tahun :'); readln (tahun);
if (tahun mod 100 = 0) then
&n… Read More...
program pascal dengan menggunakan procedureuses wincrt;
procedure ganti (ruangan1, ruangan2, ruangan3, ruangan4 : string);
var
ruangan5 : string;
begin
ruangan5 := ruangan4;
ruangan… Read More...
mencari luas segitiga menggunakan program pascaluses wincrt;
const
t = 5;
var
a : integer;
l : real;
begin
write ('masukkan nilai alas… Read More...
mencari luas trapesium menggunakan program pascaluses wincrt;
const
t = 5;
var
spd,spa : integer;
l :real;
begin
write ('masukkan nilai sisi pendek = ');
readln (spd);
write ('masukkan n… Read More...
Cara Mencari nilai rata-rata menggunakan pascalbaikalah sekarang kita coba lihat contoh mencari nilai rata2 ,,,
cekedot..
uses wincrt;
var
nama,nim:string;
nt,nmt,na:integer;
nr :real;
… Read More...
mencari luas bola dengan program pascaluses wincrt;
type
bulat = integer;
desimal = real;
var
v : desimal;
r : bul… Read More...
mencari luas lingkaran menggunakan program pascaluses wincrt;
const
t = 5;
var
spd,spa : integer;
l :real;
begin
write ('masukkan nilai sisi pendek = ');
readln (spd);
write ('masukkan … Read More...
mencari volume balok menggunakan program pascaluses wincrt;
var
a,b,c : integer;
v : real ;
begin
write ('masukkan panjang balok = ');
readln (a);
write ('masu… Read More...
0 Response to "mencari nilai rata2 mahasiswa menggunakan program pascal"
Posting Komentar