Menjumlahkan Deret

Buatlah sebuah algoritma untuk menghitung jumlah deret dengan N buah suku sebagai berikut :

S = 1 - 1/2 + 1/4 - 1/6 + 1/8 - 1/10 + 1/12 - 1/14 + ...

Analisis :

1. Ketika di jalankan maka akan ada permintaan untuk memasukkan jumlah suku N.

2. Bila di perhatikan maka tanda berselang-seling positif dan negatif;pada posisi
ganji maka tandanya positif dan pada posisi genap maka tandanya negatif.

3. Nilai yang di jumlah kan adalah kelipatan dari (1/2) yang di kalikan sesuai
dengan posisinya,mula-mula 1/2 kemudian 1/(2*2), 1/(2*3),...


Algoritma Jumlah_Deret
(menjumlahkan deret bersuku N)

Deklarasi
Integer N,cacah k;
real S;

Deskripsi
write (" Berapa banyak suku ? ");
read (N);

S <- 1;
cacah <-1;
k <- 0;

while ( cacah < = N ) do
cacah <- cacah + 1;
k <- k + 2;
if (cacah % 2 = 0 )
then S <- S - 1/k;
else S <- S + 1/k;
endif.
endwhile.

write ( "Jumlah deret = ",S );





Algoritma Jumlah_Deret_V2
(cara lain untuk menghitung jumlah deret)

Deklarasi
Integer cacah,N,k,tanda;
real S;

Deskripsi
write (" Berapa banyak suku ? ");
read (N);

S <- 1;
cacah <-1;
k <- 0;
tanda <- +1;

while ( cacah < = N ) do
k <- k + 2;
cacah <- cacah + 1;
tanda <- (-1)* tanda;
S <- S + tanda * (1/k);
endwhile.

write ( "Jumlah deret = ",S );

Read More

pemrosesan text

Teks (text) memiliki definisi sebagai deretan karakter yang bisa direkam ke dalam suatu file/berkas/arsip.
• Suatu teks bisa terdiri atas beberapa kata (words).
• Setiap kata terpisah dari kata lainnya, dipisahkan oleh paling sedikit satu spasi.
• Suatu teks dapat terdiri atas beberapa baris (line) yang dibentuk oleh beberapa kata.
• Setiap baris diakhiri oleh marka end-of-file (BOF) dan diakhiri dengan marka end-of-file (EOF).

Deklarasi suatu teks didahului dengan tipe-data text.
Beberapa instruksi yang berkaitan dengan teks adalah berikut :
• Mengembalikan penunjuk teks ke posisi awal (BOF) dari file: reset (F).
• Membuka suatu file teks yang ada di storage (disk): assign ( F, nama_file ).
• Membaca satu karakter dari file teks: read ( F, char ).
• Merekam satu karakter ke file teks: write (F, char ).
• Menutup file teks: close (F).


contoh: Menghitung jumlah karakter (tidak termasuk marka EOL, BOF, dan EOF) yang ada dalam suatu file teks bernama mytext.txt.

Algoritma Hit_karakter
{menghitung jumlah karakter yang ada dalam suatu file teks}
Deklarasi
text F;
char k;
integer jkar;
Deskripsi
assign (F,”mytext.txt”);
{kembalikan ke awal file, baca BOF}
read ( F,k );
if ( k!=BOF)
then reset (F);
read (F,k);
endif.

{baca karakter hingga akhir file}
read (F,k);
jkar  0;
while (k != EOF) do
{hindari tanda EOL}
if (k!=EOL)
then jkar  jkar + 1;
endif.
read (F,k);
endwhile.

write (“jumlah katakter (termsuk spasi) = “,jkar);

Read More