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

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





p> 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);

}

}

}

}



Література.

1. Курс лекцій з системного програмування. p> 2. Герберт Шилдт В«C для професійних програмістів В».

3. В.Н. Лебедєв В«Введення в системи програмування В»



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





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

  • Реферат на тему: CASE-технології в моделюванні даних інформаційної системи Call-центру
  • Реферат на тему: Проектування інформаційної системи &Лізингова компанія& з використанням cas ...
  • Реферат на тему: Проектування інформаційної системи з застосуванням case-технології на тему ...
  • Реферат на тему: Arguing your case (10 кл)
  • Реферат на тему: Arguing your case (10 кл)