Flop Magazin 34/Flop_Magazin_34_1995_02_Raster_cs_Side_A.atr/duha.c

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;¢}¢