Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Оператор присвоювання мови FORTRAN

Реферат Оператор присвоювання мови FORTRAN





line] [ofset + +] = 2; break;

case 3: mistake [line] [ofset + +] = 3; break;

case 4: mistake [line] [ofset + +] = 4; break;

case 5: mistake [line] [ofset + +] = 5; break;

case 6: mistake [line] [ofset + +] = 6; break;

case 7: mistake [line] [ofset + +] = 7; break;

case 8: mistake [line] [ofset + +] = 8; break;

case 9: mistake [line] [ofset + +] = 9; break;

case 10: mistake [line] [ofset + +] = 10; break;

case 12: mistake [line] [ofset + +] = 12; break;

case 11: mistake [line] [ofset + +] = 11; break;

default: break;

}

}



void makefile (void)

{char * s;

int num_str = 0, oftemp, rep;

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

{printf (" n ПОМИЛКА! Фото З ТАКИМ ІМЕНЕМ НЕ ІСНУЄ! "); p> exit (-1);

}

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

{printf (" n ПОМИЛКА! Фото НЕ МОЖНА ВІДКРИТИ ДЛЯ ЗАПИСИ! "); p> 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);

fputc (' n', out);

fcloseall ();

}


// MENU

int MENU (char * s)

{int dy, n;

dy = line-1;

textbackground (WHITE);

textcolor (YELLOW);

window (1,1,80,25);

clrscr ();

gotoxy (2,1);

cprintf ("SDenis n");

gotoxy (2,2);

cputs (s);

gotoxy (2,3);

cprintf ("Використовуйте курсор вгору/вниз для вибору переглядається рядка. n ");

gotoxy (2,4);

cprintf (" - для перегляду помилок у рядку (рядок виділяється). N ");

gotoxy (2,5);

cprintf (" - вихід. n");

gotoxy (2,6);

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;

<...


Назад | сторінка 6 з 7 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Пароплавна компанія White Star Line
  • Реферат на тему: Пароплавна компанія White Star Line
  • Реферат на тему: Ukrainian break-through in the European and World strategy of individual pr ...
  • Реферат на тему: Equipment of technological acceptance line, storage and fuel delivery
  • Реферат на тему: Технологія цифрової абонентської лінії (Digital Subscribe Line, DSL)