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

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

03.04.2018, 01:31. Показов 2063. Ответов 1
Метки нет (Все метки)

Сформировать файл F целого типа. Найти и распечатать произведение максимальной и минимальной компонент файла. Произведением заменить все нулевые компоненты первой половины файла. Если нулевых компонент в первой половине нет, то удалить из него максимум. Исходный и файл после замены распечатать.

Я понимаю что именно от меня требуется, но написать это на Pascal не могу... не понимаю как и куда впихнуть файл...
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.04.2018, 01:31
Ответы с готовыми решениями:

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

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

Вычислить произведение максимальной и минимальной компоненты файла
Создать файл File1, компонентами которого являются целые числа. Количество чисел = n, при 8<n<15....

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

1
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
03.04.2018, 09:49 2
Лучший ответ Сообщение было отмечено LewiK как решение

Решение

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
var f:file of integer;
    a,b,i,min,max,imax,p,z:integer;
begin
//создадим исходный файл например из 20 чисел
assign(f,'file');
rewrite(f);
randomize;
for i:=1 to 20 do
 begin
  a:=-6+random(13);
  write(f,a);
 end;
writeln('Содержание исходного файла');
reset(f);
//читаем файл, ищем ноли, минимум, максимум и его индекс
z:=0;//есть ли 0 в первой половине файла
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:4);
  if(a=0)and(i<filesize(f)div 2) then z:=1;
  if i=0 then
   begin
    min:=a;
    max:=a;
    imax:=0;
   end
 else
  begin
   if a<min then min:=a
   else if a>max then
    begin
     max:=a;
     imax:=i;
    end;
  end;
 end;
writeln;
p:=min*max;
writeln('Минимальный элемент=',min);
writeln('Максимальный элемент=',max,' его номер=',imax+1,' (индекс=',imax,')');
writeln('Их произведение=',p);
//изменяем файл по результатам поиска нолей
reset(f);
if z=1 then
 begin
  writeln('В первой половине файла есть ноли, замена их на значение произведения');
  for i:=0 to filesize(f) div 2-1 do
   begin
    seek(f,i);
    read(f,a);
    if a=0 then
     begin
      seek(f,i);
      write(f,p);
     end;
   end;
 end
else
 begin
  writeln('В первой половине файла нет нолей, удаление максимального компонента');
  for i:=imax to filesize(f)-2 do
   begin
    seek(f,i+1);
    read(f,a);
    seek(f,i);
    write(f,a);
   end;
  seek(f,filesize(f)-1);
  truncate(f);
 end;
reset(f);
writeln;
writeln('Измененный файл');
while not eof(f) do
 begin
  read(f,a);
  write(a:4);
 end;
close(f);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.04.2018, 09:49
Помогаю со студенческими работами здесь

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

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

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

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


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

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

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