Turbo Pascal untuk Modulus Elastisitas

Uses wincrt;
Var
F,A,L,k,T,R,E:real;kembali:char;label awal;


Begin
awal:
write(' Masukkan Gaya yang Bekerja Pada Pegas dalam Newton:');Readln(F);
write(' Masukkan Luas Penampang Pegas dalam Meter:');Readln(A);
write(' Masukkan Panjang Mula-mula Pegas dalam Meter:');Readln(L);
write(' Masukkan Pertambahan Panjang Pegas dalam Meter:');Readln(k);
T:=F/A;R:=L/k;E:=T/R;
writeln(' Tegangan Pegasnya Adalah',F:2:2);
writeln(' Regangan Pegasnya Adalah',R:2:2);
writeln(' Modulus Elastisitas Pegas Adalah ',E:2:2);
writeln(' Untuk Mengulangi Perhitungan Tekan y');
kembali:=Readkey;
If kembali='y' then goto awal;


End.