18. Имеется массив температур т[30]. Напишите подпрограмму, находящую среднюю температуру за дни с к1 по к2. Определите самую теплую неделю месяца. Результат запишите в файл.
19. Текущие активы фирмы представляются выражением ТА(х) = 9 + 7х2 –4х, а текущие пассивы – ТП (х) = 4+х2. Протабулируйте, т.е. представьте в табличном виде изменение ТА и ТП, а также оборотного капитала ОК = ТА – ТП ежемесячно в течение года (х =1, 2, 3, 4, 5, …, 12). Результаты табуляции запишите в файл.
20. Имеются массивы вещественного типа {х1, х2, …, х10}, {y1, y2, …, y10}, вычислите
z1
=
.
В файл s.dat запишите сначала исходные массивы, а затем результат расчета.
21. Дан двумерный массив А(4, 5). Подсчитайте суммы элементов каждой строки м атрицы и запишите эти значения в новый одномерный массив. Полученный массив перепишите в файл.
22. Имеются массивы вещественного типа {х1, х2, …, х10}, {y1, y2, …, y8}, вычислите
а
=
,
b =
.
Массивы и результаты расчета запишите в два соответствующих файла.
23. Имеется массив температур т[30]. Определите среднюю температуру за месяц, самую теплую и самую холодную температуры в течение месяца. Результаты запишите в файл.
24. Дан двумерный массив А(5, 6) целого типа. Подсчитайте суммы элементов сначала по строкам, а затем по столбцам. Суммы элементов по строкам запишите в один файл, а суммы элементов по столбцам запишите в другой файл.
25. Текущие активы фирмы представляются выражением ТА(х) = 15 – 7х, а текущие пассивы – ТП (х) = 10 + 3х2. Протабулируйте, т.е. представьте в табличном виде изменение ТА и ТП, а также ликвидность капитала фирмы L = ТА /ТП ежемесячно в течение года (х =1, 2, 3, 4, 5, …, 12). Результаты табуляции запишите в файл.
Приложения
А)
Типы Простые Порядковые Целые
Вещественные Логические
Структурированные Массивы Символьные
Указатели Записи Перечисляемые
Строковые Множества Тип-диапазон
Процедурные Файлы
Рис. П. 1. Типы данных
Б) Таблица П.1
Длинные и короткие целые типы
Название типа |
Длина, байт |
Диапазон значений |
byte |
1 |
0…255 |
shortint |
1 |
-128…127 |
word |
2 |
0…65535 |
integer |
2 |
-32768…32767 |
longint |
4 |
-2147483648…2147483647 |
Таблица П.2