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.c2
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,,,


Perintah intinya
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,,

Perintah intinya
var
d:integer;
L:real;
begin
write('Masukkan d=');readln(d);
L:=1/4*(3.14*d);
writeln('L=',L:10:2);
readln;
end.
Ekspresi 3
yang akan dirubah,,
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 seperti gambar dibawah ini,,

Perintah intinya
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.
Ekspresi 4
yang akan dirubah,,
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,,,

hasil
penghitungannya ,, seperti gambar dibawah ini,,

Perintah intinya
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,,
hasilnya
seperti berikut,,,
Perintah intinya
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,,,
masukkan angka
seperti berikut ini,, dan mengeluarkan hasil seperti ini,,
Perintah intinya
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.
Ekspresi 7
yang akan dirubah,,

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,,,
lalu hasilnya seperti gambar dibawah ini,,

gambar diatas adalah hasil penghitungan dari ekspresi ke7,,
Perintah Intinya:
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
***********selamat
mencoba***********
hahaha,,, rumus ke 6 nya samaaaa,,, :D
BalasHapus