n="justify"> Програмування на мові високого рівня СІ. Частина II: практикум/Упоряд. О.В. Шестопал, О.В. Сташкова. - Тирасполь, 2010. - 83 с.
Додаток
Лістинг програми
Файл МENU.CPP
# include
# include
# include
# include
# include
# include "SORTI.CPP"
# include "FILE.CPP" Zadaniemassiva (int midx, int midy, int & metod, long int & razmer, int & p) {i = 0; (0,1); (0 , 0, midx * 2, midy/2 +40); (midx/25, midy/5, "Vvedite razmer massiva:"); (midx/25, midy/5-20, "Massiv ne bolee 24500 elementov! "); symbol [6], m [2] = {'', ' 0'}; ((i <5) && ((symbol [i]! = 13) | | (i == 0))) {
symbol [i] = getch ();
if ((symbol [0]! = '0 ') && (symbol [i]> = '0') && (symbol [i] <= ' 9 ')) {
m [0] = symbol [i];
i + +;
outtextxy (midx/25 +190 + i * 8, midy/5, m);
}
else if ((symbol [i] == 8) && (i! = 0)) {
setfillstyle (0,2);
bar (midx/25 +190 + i * 8, midy/5 +10, midx/25 +190 + i * 12 +50, midy/5-10);
i -;
}
} [i] = ' 0'; (atol (symbol)> 24500) return midy/5 +20, "Tip zapolneni9 massiva: Random Po Vozrastaniu Po ​​ubivaniju"); x; = 1; (x! = 13) {= getch ();
if (x == 77) {
setfillstyle (0,1);
bar (midx/25 +26 * 7, midy/5 +15, midx/25 +1000, midy/5 +30);
if (metod == 3) metod = 0;
metod + +;
setfillstyle (1,2);
bar (midx/25 +26 * 7 + (metod-1) * 16 * 7, midy/5 +15, midx/25 +26 * 7 + metod * 16 * 7, midy/ 5 +30);
outtextxy (midx/25, midy/5 +20, "Tip zapolneni9 massiva: Random Po Vozrastaniu Po ​​ubivaniju");
if (metod == 3) metod = 0;
}
if (x == 75) {
setfillstyle (0,1);
bar (midx/25 +26 * 7, midy/5 +15, midx/25 +1000, midy/5 +30);
if (metod == 0) metod = 3;
metod -;
if (metod == 0) metod = 3;
setfillstyle (1,2);
bar (midx/25 +26 * 7 + (metod-1) * 16 * 7, midy/5 +15, midx/25 +26 * 7 + metod * 16 * 7, midy/ 5 +30);
outtextxy (midx/25, midy/5 +20, "Tip zapolneni9 massiva: Random Po Vozrastaniu Po ​​ubivaniju");