Flop Magazin 32/Flop_Magazin_32_1994_06_Raster_cs_Side_A.atr/extremy.c

Text File | 2023-02-26 | 956b | 1 lines

/*  FLOP c.32 */¢¢main()¢$(¢ char c;¢ printf("zjisteni extremnich hodnot");¢ printf("\n   s = zkoumat soubor\n");¢ printf("\n   q = navrat\n");¢ for(;;)¢ $(¢  printf("\n    zvol-> ");¢  c=tolower(getchar());¢  while(getchar()!='\n');¢  switch(c)¢  $(¢   case 's':¢    extrem();¢    break;¢   case 'q':¢    return;¢   default:¢    printf("'%c' neni platna volba.\n",c);¢    printf("zkusime znovu !\n");¢    break;¢  $)¢ $)¢$)¢¢extrem()¢$(¢ char fname[20];¢ int i,a,b,c;¢ for(i=0;!i;)¢ $(¢  printf("zadej jmeno pole ");¢  gets(fname);¢  normalize(fname,"*");¢  printf("\n zvoleno: %s\n",fname);¢  if((i=copen(fname,'r'))<0)¢   $(printf("I/O error %3d on %s\n",-i,fname);¢     i=0;¢   $)¢  else break;¢ $)¢ /* vlastni kontrola */¢ if((a=cgetc(i))>=0)¢  b=a;¢ else¢  printf(" soubor je prazdny");¢ while((c=cgetc(i))>=0)¢ $(if(a>c)¢    a=c;¢   if(b<c)¢    b=c;¢ $)¢ cclose(i);¢ printf("\n   nejmensi cislo: %d\n",a);¢ printf("\n   nejvetsi cislo: %d\n",b);¢$)¢