home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Flop Magazin 32
/
Flop_Magazin_32_1994_06_Raster_cs_Side_A.atr
/
extremy.c
< prev
next >
Wrap
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);¢$)¢