4 / 4 / 0
Регистрация: 13.02.2013
Сообщений: 33
1

Найти сумму компонент, стоящих между минимальной и максимальной

16.12.2014, 02:21. Показов 729. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задан числовой файл F. Найти сумму компонент, стоящих между минимальной и максимальной. Записать в файл H сначала минимум, затем максимум, затем сумму. Файл H распечатать.
0
16.12.2014, 02:21
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
16.12.2014, 02:21
Ответы с готовыми решениями:

Найти сумму компонент, стоящих между минимальной и максимальной
Задан числовой файл F. Найти сумму компонент, стоящих между минимальной и максимальной. Записать в файл H сначала минимум, затем максимум,...

Найти сумму компонент файла, стоящих между минимальной и максимальной
Задан числовой файл F. Найти сумму компонент,стоящих между минимальной и максимальной. Заменить этой суммой все элементы из которых она...

Найти сумму компонент, стоящих между первой и максимальной
1.Задан числовой файл F (Все компоненты вводим с клавиатуры). Найти сумму компонент, стоящих между первой и максимальной. Заменить этой...

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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
16.12.2014, 16:40
Помогаю со студенческими работами здесь

Найти сумму компонент, стоящих между минимальной и максимальной
Задан числовой файл F . Найти сумму компонент, стоящих между минимальной и максимальной. Заменить этой суммой все элементы из которых она...

Файлы прямого доступа. Найти сумму компонент, стоящих между минимальной и максимальной
Задан числовой файл F. Найти сумму компонент, стоящих между минимальной и максимальной. Записать в файл H сначала минимум, затем максимум,...

Сумма компонент массива, между максимальной и минимальной компонентой.
Разработать и отладить программу, содержащую процедуру, которая, определяет сумму компонент массива, стоящих между максимальной и...

Типизированные файлы. Найти сумму компонент, стоящих между минимальной и максимальной.
Помогите пожалуйста с задачей: Задан числовой файл F . Найти сумму компонент, стоящих между минимальной и максимальной. Заменить этой...

Найти сумму компонент, расположенных между максимальной и минимальной компонентами
Дан файл вещественных чисел. Найти сумму компонент, расположенных между максимальной и минимальной компонентами. Записать в новый файл...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
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) - это стандарт,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru