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

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

01.12.2012, 14:49. Показов 1086. Ответов 1
Метки нет (Все метки)

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

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

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

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

Найти и распечатать произведение максимальной и минимальной компонент файла
Сформировать файл F целого типа. Найти и распечатать произведение максимальной и минимальной...

1
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
03.12.2012, 12:24 2
Лучший ответ Сообщение было отмечено bro777 как решение

Решение

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
uses crt;
var f,h: file of integer;
    imax,imin,max,min,i,c,nz,kz,sum: integer;
    
begin
assign(f,'D:\in.dta');
assign(h,'D:\our.dta');
rewrite(f);
for i:=1 to random(6)+10 do
    begin
    c:=random(199)-99;
    write(f,c);
    end;
writeln('Файл заполнен случайным количеством случайных чисел');
writeln('Содержимое файла f');
reset(f);
i:=-1;
while not eof(f) do
      begin
      inc(i);
      read(f,c);
      write(c:5);
      if i=0 then
         begin
         max:=c; min:=c; imin:=i; imax:=i;
         end else
             begin
             if c>max then
                begin
                max:=c; imax:=i;
                end;
             if c<min then
                begin
                min:=c; imin:=i;
                end;
             end;
      end;
writeln;
if imin<imax then
   begin
   nz:=imin+1; kz:=imax-1;
   end else
       begin
       nz:=imax+1; kz:=imin-1;
       end;
i:=nz;
while i<=kz do
      begin
      seek(f,i);
      read(f,c);
      inc(sum,c);
      inc(i);
      end;
rewrite(h);
write(h,min);
write(h,max);
write(h,sum);
reset(h);
writeln('Содержимое файла h');
while not (eof(h)) do
      begin
      read(h,c);
      writeln(c);
      end;
close(f);
close(h);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.12.2012, 12:24
Помогаю со студенческими работами здесь

Найти разницу между максимальной и минимальной цифрами числа 509
Помогите пожалуйста найти разницу между максимальной и минимальной цифрами числа 509, заранее...

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

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

Найти и распечатать произведение максимальной и минимальной компонент файла
Сформировать файл F целого типа. Найти и распечатать произведение максимальной и минимальной...


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

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

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