void BacaDict(Tree *T)
{
char s[20];
/* ALGORITMA */
STARTKATA("Dictionary.txt");
CreateTree(T);
SetRoot(T,'\0', false);
while(!EndKata)
{
KataToString(s);
AddWord(T, s);
ADVKATA();
}
}
int main()
{
char pita[512];
int jkata=0;
printf("masukkan kalimat pada kata\n");
scanf("%[^\n]s", &pita);
STARTKATA(pita);
while(EOPKATA(pita)==0){
jkata+=1;
INCKATA(pita);
}
if (GETPANJANGKATA()>0)
{
jkata+=1;
}
printf("%d\n", jkata);
return 0;
}
/* *** Mesin yang digunakan *** */
#include "mesinkata1.h"
#include <stdio.h>
Kata KataWHILE; /* Kata yang menyimpan WHILE */
int NWHILE; /* banyaknya kata WHILE */
int main(){
/*ALGORITMA*/
/* Inisialisasi KataWHILE */
KataWHILE.TabKata[1] = 'W';
KataWHILE.TabKata[2] = 'H';
KataWHILE.TabKata[3] = 'I';
KataWHILE.TabKata[4] = 'L';
KataWHILE.TabKata[5] = 'E';
KataWHILE.Length = 5;
NWHILE = 0;
STARTKATA("pitakar.txt");
while (!EndKata){
if (IsKataSama(KataWHILE, CKata))
NWHILE = NWHILE + 1;
ADVKATA();
}
/* CKata.Length = 0: CC sampai pada MARK */
printf ("%d\n",NWHILE);
return 0;
}
void ReadPascal(char *filename, ARRAYKATA *arrayKata)
{
arrayKata->neff=0;
ARRAYKATA tempArr;
int i;
boolean bisaCopy = true;
// f = fopen(filename, "r");
STARTKATA(filename);
while (!EndKata)
{
SplitKata(CKata,&tempArr);
for (i=0;i<tempArr.neff;i++)
{
if (tempArr.kata[i].TabKata[1] == '{')
bisaCopy = false;
else if (tempArr.kata[i].TabKata[1] == '}' && !bisaCopy)
{
bisaCopy = true;
i++;
}
if (bisaCopy && i<tempArr.neff)
{
arrayKata->neff++;
CopyKata(tempArr.kata[i],&arrayKata->kata[arrayKata->neff]);
}
}
ADVKATA();
}
for (i=1;i<=arrayKata->neff;i++)
{
printKata(arrayKata->kata[i]);
}
}
int main()
{
/*kamus*/
int i,j;
int d = 0; // hitungan diskon 10%
int rg = 0; // jumlah kata regular
int pj = 0; // jumlah kata panjang
float by;
/*algoritma*/
printf("isi telegram :");
STARTKATA();
while (!EndKata) {
d += 1;
if(CKata.Length < 10) rg += 1;
else pj += 1;
if (CKata.Length==5 && (CKata.TabKata[1] == 'T') && (CKata.TabKata[2] == 'I') && (CKata.TabKata[3] == 'T') && (CKata.TabKata[4] == 'I') && (CKata.TabKata[5] == 'K')) {
rg -= 1;
printf(".");
}
else if (CKata.Length==4 && (CKata.TabKata[1] == 'K') && (CKata.TabKata[2] == 'O') && (CKata.TabKata[3] == 'M') && (CKata.TabKata[4] == 'A')) {
rg -= 1;
printf(",");
}
else {
printf(" ");
for (i=1;i<=CKata.Length;i++) printf("%c",CKata.TabKata[i]);
}
ADVKATA();
}
printf(".\nJumlah kata regular : %d\n",rg);
printf("Jumlah kata panjang : %d\n",pj);
by = rg * 1000 + pj * 1500 ;
if (d > 10) by *= 0.9;
printf("Biaya : %.0f\n",by);
return 0;
}
int main()
{
LoadDict(&M);
system("clear");
printf("%s=====================================================================\n", cyan);
printf(" _ ______ ____ ____ ___ __ __________ ________ ____ \n");
printf("| | / / __ \\/ __ \\/ __ \\/ | / |/ / ____/ | / /_ __/ / __ \\ \n");
printf("| | /| / / / / / /_/ / / / / /| | / /|_/ / __/ / |/ / / / / / / /\n");
printf("| |/ |/ / /_/ / _ _ / /_/ / ___ |/ / / / /___/ /| / / / / /_/ / \n");
printf("|__/|__/\\____/_/ |_/_____/_/ |_/_/ /_/_____/_/ |_/ /_/ \\____/ \n\n");
printf("=====================================================================\n\n\n");
printf(" %sPress any key to continue%s\n",magenta,normal);
getch();
while(opt1 != 5) //OPT1 = 5 adalah QUIT
{
MainMenu(&opt1); // MENAMPILKAN MAIN MENU
switch(opt1)
{
case 1 : // REGISTER
printf("%sEnter user name : ", cyan);
do
{
found = false; // INISIALISASI YANG MENANDAKAN USER BELUM DITEMUKAN DI FILE EKSTERNAL
scanf("%s", username.TabKata);
username.Length = strlen(username.TabKata);
if(strlen(username.TabKata) >= 20 || !(IsAlNumS(username))) // MENGECEK APAKAH LEBIH DARI 20 ATAU ALFANUMERIK
printf("Username must be alphanumeric / less or equal to 20 characters\n");
else
{
*x = "scores/List Users & Highscores 2.txt";
STARTKATA();
while(!EndKata && !found)
CheckUser(username,&id,&found);
if(found)
printf("Sorry, that username already exists\n");
}
}while((strlen(username.TabKata) >= 20 || !(IsAlNumS(username))) || found);
SalinFile(LU,username);
printf("Congratulations! %s has been successfully registered\n",username.TabKata);
printf("\n");
printf("%sPress any key to continue%s\n", magenta,cyan);
dummygetch = getch();
dummygetch = getch();
break;
case 2 : //LOGIN
CreateList(&LU);
printf("\n");
*x = "scores/List Users & Highscores 2.txt";
STARTKATA();
while(!(EndKata))
InitUser(&LU,&id); // MEMASUKKAN DATA FILE EKSTERNAL KE DALAM LIST
InversListU(&LU);
ListUsersLengkap(LU); // MENAMPILKAN LIST USER
found1 = false; // INISIALISASI YANG MENANDAKAN USERNAME TIDAK DITEMUKAN
while(!found1)
{
printf("=====================================================================\n");
printf("Enter username : "******"%s",username1.TabKata);
username1.Length = strlen(username1.TabKata);
STARTKATA();
while(!EndKata && !found1)
CheckUser(username1,&id,&found1);
if(!found1)
printf("%s not found. Try again\n",username1.TabKata);
}
SelectB = true; // INISIALISASI AGAR SETELAH MEMILIH BOARD, MELIHAT SCORE TIDAK KELUAR KE MAIN MENU, MELAINKAN PREP MENU
selectT = false; // INISIALISASI YANG MENANDAKAN USER BELUM PILIH BOARD
while(SelectB == true)
{
if(selectT == false)
kode = 1;
PrepMenu(&opt2, username1); // PREPARATION MENU
switch(opt2)
{
case 1 : // PLAY GAME
if(selectT == false)
{
kode = 1;
*y = "boards/1.txt";
}
baris = 1;
kolom = 1;
T = false;
used = false;
score = 0;
CreateEmptyQ(&QFinish);
CreateEmpty(&S);
CreateListSU(&LSG);
CreateListSU(&LSGTemp);
ReadSuggestion(&LSG, kode);
strcpy(tempsugg, username1.TabKata);
PSU = FirstSU(LSG);
usersuggfound = false;
while (PSU != Nil) {
if (strcmp(InfoSU(PSU), tempsugg) == 0) {
usersuggfound = true;
break;
}
else {
PSU = NextSU(PSU);
}
}
if (!usersuggfound) {
InsVSUFirst(&LSG, tempsugg);
PSU = FirstSU(LSG);
}
InsVSUFirst(&LSGTemp, tempsugg);
PSE = FirstSE(PSU);
if (PSE != Nil)
strcpy(tempsugg, InfoSE(PSE));
else {
tempsugg[0] = ' ';
tempsugg[1] = '\0';
}
CreateListSet(&LS);
CreateBoard(&B);
AmbilBoard(&B);
InitKursor(&B);
InitSelect(&B, &S);
system("clear");
printf("Score = %d\n\n", score);
printf("Suggestion = %s\n\n", InfoSE(PSE));
TulisBoard(B);
printf("\n\n");
dummygetch = getch();
input = getch();
printf("\n");
while (input != 'm')
{
system("clear");
ProsesKursor(&B, &baris, &kolom, &T, input, &error);
Select(&B, baris, kolom, T, &S, &score, &LS, &QFinish, &used, &LSG, &LSGTemp, &M, PSU);
printf("Score = %d\n\n", score);
PSE = FirstSE(PSU);
printf("Suggestion = %s\n\n", InfoSE(PSE));
TulisBoard(B);
printf("\n");
if (used)
printf("Invalid Word\n");
else
printf("\n");
if (error)
printf("error\n");
else
printf("\n");
input = getch();
printf("\n");
error = false;
used = false;
}
time(&rawtime); //INISIALISASI WAKTU
t = localtime(&rawtime);
D.YY = (*t).tm_year+1900;
D.MM = (*t).tm_mon+1;
D.DD = (*t).tm_mday;
J.HH = (*t).tm_hour;
J.MM = (*t).tm_min;
J.SS = (*t).tm_sec;
InsSortScoreU (&LU,D,J,score,username1); //INSERT SCORE KE LIST SCORE
SalinInto(LU, kode); // MENYALIN KE FILE EKSTERNAL
SelectB = false;
system("clear");
addressQ PQ;
PQ = Head(QFinish);
while (PQ != Nil)
{
PrintSet(InfoQ(PQ));
printf("\n");
PQ = NextQ(PQ);
}
printf("Total Score = %d\n", score);
PSU = FirstSU(LSG);
PSE = FirstSE(PSU);
PSUT = FirstSU(LSGTemp);
while (PSUT != Nil) {
PSET = FirstSE(PSUT);
while (PSET != Nil) {
InsVSEFirst(&LSG, PSU, InfoSE(PSET));
PSET = NextSE(PSET);
}
PSUT = NextSU(PSUT);
}
WriteSuggestion(LSG, kode);
printf("Press any key to continue\n");
dummygetch = getch();
getch();
break;
case 2 : //SELECT BOARD
PilihBoard(&selectT, &kode);
CreateList(&LU);
STARTKATA();
while(!(EndKata))
InitUser(&LU,&id); // MEMASUKKAN DATA FILE EKSTERNAL KE DALAM LIST
InversListU(&LU);
SelectB = true;
break;
case 3 : //VIEW MY HIGH SCORES
ViewMyHighScores(LU,username1);
printf("%sPress any key to continue%s\n", magenta,cyan);
dummygetch = getch();
dummygetch = getch();
SelectB = true;
break;
case 4 : //VIEW ALL HIGH SCORES
ViewAllHighScores(LU);
printf("%sPress any key to continue%s\n", magenta,cyan);
dummygetch = getch();
dummygetch = getch();
SelectB = true;
break;
case 5 : //VIEW BOARD STATISTICS
CreateEmptyQS(&QS);
countuser = 0;
countscore = 0;
sumscore = 0;
PU = FirstU(LU);
while (PU != Nil)
{
PS = FirstS(PU);
if((InfoD(PS)).YY != 0)
{
countuser += 1;
}
while(PS != Nil)
{
if((InfoD(PS)).YY != 0)
{
countscore += 1;
sumscore += InfoS(PS);
}
PS = NextS(PS);
}
PU = NextU(PU);
}
//CreateList(&LU);
averagescore = sumscore/countscore;
printf("%.0f user/s have played in board %d\n",countuser,kode);
if(countscore == 0)
averagescore = 0;
printf("The average score in board %d is %.2f\n",kode,averagescore);
AddQS(&QS,kode,averagescore);
for(i=0; i<=9;i++)
{
switch(i)
{
case 0 : *x = "scores/List Users & Highscores 1.txt"; break;
case 1 : *x = "scores/List Users & Highscores 2.txt"; break;
case 2 : *x = "scores/List Users & Highscores 3.txt"; break;
case 3 : *x = "scores/List Users & Highscores 4.txt"; break;
case 4 : *x = "scores/List Users & Highscores 5.txt"; break;
case 5 : *x = "scores/List Users & Highscores 6.txt"; break;
case 6 : *x = "scores/List Users & Highscores 7.txt"; break;
case 7 : *x = "scores/List Users & Highscores 8.txt"; break;
case 8 : *x = "scores/List Users & Highscores 9.txt"; break;
case 9 : *x = "scores/List Users & Highscores 10.txt"; break;
}
if(i != kode)
{
CreateList(&LP);
STARTKATA();
while(!EndKata)
InitUser(&LP,&id);
InversListU(&LP);
sumscore = 0;
countscore = 0;
PX = FirstU(LP);
while (PX != Nil)
{
PZ = FirstS(PX);
while(PZ != Nil)
{
if((InfoD(PZ)).YY != 0)
{
countscore += 1;
sumscore += InfoS(PZ);
}
PZ = NextS(PZ);
}
PX = NextU(PX);
}
if (countscore == 0)
averagescore = 0;
else
averagescore = sumscore/countscore;
AddQS(&QS, i, averagescore);
}
}
PX = FirstU(LP);
DealokasiU(&PX);
PZ = FirstS(PX);
DealokasiS(&PZ);
P = Head(QS);
printf("Difficulty Level of Boards : \n");
for(i=1;i<=10;i++)
{
printf("%d. Board no.%d with average user scores of %.2f\n",i,InfoQ(P),Prio(P));
P = NextQ(P);
if (P == Nil)
{
break;
}
}
printf("%sPress any key to continue%s\n", magenta,cyan);
dummygetch = getch();
dummygetch = getch();
SelectB = true;
break;
case 6 : // LOG OUT
SelectB = false;
break;
}
if(SelectB == false)
break;
}
break;
case 3 : // HOW TO PLAY
HowToPlay();
break;
case 4 : // ABOUT
About();
break;
}
}
printf("%s\n", normal); //MENGGANTI WARNA TEXT TERMINAL KE AWAL
return 0;
}
