TANTANGAN PAK TENGENG

[Anta]

Gara gara pak Tengeng ngintipin tetangganya yang lagi mandi, pak Tengeng dihukum ama istrinya untuk menghitung huruf vokal yang ada di satu kalimat...
pak Tengeng yang baru-baru bisa bahasa pascal pengen coba coba gimana yah kalo misalnya diterapkan bahasa pascal... mohon bantuannya donk!!!....

INPUT : SAYA ABIS NGINTIPIN TETANGGA SAYA YANG LAGI MANDI
OUTPUT: A = 10
             I = 6
             U = 0
             E = 1
             O = 0

HINT: untuk mengetahui Panjang Suatu string gunakan Fungsi Length(VarString)
        untuk membaca suatu karakter pada string gunakan VarString[indexkarakter]

LEVEL : PEMULA

[Dhanny]

cuma vokalnya aja?
enak jg nih

hehe

napa ga sekalian ama konsonannya?
kayanya lebih seru tuh
hehhe

[bobby hr'w'n]

  ngomong2 soal pak bolot,saya juga paling bolot neh soal nangkep maksud dari sebuah soal..hehehe...maksudnya soal tantangan ini gimana??apa si program harus ngitung huruf vokalnya otomatis atau kita input langsung kaya gini...

Code: [Select]

program pngintip;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  begin
writeln('SAYA ABIS NGINTIPIN TETANGGA SAYA YANG LAGI MANDI');
writeln('A = 10');
writeln('I = 6');
writeln('U = 0');
writeln('E = 1');
writeln('O = 0');
  readln;
end.


kalo salah sory neh.. peace..

[Anta]

yah masukin kalimat yang mau diitung vokalnya baru keluarnya berapa huruf vokalnya...
bweeeh kalo ujian u masukin program yang dibawah, dapet brapa tuh...

[Dhanny]

karena fungsi string
lon g ajarin
jd g kasih sedikit petunjuk nih:

suatu tipe data string
dapat diasosiasikan sbg sebuah array dari suatu tipe data char

bweeeh kalo ujian u masukin program yang dibawah, dapet brapa tuh...

dapet 30 (maks)
tgt suasana hati
hehe

[awan]

nih hasil kerjaan saya...

Code: [Select]

program PTantanganTengeng;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
kalimat : string;
p,i,hasil : integer;
a : char;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  hasil := 0;
  writeln;
  writeln('   ---------------------------------');
  writeln('   |Program Hitung Vokal Pa Tengeng|');
  writeln('   ---------------------------------');
  writeln(' A = 10 | I = 6 | U = 0 | E = 1 | O = 0');
  writeln;
  writeln(' Masukkan Kalimat yang Ingin Diolah');
  write(' ');readln(kalimat);

  p := length(kalimat);

  for i := 1 to p do
  begin
    a := kalimat[i];
    case (upcase(a)) of
    'A' : hasil := hasil + 10;
    'I' : hasil := hasil + 6;
    'E' : hasil := hasil + 1;
    end;
  end;

  writeln;
  writeln(' Hasil Hitung Vokal = ',hasil);readln;

end.

[Dhanny]

nih hasil kerjaan saya...

Code: [Select]

program PTantanganTengeng;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
kalimat : string;
p,i,hasil : integer;
a : char;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  hasil := 0;
  writeln;
  writeln('   ---------------------------------');
  writeln('   |Program Hitung Vokal Pa Tengeng|');
  writeln('   ---------------------------------');
  writeln(' A = 10 | I = 6 | U = 0 | E = 1 | O = 0');    // <-- ini buat apa?
  writeln;
  writeln(' Masukkan Kalimat yang Ingin Diolah');
  write(' ');   //<-- ini buat apa?
  readln(kalimat);

  p := length(kalimat);

  for i := 1 to p do
  begin
    a := kalimat[i];
    case (upcase(a)) of
    'A' : hasil := hasil + 10;   // <-- jelas ngaco, nambahnya tuh nambah + 1 doang donk
    'I' : hasil := hasil + 6;     //<-- sama buat yg laennya jg
    'E' : hasil := hasil + 1;    // <-- emang huruf vokal tuh cuma ada 3 yah?
    end;
  end;

  writeln;
  writeln(' Hasil Hitung Vokal = ',hasil);readln;        //<-- hasilnya pasti ngaco

end.

tuh cb bc comment dari g
nilai : 50

[bobby hr'w'n]

ikutan juga yah, tinggal nurutin... sory2 cuma ngopi... ntar di debug lagi

Code: [Select]

program pak_tenggeng;

{$APPTYPE CONSOLE}

uses
  SysUtils,console;

var
kalimat : string;
p,i,hasil : integer;
a : char;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  textcolor(10);
  hasil := 0;
  writeln('   ---------------------------------');
  writeln('   |Program Hitung Vokal Pak Tengeng|');
  writeln('   ---------------------------------');
  writeln;
  write('   Masukkan Kalimat = '); readln(kalimat);


  p := length(kalimat);

  for i := 1 to p do
  begin
    a := kalimat[i];
    case (upcase(a)) of
    'A' : hasil := hasil + 1;
    'I' : hasil := hasil + 1;
    'U' : hasil := hasil + 1;
    'E' : hasil := hasil + 1;
    'O' : hasil := hasil + 1;
    end;
  end;

  writeln;
  writeln(' Hasil  = ',hasil);readln;
en

[Garfield]

hasilnya jangan disatuin lah, jelas2 kan ada 5 nilai buat jumlah tiap huruf, mana bisa ditaro semua di hasil......

[awan]

wokz...salah kira...gw kirain teh ngitung vokal jadi angka...
huruf
A artinya 10 poin...
I artinya 6 poin...
U artinya 0 poin...
E artinya 1 poin...
O artinya 0 poin...
nti dapet kan point total...wah wah...salah konsep soal...wekekekekke...maklum ngerjainnya dah malem...^____^...heheheh....

@ pa dhanny
itu mah penghias pa...saya paling suka bikin program saya kasi enter dulu 1x n saya kasi spasi tiap nulis...tujuan biar rapi kalo kita buka exenya...ga di tepi program banget...^___^...kalo itu yang tambahan penghias ajah...^____^...

maap salah concept...wekekekekekekkekekekekek...kirain kayak yg sistem ramalan gituh...nti dicek hasil total angka ke list arti ramal...wekekekekekekekke

[awan]

nih baru update

Code: [Select]

program PTantanganTengeng;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
kalimat : string;
p,i,hasila,hasili,hasilu,hasile,hasilo : integer;
a : char;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln;
  writeln('   ---------------------------------');
  writeln('   |Program Hitung Vokal Pa Tengeng|');
  writeln('   ---------------------------------');
  writeln;
  writeln(' Masukkan Kalimat yang Ingin Diolah');
  writeln;
  write(' ');readln(kalimat);

  p := length(kalimat);

  for i := 1 to p do
  begin
    a := kalimat[i];
    case (upcase(a)) of
    'A' : hasila := hasila + 1;
    'I' : hasili := hasili + 1;
    'U' : hasilu := hasilu + 1;
    'E' : hasile := hasile + 1;
    'O' : hasilo := hasilo + 1;
    end;
  end;

  writeln;
  writeln(' Hasil Hitung Vokal');
  writeln(' A = ',hasila);
  writeln(' I = ',hasili);
  writeln(' U = ',hasilu);
  writeln(' E = ',hasile);
  writeln(' O = ',hasilo);readln;
end.



[Anta]

yah, kira kira masalah tantangan pak tengeng kejawab lah, ntar kalo lagi nganggur coba aq cari versi optimalnya.

[awan]

yah, kira kira masalah tantangan pak tengeng kejawab lah, ntar kalo lagi nganggur coba aq cari versi optimalnya.

thengkiu thengkiu...berhasil kan...masih tingkat pemula sih lepel soalnya...hehehe...saya juga masih pemula...jadi cocok dah...^___^...ditunggu soal soal versi lanjutan...hehe...dah menuju algo 2 nih...tadi uas bikin logika tamagochi...aaaaaaaaaaaaa...^___^...

prog yg gw bikin kalo dinilai dapet brp? thx...

[Garfield]

ni algonya, tp bkn buat vokal aja, tp semua huruf diitung
http://www.sema-likmi.com/forum/index.php?topic=923.0