1 / 1 / 2
Регистрация: 20.10.2011
Сообщений: 62
1

Переписать в файл V все четные положительные числа из файла в убывающем порядке

04.02.2012, 09:49. Показов 1956. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста с решением

Сформировать файл W, состоящий из целых чисел. Переписать в файл V все четные положительные числа из файла в убывающем порядке. Найти их сумму.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.02.2012, 09:49
Ответы с готовыми решениями:

Переписать в файл V все чётные положительные числа из файла в убывающем порядке
Сформировать файл W, состоящий из целых чисел. Переписать в файл V все чётные положительные числа...

Переписать в файл V все чётные положительные числа из файла в убывающем порядке
Сформировать файл W, состоящий из целых чисел. Переписать в файл V все чётные положительные числа...

Имеется типизированный файл, в котором записаны 18 целых чисел. Переписать все положительные числа файла в массив в том же порядке
Имеется типизированный файл, в котором записаны 18 целых чисел. Переписать все положительные числа...

Имеется типизированный файл, в котором записаны 18 целых чисел. Переписать все положительные числа файла в массив в том же порядке
program viweglavnoidiagonaali; var f:file of integer; i,bi,k,d,z,z1,a,b,x,y:integer; begin...

8
Почетный модератор
64302 / 47597 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
04.02.2012, 12:01 2
Файл текстовый или типизированный?
0
1 / 1 / 2
Регистрация: 20.10.2011
Сообщений: 62
04.02.2012, 12:35  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Файл текстовый или типизированный?
Типизированный
0
Почетный модератор
64302 / 47597 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
04.02.2012, 13:20 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
var w,v:file of integer;
    n,i,a,s:integer;
begin
randomize;
write('Сколько чисел записать в файл n=');
read(n);
assign(w,'FileW');
rewrite(w);
assign(v,'FileV');
rewrite(v);
for i:=1 to n do
 begin
  a:=-20+random(50);
  write(w,a);
 end;
writeln('Файл W:');
s:=0;
reset(w);
while not eof(w) do
 begin
  read(w,a);
  write(a:4);
  if(a>0)and(a mod 2=0)then
   begin
    write(v,a);
    s:=s+a;
   end;
 end;
writeln;
close(w);
if s=0 then write('Четных положительных чисел нет, файл V пустой')
else
 begin
  reset(v);
  writeln('Файл V:');
  while not eof(v) do
   begin
    read(v,a);
    write(a:4);
   end;
  writeln;
  write('Сумма=',s);
 end;
close(v);
end.
1
trainspotting
1086 / 486 / 384
Регистрация: 11.11.2010
Сообщений: 773
04.02.2012, 14:31 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
var
  w,v:file of integer;
  i,j,n,x,z,t,s:integer;
begin
  write('n=');
  readln(n);
  assign(w,'w.int');
  rewrite(w);
  randomize;
  for i:=1 to n do
    begin
      x:=-20+random(41);
      write(w,x);
    end;
  assign(v,'v.int');
  rewrite(v);
  s:=0;
  writeln('Soderzhimoe faila W');
  seek(w,0);
  while not eof(w) do
    begin
      read(w,x);
      write(x:4);
      if (x>0) and (x mod 2=0) then
        begin
          write(v,x);
          s:=s+x;
        end;
    end;
  writeln;
  close(w);
  if s=0 then
    writeln('Fail V pustoi')
  else
    begin
      seek(v,0);
      for i:=0 to filesize(v)-2 do
        for j:=i+1 to filesize(v)-1 do
          begin
            seek(v,i);
            read(v,x);
            seek(v,j);
            read(v,z);
            if x<z then
              begin
                t:=x;
                x:=z;
                z:=t;
              end;
            seek(v,i);
            write(v,x);
            seek(v,j);
            write(v,z);
          end;
      writeln('Soderzhimoe faila V');
      seek(v,0);
      while not eof(v) do
        begin
          read(v,x);
          write(x:4);
        end;
      writeln;
      writeln('S=',s);
    end;
  close(v);
end.
1
Почетный модератор
64302 / 47597 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
04.02.2012, 14:33 6
Цитата Сообщение от zxcz Посмотреть сообщение
в убывающем порядке.
Это я и не заметил...
0
0 / 0 / 0
Регистрация: 19.08.2014
Сообщений: 50
08.07.2015, 20:25 7
Puporev, Если не трудно пожалуйста напишите решение этой задачи с текстовым файлом
0
Почетный модератор
64302 / 47597 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
08.07.2015, 20:41 8
В текстовом файле сортировка невозможна.Нужно прочитать файл в массив, отсортировать и переписать файл.
Создайте новую тему, где подробно и точно напишите условие задачи.
0
0 / 0 / 0
Регистрация: 19.08.2014
Сообщений: 50
08.07.2015, 20:44 9
Puporev, ок, спасибо
0
08.07.2015, 20:44
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.07.2015, 20:44
Помогаю со студенческими работами здесь

Переписать все положительные числа файла в массив в том же порядке
Записаны 18 целых чисел. Переписать все положительные числа файла в массив в том же порядке.

Переписать все положительные числа файла в массив в том же порядке
Имеется типизированный файл, в котором записаны 18 целых чисел. Переписать все положительные числа...

Вывести в убывающем порядке все четные простые числа из заданного пользователем диапозона.
Напишите плз прогу: Вывести в убывающем порядке все четные простые числа из заданного...

Переписать в файл f2 все положительные числа из файла f1
Помогите решить. 5. Создать файл f1, состоящий из целых чисел по 6 в строке. Переписать в файл...


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

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

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