1 / 1 / 1
Регистрация: 11.05.2012
Сообщений: 3
1

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

11.05.2012, 11:05. Показов 1320. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

1
141 / 129 / 113
Регистрация: 08.04.2012
Сообщений: 245
11.05.2012, 15:23 2
Лучший ответ Сообщение было отмечено sane4ek как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Uses CRT;
Const n=10;
var a:array[1..n] of integer;
    i,min,max,s,index,undex:integer;
    F,H:text;
begin
     ClrScr;
assign(F,'chisla.txt');
Rewrite(f);
     for i:=1 to n do
     begin
          a[i]:=Random(11);
          write(F,a[i],' ');
     end;
Close(f);
min:=a[1];
max:=a[1];
     for i:=1 to n do
      begin
           if a[i]< min then
           begin
                min:=a[i];
                index:=i;
           end;
           if a[i]> max then
           begin
                max:=a[i];
                undex:=i;
           end;
      end;
if undex=0 then inc(undex);
if index=0 then inc(index);
      {writeln('Ìax=',max,' ','Index=',undex);
      writeln('Min=',min,' ','Index=',index);}
s:=0;
     if undex>index then
     for i:=index+1 to undex-1 do s:=s+a[i];
     if index>undex then
     for i:=undex+1 to index-1 do s:=s+a[i];
assign(H,'OTBET.txt');
Rewrite(h);
begin
     writeln(h,'Min=',min);
     writeln(h,'Max=',max);
     writeln(h,'Summa=',s);
end;
Close(h);
writeln('File H:');
writeln('Min=',min);
writeln('Max=',max);
writeln('Summa=',s);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2012, 15:23
Помогаю со студенческими работами здесь

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

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

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

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


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

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

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