Algoritma 1

[Serenity]

Tugas yg sin dikumpulin dlm bentuk bhs Algonya kan??

[Dhanny]

tes quiz gitu pa?

yah, dicoba aja programnya jalan ga

ada pertanyaan...
klo deret sin...
dibandingin ama sin(x)...
hasilnya kok beda tipis yah...
gw cuman sama ampe sudut 13...
di 14 beda 0.00002 [lebih kecil]
di 90 beda skitar 0.7an [lebih kecil]
knapa yah?

saya until diisi suku<0

klo diisi angka slaen 0 di until, maka hasil deret lebih besar jauh...
yg tadinya di sudut 90 klo untilnya 0 = 0.92........
klo untilnya diganti..........................= 1.5..........

jauh bedanya...
knapa tuh?
apa emang ada toleransinya?
yang mana yang salah?

apa until 0? apa until isi angka lain?apa ke 2 2 nya salah?

memang ada kemungkinan adanya selisih.
Tapi, biasanya ga sampe sebesar itu
ada kemungkinan salah dalam mengkonversi sudut menjadi radian
konversi harus dilakukan sejak awal
jd waktu masuk ke deret sin
maupun perhitungan pake sin(x),
sudut yg dimasukinnya sama.

aq bikin tugas sin nya pake for gpp??

Sebenernya agak aneh kl pake for,
karena yg namanya toleransi agak ga mungkin kl pake for
plg mungkin untuk pengulangannya menggunakan while atau repeat
kalo didalam while ato repeatnya ada for,
yah itu mungkin saja (u/ ngitung pangkat n faktorial)
walaupun sebenernya bisa diilangin, kaya yg ditunjukin wkt
praktek algo.

Kesimpulan : Pengulangan for tidak diperlukan untuk kasus ini

Tugas yg sin dikumpulin dlm bentuk bhs Algonya kan??

Yup, dalam bentuk algoritmanya,
hardcopy (=diprint / ditulis tangan)

[awan]

hasil kerjaan saya gimana tuh pa?
salah dimana nya?

[coding_boy]

Kak, ini posting gw yg pertama. blh tanya2 ga? gw byk ga ngerti ttg algo n coding.

ada coding kaya gn:
Procedure InputData(var Nama: String; var tgs, uts, uas : integer);

kenapa rata2 di penulisan coding procedure klo gw perhatiin, suka ada yg harus ditulis tipe integer lagi? kan kaya var nama di atas dah dikasihtau tipe nya string.. itu utk apa tipe integer nya? tx kak.

[ProgrammerSakti]

Kak, ini posting gw yg pertama. blh tanya2 ga? gw byk ga ngerti ttg algo n coding.

ada coding kaya gn:
Procedure InputData(var Nama: String; var tgs, uts, uas : integer);

kenapa rata2 di penulisan coding procedure klo gw perhatiin, suka ada yg harus ditulis tipe integer lagi? kan kaya var nama di atas dah dikasihtau tipe nya string.. itu utk apa tipe integer nya? tx kak.

Tipe integer itu digunakan untuk menuliskan angka (yang bisa dioperasikan secara matematika). Sedangkan variabel nama tipenya string bisa menuliskan huruf dan tidak dapat dioperasikan secara matematika. Jadi dengan adanya tgs, uts, uas bisa dihitung nilai akhirnya berapa? Coba kalau tgs, uts, uas tipenya string tidak bisa dioperasikan menggunakan kali ('*').

[Dhanny]

hasil kerjaan saya gimana tuh pa?
salah dimana nya?

Saya masukin source code yg kamu tulis, yah
minus bbrp writeln yg ga tll penting

Deret Sinus adalah :
Sin(x) = x - (x^3/3!) + (x^5/5!) - ....

Code: [Select]

program PDeretSin;
{$AppType Console}

Uses Sysutils;

var xpangkat, fakt,suku, hasil, x : real;
     n,m : integer;

begin
  // bagian inisialisasi awal ini sudah benar
  hasil := 0;
  n := 0;
  xpangkat := 1;
  fakt := 1;

  x := (x * (pi) * (1/180)); // Baris ini tidak efisien
  // ngapain dikali 1??
  // tanda kurung yg tll banyak pun biasanya suka menyebabkan kesalahan (dlm kasus bbd)
  // lebih baik ditulis seperti ini
  // x := x * pi / 180;

  repeat
  begin // repeat-until tidak perlu menggunakan begin-end
           // karena "repeat" sudah merupakan begin sedangkan "until" mrpk end
  n := (n + 1); // kl tidak perlu kurung, jgn digunakan
  xpangkat := (xpangkat * x);
  fakt := (fakt * n);
  m := (n mod 2); // akan mempunyai nilai 0 atau 1 tgt n
 
  if n=1 // <-- kesalahan ada disini
  then
      suku:= (-1 * (xpangkat/fakt) *(-1)*(m))
      // baris tsb sangat tidak efektif
      // -1 kalo dikali -1 pasti bernilai 1 --> tidak perlu ada perkalian dgn -1 sampai 2x
      // karena n=1 --> m pasti bernilai 1 --> tidak perlu ada perkalian dgn m
  else
      suku:=((xpangkat/fakt) * (-1) * (m)); // <-- akan selalu menghasilkan nilai negatif atau 0
  hasil := (hasil + suku);
  end; // <-- tidak perlu ada
  until suku < (0);
end.

untuk bagian if, seharusnya :

Code: [Select]

   m = -1 // m ini akan menjadi suatu faktor yg merubah tanda plus dan minus
   if (n mod 2 =1) then
   begin
      m := m * (-1);
      suku := xpangkat/fakt;
      hasil := hasil + suku * m;
   end;

Dicoba lagi, yah

[Dhanny]

Tipe2 variabel yang umum digunakan :
Char : adalah tipe ordinal yang hanya digunakan untuk 1 buah karakter saja (bisa huruf / angka)
          tetapi tidak bisa digunakan untuk perhitungan
String : adalah tipe yang digunakan untuk karakter (merupakan array of char)
            karena terdiri dari beberapa karakter
            tidak bisa digunakan untuk perhitungan
Integer : adalah tipe ordinal dalam artian bilangan bulat (angka)
              mempunyai batasan +- 65000 (persisnya lupa)
             digunakan untuk perhitungan numerik (tapi harus bilangan bulat)
             mempunyai tipe turunan : word, byte, longint, shortint (kl kurang, sori)
Real : adalah tipe yang digunakan untuk semua jenis bilangan
         (desimal, pecahan, dll)
         digunakan untuk perhitungan numerik
boolean :adalah tipe yang hanya mempunyai nilai True dan False

ada coding kaya gn:
Procedure InputData(var Nama: String; var tgs, uts, uas : integer);

kenapa rata2 di penulisan coding procedure klo gw perhatiin, suka ada yg harus ditulis tipe integer lagi? kan kaya var nama di atas dah dikasihtau tipe nya string.. itu utk apa tipe integer nya? tx kak.

variabel nama diatas memang bertipe String
tetapi dibelakangnya diikuti lagi dengan variabel tgs,uts,dan uas yang bertipe integer
tanda var disitu mengindikasikan suatu tipe parameter yg bertipe input/output
jadi bukan var untuk deklarasi

ct:
Procedure CetakData(Nama:String;tgs,uts,uas : integer);

disini tidak ada var,
karena parameternya hanya bersifat parameter Input

Parameter adalah suatu variabel yang digunakan untuk melewatkan nilai/isi dari suatu variabel

[S2L]

Walah2... cape liatny pjg bgt..

[Serenity]

Ah pusink lah liat2 jawaban tugas lagi mah
mendingan kasih tau bocoran UTS nya aja pa...heheh

[S2L]

Mau u n g... kez..
wkwkwk... :p

[headscout]

             mempunyai tipe turunan : word, byte, longint, shortint (kl kurang, sori)

word, byte, longint, shortint, dan extended....

Mau nanya, kalau extended masuk ga, Pa ?

Thanks before... ^^

[Anta]

extended masuknya ke turunannya real

[headscout]

Owh... Haha... sorry saya salah...... ^^

Thanks kk Anta....

[S2L]

Yh do..
stp org pst kan mlakukan ksalahan..
pa lg g..
ga ngerti ni..

[emil_sakura]

Sekarang lagi belajar record array sama copy sih
Walaupun agak memusingkan tapi kalo kita ngerjain soal itu dengan teliti dan tenang udah gitu jangan dianggep susah pasti bisa deh ngerjainnya
Soalnya gua juga gitu dan program gua berhasil kemaren pas quiz yeah
Moga2 aja UAS dapet bagus