home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Flop Magazin 34
/
Flop_Magazin_34_1995_02_Raster_cs_Side_A.atr
/
duha.c
< prev
next >
Wrap
Text File
|
2023-02-26
|
913b
|
1 lines
/* analyza stavu pocasi */¢/* podle knihy "Od Basicu k Cecku" */¢¢main()¢{¢ do {¢ printf("\n\n ##### Analyza pocasi #####\n");¢ duha();¢ printf("\n\npro ukonceni stiskni Q (jen velke !)\n");¢ } while(getchar()!='Q');¢}¢¢duha()¢{¢ int pr,sv,du;¢ char p,s,d,v[100];¢¢ printf("\nSviti slunce ? (a/n) :");¢ p = getchar();¢ getchar();¢ p=(p>='A' && p<='Z') ? p+('a'-'A'):p;¢¢ printf("\nPada voda ? (a/n) :");¢ gets(v);¢ s=v[0];¢ s=(s>='A' && s<='Z') ? s+('a'-'A'):s;¢¢ printf("\nJe videt duha ? (a/n) :");¢ gets(v);¢ d=v[0];¢ d=(d>='A' && d<='Z') ? d+('a'-'A'):d;¢¢ pr = p=='a';¢ du = d=='a';¢ sv = s=='a';¢¢ if (pr&&sv)¢ if (du)¢ printf("\n\n Duha je moc hezka\n");¢ else¢ printf("\n\n Podivej se poradne, nekde musi\n byt duha !\n");¢ else¢ if (du)¢ printf("\n\n To neni duha, ale neco jineho !\n");¢ else¢ printf("\n\n Je normalni pocasi.\n");¢¢ return;¢}¢