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

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

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

Задан числовой файл F. Найти сумму компонент, стоящих между минимальной и максимальной. Записать в файл H сначала минимум, затем максимум, затем сумму. Файл H распечатать.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2014, 02:21
Ответы с готовыми решениями:

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

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

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

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

2
2509 / 1130 / 582
Регистрация: 07.06.2014
Сообщений: 3,281
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2014, 16:40
Помогаю со студенческими работами здесь

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru