Pascal - Menghitung Rata-Rata dan Resultan
Diketahui:
data vx1 sampai vx6 dengan data secara berturut-turut 5,10,2,6,15,25
data vy1 sampai vy6 dengan data secara berturut-turut 2,6,8,12,30,36
Cari Vx dan Vy rata2 dan Resultanya
tulis dalam program pascal
program data;
uses wincrt;
var
vx,vy,r1,r2:real;
begin
vx:=(5+10+2+6+15+25)/6;
vy:=(2+6+8+12+30+36)/6;
r1:=sqr(vx)+sqr(vy);
r2:=sqrt(r1);
writeln('Vx Rata2 :',vx:0:2);
writeln('Vy Rata2 :',vy:0:2);
writeln('Resultanya :',r2:0:2);
end.
Comments
Post a Comment