240-1674 (Оператор присваивания языка FORTRAN), страница 2
Описание файла
Документ из архива "Оператор присваивания языка FORTRAN", который расположен в категории "". Всё это находится в предмете "информатика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "240-1674"
Текст 2 страницы из документа "240-1674"
textbackground(WHITE);
textcolor(RED);
cprintf("******************** ОШИБКИ В СТРОКАХ *************************\n");
textbackground(WHITE);
textcolor(YELLOW);
gotoxy(2,19);
cprintf("******************* СТРОКИ ВАШЕГО ФАЙЛА ****************************\n");
window(X1,Y1,X2,Y2);
textcolor(BLACK);
viewwin(0,YWINDOW);
n = 0;
int Y=1;
while(1)
{char c;
gotoxy(1,Y);
textbackground(GREEN);
cprintf("%s",cordinat[n]);
textbackground(WHITE);
c=(c=getch())==0?c=getch():c;
gotoxy(1,Y);
cprintf("%s",cordinat[n]);
switch (c)
{case EXIT:
return(-1);
case '\r': /*enter*/
window(2,7,80,18);
clrscr();
putmistake(n);
window(X1,Y1,X2,Y2);
break;
case UP:
if (Y==1) viewwin(n>0?n-1:n,YWINDOW);
else Y--;
if(n>0) n--;
break;
case DOWN:
if(Y==YWINDOW) viewwin((n==dy?n:n+1)-YWINDOW+1,YWINDOW);
else Y++;
if(n+1==dy)
{n=0;
Y=1;
viewwin(n,YWINDOW);
}
else n++;
break;
}
}
}
void viewwin(int num,int numline)
{clrscr();
for(int a=0;a {gotoxy(1,a+1); cprintf("%s",cordinat[num++]); } } void putmistake(int n) {int offtemp,x=1,y=1; if((offtemp=mistake[n][0])==END) {cprintf("%s",type_mis[0]); } else {for(int k=0;mistake[n][k]!=END;k++) {offtemp=mistake[n][k]; if(offtemp==13) cprintf("%s\n",type_mis[offtemp]); else {cprintf("%d.%s\n",k+1,type_mis[offtemp]); x++; y++; gotoxy(x,y); } } } } Курс лекций по системному программированию. Герберт Шилдт «C для профессиональных программистов». В.Н. Лебедев «Введение в системы программирования» Литература.