Delphi 7

Ekspresi adalah satuan sintaksis yang ada di dalam statemen dan menunjukkan sebuah nilai.

pertama kita buka dulu Borland Delphi 7 dulu,,
kalau nggak tau caranya klik disini

Ekspresi 1 yang akan dirubah,,,

E=m.c²
akan menjadi:
e:=m*sqr(c);

berikut ini penulisan dalam perubahan ekspresi matetematik dan hasilnya:

jangan lupa klik 'play' atau tekan F9 pada keyboard,, muncul seperti gambar dibawah ini,,,

lalu coba masukkan angka,,




var
m,c:integer;
hasil,e:real;
begin
write('Masukkan m=');readln(m);
write('Masukkan c=');readln(c);
e:=m*sqr(c);
writeln('e=',e:10:2);
readln;
end.
___________________________________________________________________________________
Ekspresi 2 yang akan dirubah,,
L=1/4.π.d
 akan menjadi:

L:=1/4*(3.14*d);

berikut ini penulisan dalam perubahan ekspresi matetematik dan hasilnya:

jangan lupa klik 'play' atau tekan F9 pada keyboard,, muncul seperti gambar dibawah ini,,,


lalu coba masukkan angka,,





var
d:integer;
L:real;
begin
write('Masukkan d=');readln(d);
L:=1/4*(3.14*d);
writeln('L=',L:10:2);
readln;
end.
___________________________________________________________________________________












berikut ini penulisan dalam perubahan ekspresi matetematik dan hasilnya:

jangan lupa klik 'play' atau tekan F9 pada keyboard,, muncul seperti gambar dibawah ini,,,












var
a,b:integer;
c:real;
begin
write('Masukkan a=');readln(a);
write('Masukkan b=');readln(b);
c:=sqr(sqr(a)+sqr(b));
writeln('c=',c:10:2);
readln;
end.
___________________________________________________________________________________






berikut ini penulisan dalam perubahan ekspresi matetematik dan hasilnya:

jangan lupa klik 'play' atau tekan F9 pada keyboard,, muncul seperti gambar dibawah ini,,,

lalu masukkan angka seperti gambar dibawah ini,,,


lalu masukkan lagi angka seperti gambar dibawah ini,,,








var
a,b,sin:integer;
L:real;
begin
write('Masukkan a=');readln(a);
write('Masukkan b=');readln(b);
write('Masukkan Sin=');readln(sin);
L:=1/2*(a*b*sin);
writeln('L=',L:10:2);
readln;
end.

___________________________________________________________________________________
Ekspresi 5 yang akan dirubah,,

 S = V . t + 1/2 . a . t2
menjadi
x = (-b+SQRT(SQR(b)-4*a*c))/2*a

berikut ini penulisan dalam perubahan ekspresi matetematik dan hasilnya:

jangan lupa klik 'play' atau tekan F9 pada keyboard,, muncul seperti gambar dibawah ini,,,




 beri angka seperti berikut ini,,










var
  v,t,a:integer;
  S:real;
begin
write('Masukkan v = ');readln(v);
write('Masukkan a = ');readln(a);
write('Masukkan t = ');readln(t);
writeln;
S:=v*t+1/2*a*SQR(t);
writeln('S = ',S:5:2);
readln;
end..
___________________________________________________________________________________
Ekspresi 6 yang akan dirubah,,


y = sec2 x - tan2 x
menjadi
y:=SQR(1/cos(x))-SQR(sin(x)/cos(x))


berikut ini penulisan dalam perubahan ekspresi matetematik dan hasilnya:

jangan lupa klik 'play' atau tekan F9 pada keyboard,, muncul seperti gambar dibawah ini,,,












var
   y:real; cos,sin, x:integer;
begin
  write('Masukkan sec x = ');readln(sec);
  write('Masukkan tan x = ');readln(tan);
  writeln;
  y:=SQR(1/cos(x))-SQR(sin(x)/cos(x));
  writeln('y = ',y:5:2);
  readln;
end.
___________________________________________________________________________________





berikut ini penulisan dalam perubahan ekspresi matetematik dan hasilnya:

jangan lupa klik 'play' atau tekan F9 pada keyboard,, muncul seperti gambar dibawah ini,,,

lalu hasilnya seperti gambar dibawah ini,,



gambar diatas adalah hasil penghitungan dari ekspresi ke7,,

Perintah Intinya:
var
  b,a,c:integer;
  x:real;
begin
write('Masukkan b=');readln(b);
write('Masukkan a=');readln(a);
write('Masukkan c=');readln(c);
x:=(-b+sqrt(sqr(b)-(4*a*c)))/(2*a);
writeln('x=',x:5:2);
readln;
end.


keterangan perintah-perintah delphi 7 klik disini