Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
zxcz
0 / 0 / 2
Регистрация: 20.10.2011
Сообщений: 62
1

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

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

Помогите пожалуйста с решением

Сформировать файл W, состоящий из целых чисел. Переписать в файл V все четные положительные числа из файла в убывающем порядке. Найти их сумму.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.02.2012, 09:49
Ответы с готовыми решениями:

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

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

Из одного файла, содержащего некоторый набор чисел, переписать в другой файл все четные числа
Доброго времени суток светлые:) умы программирования, хочу обратиться к вам за...

Переписать в массив B в убывающем порядке все отрицательные элементы массива А
Дан одномерный массив целых чисел A. Напишите программу, которая перепишет в...

Переписать в новый целочисленный массив B все четные числа из исходного массива (в том же порядке)
Array54. Дан целочисленный массив A размера N. Переписать в новый целочисленный...

8
Puporev
Модератор
54992 / 42295 / 29206
Регистрация: 18.05.2008
Сообщений: 99,928
04.02.2012, 12:01 2
Файл текстовый или типизированный?
0
zxcz
0 / 0 / 2
Регистрация: 20.10.2011
Сообщений: 62
04.02.2012, 12:35  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Файл текстовый или типизированный?
Типизированный
0
Puporev
Модератор
54992 / 42295 / 29206
Регистрация: 18.05.2008
Сообщений: 99,928
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
versa4e
trainspotting
1083 / 483 / 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
Puporev
Модератор
54992 / 42295 / 29206
Регистрация: 18.05.2008
Сообщений: 99,928
04.02.2012, 14:33 6
Цитата Сообщение от zxcz Посмотреть сообщение
в убывающем порядке.
Это я и не заметил...
0
samurr
0 / 0 / 0
Регистрация: 19.08.2014
Сообщений: 50
08.07.2015, 20:25 7
Puporev, Если не трудно пожалуйста напишите решение этой задачи с текстовым файлом
0
Puporev
Модератор
54992 / 42295 / 29206
Регистрация: 18.05.2008
Сообщений: 99,928
08.07.2015, 20:41 8
В текстовом файле сортировка невозможна.Нужно прочитать файл в массив, отсортировать и переписать файл.
Создайте новую тему, где подробно и точно напишите условие задачи.
0
samurr
0 / 0 / 0
Регистрация: 19.08.2014
Сообщений: 50
08.07.2015, 20:44 9
Puporev, ок, спасибо
0
08.07.2015, 20:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.07.2015, 20:44

Переписать в пустой файл g сначала все положительные числа, а потом все отрицательные
Здравствуйте, не могли бы кто нибудь помочь с двумя задачами. P.S. прошу...

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru