4 / 4 / 0
Регистрация: 13.02.2013
Сообщений: 33
|
|
1 | |
Найти сумму компонент, стоящих между минимальной и максимальной16.12.2014, 02:21. Показов 729. Ответов 2
Метки нет Все метки)
(
Задан числовой файл F. Найти сумму компонент, стоящих между минимальной и максимальной. Записать в файл H сначала минимум, затем максимум, затем сумму. Файл H распечатать.
0
|
16.12.2014, 02:21 | |
16.12.2014, 02:21 | |
Ответы с готовыми решениями:
2
Найти сумму компонент, стоящих между первой и максимальной |
2511 / 1132 / 582
Регистрация: 07.06.2014
Сообщений: 3,286
|
|
16.12.2014, 09:16 | 2 |
какого типа файл F (file of <ЧТО>) ?
какого типа файл H? (по условию задачи непонятно, то ли H должен быть того же типа, что и исходный файл, то ли ожидается обычный текстовый файл)
0
|
4 / 4 / 0
Регистрация: 13.02.2013
Сообщений: 33
|
|
16.12.2014, 16:40 [ТС] | 3 |
если я правильно понял, то надо сделать так: как в задаче которую прикреплю ниже, только сумму написать не вместо всех стоящих между мин и мах, а просто - мин, мах и сумму.
uses crt; var f: file of integer; n, a, i, mn, mx, imn, imx, s, x: integer; begin randomize; assign(f, 'filef'); rewrite(f); repeat write('Сколько чисел записать в файл F n>1 n='); read(n); until n > 1; for i := 1 to n do begin a := random(50) + 1; write(f, a); end; writeln('Содержание исходного файла:'); seek(f, 0); read(f, mn); write(mn:4); mx := mn; imn := 0; imx := 0; for i := 1 to filesize(f) - 1 do begin read(f, a); write(a:4); if a < mn then begin mn := a; imn := i end else if a > mx then begin mx := a; imx := i end end; writeln; writeln('Минимальный=', mn, ' индекс=', imn, ' максимальный=', mx, ' индекс=', imx); if abs(imn - imx) = 1 then begin writeln('Между минимальным и максимальным нет элеметов'); write('Сумма=0, замены нет'); readln; exit end; if imx < imn then begin x := imx; imx := imn; imn := x end; s := 0; for i := imn + 1 to imx - 1 do begin seek(f, i); read(f, a); s := s + a end; writeln('Сумма между минимальным и максимальным=', s); writeln('Файл после замены элеиентов'); seek(f, 0); for i := 0 to filesize(f) - 1 do begin seek(f, i); if (i <= imn) or (i >= imx) then begin read(f, a); write(a:4) end else begin write(f, s); seek(f, i); read(f, a); write(a:4); end end; close(f); end. Добавлено через 47 секунд эти три значения я думаю и будут файлом Н.
0
|
16.12.2014, 16:40 | |
16.12.2014, 16:40 | |
Помогаю со студенческими работами здесь
3
Найти сумму компонент, стоящих между минимальной и максимальной
Типизированные файлы. Найти сумму компонент, стоящих между минимальной и максимальной. Найти сумму компонент, расположенных между максимальной и минимальной компонентами Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
![]() |
Опции темы | |
|
Новые блоги и статьи
![]() |
||||
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
|
Laravel или Symfony: что лучше для старта?
Wired 18.02.2025
В веб-разработке выбор правильного фреймворка может стать определяющим фактором успеха проекта. Особенно это актуально для PHP - одного из самых распространенных языков программирования, где Laravel. . .
|
Что нового в Laravel 12
Wired 18.02.2025
С момента своего появления в 2011 году Laravel постоянно развивается, внедряя инновационные решения и совершенствуя существующие возможности. В начале 2025 года ожидается выход Laravel 12 - новой. . .
|
Роутер в Laravel: как работать с маршрутами
Wired 18.02.2025
Маршрутизация - один из основополагающих элементов любого веб-приложения на Laravel, определяющий как приложение отвечает на HTTP-запросы к различным URL-адресам. По сути, роутинг - это механизм. . .
|
Интеграция шаблона Bootstrap в Laravel PHP
Wired 18.02.2025
Разработка веб-приложений в современном мире требует не только надежного бэкенда, но и привлекательного, отзывчивого интерфейса. Laravel, как один из самых популярных PHP-фреймворков, отлично. . .
|
Использование контроллеров и middleware в Laravel PHP
Wired 18.02.2025
Современная веб-разработка требует четкой организации кода и эффективного управления потоком HTTP-запросов. Laravel, как один из ведущих PHP-фреймворков, предоставляет два мощных инструмента для. . .
|
Фильтрация массива по неточному соответствию элементам другого массива в JavaScript
Wired 18.02.2025
При работе с массивами данных в JavaScript иногда возникает задача поиска и фильтрации элементов по неточному соответствию. В отличие от точного сравнения, когда мы ищем полное совпадение значений,. . .
|
Создаем SPA Router на чистом JavaScript
bytestream 17.02.2025
В современной веб-разработке одностраничные приложения (SPA) стали стандартом для создания динамичных и отзывчивых пользовательских интерфейсов. Ключевым компонентом любого SPA является роутер -. . .
|
Машинное обучение на TypeScript и TensorFlow
bytestream 17.02.2025
Машинное обучение становится все более востребованным направлением в современной разработке программного обеспечения. Интеграция искусственного интеллекта в веб-приложения открывает новые возможности. . .
|
Как работать с данными EXIF и JPEG в JavaScript
bytestream 17.02.2025
В современном мире цифровой фотографии метаданные изображений играют важнейшую роль в организации и управлении медиаконтентом. Формат EXIF (Exchangeable Image File Format) - это стандарт,. . .
|