Лабораторный практикум по информатике. Гурьяшова Р.Н - 74 стр.

UptoLike

74
// Вывод результатов
printf(" \n \t R e s u l t \n ");
printf(" Tankep Month Percent \n");
printf(" %s %s %5.0f \n ", tn[k],mc[l],amax);
printf(" K = %d L= %d AMAX =%.0f ",k+1,l+1,amax);
getch();
return;
}
6. Макет печати (для варианта 1)
Для сравнения приведён макет печати для варианта без назва-
ний судов и месяцев. Программу составить самостоятельно.
По C-программе
МАТРИЦА
102 99
108 103
98 100 90 93
101 103 95 105
100 102 99 104
97 106 107 98
Результат
K = 1 L = 3
AMAX = 108
Результаты ручного и машинного расчётов совпадают.
7. Листинг Basic-программы
Программный код Пояснения
'
Анализ эффективности работы флота
CLS
DIM
A(5, 4), MC$(4), TN$(5)
DATA
"МАЙ ", " ИЮНЬ ", "ИЮЛЬ", " АВГУСТ "
DATA
"Tankep-1 ", "Tankep-2","Tankep-3 "
DATA
"Tankep-4 ","Tankep-5 "
N = 5 : M = 4
DATA
102, 99, 108, 103
DATA
98, 100, 90, 93
DATA
101, 103, 95, 105
DATA
100, 102, 99, 104
DATA
97, 106, 107, 98
PRINT
"Tankep"; SPC(7);
Задание
месяцев и
судов
Задание
элементов
матрицы
// Вывод результатов
 printf(" \n \t R e s u l t \n ");
 printf(" Tankep Month Percent \n");
  printf(" %s %s %5.0f \n ", tn[k],mc[l],amax);
 printf(" K = %d L= %d AMAX =%.0f ",k+1,l+1,amax);
 getch();
 return;
}
              6. Макет печати (для варианта 1)
   Для сравнения приведён макет печати для варианта без назва-
ний судов и месяцев. Программу составить самостоятельно.
          По C-программе
                                              МАТРИЦА
                                     102      99   108    103
                                      98    100     90     93
                                     101    103     95    105
                                     100    102     99    104
                                      97    106    107     98
                                             Результат
                                           K = 1 L = 3
                                            AMAX = 108

   Результаты ручного и машинного расчётов совпадают.
                7. Листинг Basic-программы
                  Программный код                   Пояснения
' Анализ эффективности работы флота
CLS
DIM A(5, 4), MC$(4), TN$(5)
DATA "МАЙ ", " ИЮНЬ ", "ИЮЛЬ", " АВГУСТ " Задание
DATA "Tankep-1 ", "Tankep-2","Tankep-3 "  месяцев и
DATA "Tankep-4 ","Tankep-5 "                судов
N = 5 : M = 4
DATA 102, 99, 108, 103                     Задание
DATA 98, 100, 90, 93                      элементов
DATA 101, 103, 95, 105                     матрицы
DATA 100, 102, 99, 104
DATA 97, 106, 107, 98
PRINT "Tankep"; SPC(7);

                              74