alexa-tracking

Main Content

1024
1024
KASKUS
51
244
https://www.kaskus.co.id/thread/531557b840cb179e038b456c/ask--master-pascal-masuk--gan
[ ask ] master pascal masuk gan
selamat siang master2 semua emoticon-Kiss
misi ane mau nanya soal pascal nih emoticon-Sorry
gini cerita nya ane diberi tugas buat bkin kalkulator dengan 5 operasi
operasi nya yaitu +, -, :, *, perpangkat an emoticon-Hammer2
nah ane bingung soal operasi perpangkatan, ane cuman tau fungsi "sqr" untuk pangkat 2(persegi), kalo perpangkatan 3 (kubik) dan seterus nya ane bingung emoticon-Sorry
ni script ane gan
Spoiler for "asoy":

ada yang bisa nyederhanaiin nya ? emoticon-Bingung (S)emoticon-Bingung (S)
tolong bantuan nya ya gan emoticon-Cendol (S)emoticon-Blue Guy Cendol (L)emoticon-2 Jempol
sundul sundul emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)

referensi aja ya

referensi masalah anda :
http://www.komputika-stmik.com/index...scal&Itemid=73
Quote:Original Posted By takemypass
referensi masalah anda :
http://www.komputika-stmik.com/index...scal&Itemid=73


perlu penjelasan gan emoticon-Matabelo
help emoticon-Sorryemoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)

Pakai perluangan brader, kalo diPHP ini di pascal ane ga punya software Turbo Pascal

Dicoba aja ya,


Program Bilangan_Pangkat_3;
uses wincrt;

var
S, Suku, N : Integer;


Begin
writeLn;
writeLn ('++++++++++++++++++++++++++++++++++++++++');
WriteLn ('Menampilkan Deret Bilangan Pangkat 3');
WriteLn ('++++++++++++++++++++++++++++++++++++++++');
writeLn;

S := 1;
Suku := 1;
N := 10;

While Suku <= N Do
Begin
Write (S);
write (' ');
Suku := Suku + 1;
S := Suku*Suku*Suku;

End;

WRITELN;WRITELN;
writeLn ('++++++++++++++++++++++++++++++++++++++++');
End.


sumber :http://khairul-ikhsan.blogspot.com/2013/03/menghitung-deret-bilangan-pangkat-di.html
Disederhanakan seperti apa maksud loh emoticon-Cape d... (S)
Quote:Original Posted By takemypass
Dicoba aja ya,


Program Bilangan_Pangkat_3;
uses wincrt;

var
S, Suku, N : Integer;


Begin
writeLn;
writeLn ('++++++++++++++++++++++++++++++++++++++++');
WriteLn ('Menampilkan Deret Bilangan Pangkat 3');
WriteLn ('++++++++++++++++++++++++++++++++++++++++');
writeLn;

S := 1;
Suku := 1;
N := 10;

While Suku <= N Do
Begin
Write (S);
write (' ');
Suku := Suku + 1;
S := Suku*Suku*Suku;

End;

WRITELN;WRITELN;
writeLn ('++++++++++++++++++++++++++++++++++++++++');
End.


sumber :http://khairul-ikhsan.blogspot.com/2013/03/menghitung-deret-bilangan-pangkat-di.html


lah kalo pangkat 4 bijimane gan? emoticon-Hammer2
Quote:Original Posted By peyotpetot
Disederhanakan seperti apa maksud loh emoticon-Cape d... (S)


itukan punya ane masih ribet gan emoticon-Hammer2
mau ane begini untuk operasi perpangkatan, nilai 1 untuk input bilangan nilai 2 untuk input pangkat nya
misal nya2 pangkat 5
nilai1 = 2
nilai2 = 5
emoticon-Cape d... (S) emoticon-Hammer (S)
Quote:Original Posted By Snivy6565


itukan punya ane masih ribet gan emoticon-Hammer2
mau ane begini untuk operasi perpangkatan, nilai 1 untuk input bilangan nilai 2 untuk input pangkat nya
misal nya2 pangkat 5
nilai1 = 2
nilai2 = 5
emoticon-Cape d... (S) emoticon-Hammer (S)


Code:

pangkat:
hasil := 1;
for i:= 1 to isi2 do
hasil := hasil * isi1;
Quote:Original Posted By peyotpetot


Code:

pangkat:
hasil := 1;
for i:= 1 to isi2 do
hasil := hasil * isi1;


masih error gan emoticon-Hammer2
Code:

program C_asoy;
uses crt;
var
op :char;
n1, n2, hasil :integer;
begin
clrscr;
writeln('nil1 = ');readln(n1);
writeln('nil2 = ');readln(n2);
writeln('Operasi? (+ : - * 2 3 4) :');readln(op);
case op of
'+':hasil:= n1 + n2;
'-':hasil:= n1 - n2;
':':hasil:= n1 div n2;
'*':hasil:= n1 * n2 ;
'^':hasil:= 1;
for i:= 1 to n2 do
hasil:= hasil * n1;
end;
write('hasil =',hasil);
readln;
end.
sundul sundul bantuin dong emoticon-Frown
EXP(LN(x)*y)

x adalah base dan y adalah pangkatnya

hasilnya bilangan real.
Quote:Original Posted By Snivy6565


masih error gan emoticon-Hammer2


code gw ditaroh di dalam begin - end.