Курсовая работа: Разработка приложений на С Pascal Delphi

SrPr sp;

Trapeciy tr;

FILE *in;

FILE *out;

int i,j,menu,menu1,w;

vop='n';

in=fopen("in.txt","rt");

out=fopen("out.txt","w");

do

{clrscr();

/*zapros, schitat' li dannye iz faila*/

printf("\n vyberite sposob vvoda dannyh: 1 - ruchnoi, 2 - iz faila ");

scanf("%d", &w);

switch(w)

{case 1:

{/*vvod dannyh v ruchuju*/

printf("\n Vvedite nijniy predel a= ");

scanf("%f", &a);

printf("\n Vvedite verhniy predel b= ");

scanf("%f", &b);

printf("\n Vvedite tocnost ");

scanf("%f", &eps);

printf("\n Vvedite kolichestvo otrezkov n= ");

scanf("%d", &n);

break;}

case 2:

{/*schityvanie dannyh iz faila*/

fscanf(in, "%f",&a);

printf("\n Nijniy predel a=%f", a);