Реферат: Оператор присваивания языка FORTRAN

if((out=fopen("errors.txt","w"))==NULL)

{printf("\n ОШИБКА!!! ФАЙЛ С ТАКИМ ИМЕНЕМ НЕ СУЩЕСТВУЕТ!!!");

exit(-1);

}

if((in=fopen(filename,"r"))==NULL)

{printf("\n ОШИБКА!!! ФАЙЛ НЕЛЬЗЯ ОТКРЫТЬ ДЛЯ ЗАПИСИ!!!");

exit(-1);

}

while(num_str++,fgets(s,80,in)!=NULL)

{fputs("\\---------------------------------------------------------\\",out);

fputc('\n',out);

fputs(s,out);

fputc('\n',out);

rep=strlen(s);

s[rep-1]='\0';

strcpy(cordinat[num_str],s);

if((oftemp=mistake[num_str][0])==END)

{fputs(type_mis[0],out);

fputc('\n',out);

}

else

{for(int k=0;mistake[num_str][k]!=END;k++)

{oftemp=mistake[num_str][k];

fputs(type_mis[oftemp],out);

fputc('\n',out);

}

}

}

fputs("\\---------------------------------------------------------\\",out);