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

UptoLike

ВУЗ: 

ВГУВТ | Нижний Новгород

Составители: 

Рубрика: 

75
FOR
I = 1 TO M ' Начало цикла
READ MC$(I)
PRINT MC$(I);
NEXT
I ' Конец цикла
AMAX = 0
FOR
I = 1 TO N ' Внешний цикл по I
READ TN$(I)
PRINT TN$(I);
FOR J = 1 TO M ' Внутренний цикл по J
READ A(I, J)
PRINT USING "######"; A(I, J);
IF A(I, J) > AMAX THEN
AMAX = A(I, J)
K = I: L = J
END IF
NEXT J ' Конец внутреннего цикла по J
PRINT
' Пропуск строки
NEXT
I ' Конец внешнего цикла по I
PRINT
TAB(10); "Результат"
PRINT
"Танкер Месяц Процент"
PRINT
TN$(K), MC$(L), AMAX
PRINT
" K = ";K;" L = ";L;" AMAX = ";AMAX
END
Ввод-
месяцев
Ввод-
танкеров
Ввод-вывод
строки
Вычисление
AMAX, K, L
Вывод ре-
зультатов
Результаты представлены в макете печати (п.6, стр.74).
Вариант 2.
1. Задание
Определить для каждого судна месяц навигации с наи-
большим процентом выполнения плана.
Исходные данные
A =
f
g
h
102 99 nop
98 noo 90
101 103 95
103
93
nor
100 102 99
97 106 nos
not
98
k
l
m
FOR I = 1 TO M    ' Начало цикла
 READ MC$(I)                                         Ввод-вывод
 PRINT MC$(I);                                        месяцев
NEXT I            ' Конец цикла
AMAX = 0
FOR I = 1 TO N ' Внешний цикл по I
  READ TN$(I)                                        Ввод-вывод
  PRINT TN$(I);                                       танкеров
  FOR J = 1 TO M ' Внутренний цикл по J
    READ A(I, J)                                     Ввод-вывод
    PRINT USING "######"; A(I, J);                     строки
    IF A(I, J) > AMAX THEN
                                                     Вычисление
       AMAX = A(I, J)
                                                     AMAX, K, L
       K = I: L = J
    END IF
  NEXT J ' Конец внутреннего цикла по J
PRINT ' Пропуск строки
NEXT I        ' Конец внешнего цикла по I
PRINT TAB(10); "Результат"
PRINT "Танкер Месяц Процент"
PRINT TN$(K), MC$(L), AMAX                           Вывод ре-
                                                     зультатов
PRINT " K = ";K;" L = ";L;" AMAX = ";AMAX
END

  Результаты представлены в макете печати (п.6, стр.74).
  Вариант 2.
                          1. Задание
   Определить для каждого судна месяц навигации с наи-
большим процентом выполнения плана.
                      Исходные данные
                    102      99 nop 103
                   h 98     noo 90  93 m
               A = g101     103 95 norl
                    100     102 99 not
                   f 97     106 nos 98 k


                              75

Страницы