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

Определить первое по порядку нечетное и последнее четное числа

19.04.2015, 04:29. Показов 1784. Ответов 13
Метки нет (Все метки)

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

Определить первое по порядку четное и последнее нечетное числа и их позиции в файле
Создать типизированный файл целых чисел. Записать в него с консоли последовательность целых чисел,...

Определить первое по порядку положительное и последнее отрицательное числа и их позиции в файле
Вот задание:Создать типизированный файл целых чисел. Записать в него с консоли последовательность...

Найти максимальное нечетное и минимальное четное числа
Помогите пожалуйста. Задачка по паскалю. Найти максимальное нечетное и минимальное четное числа. ...

В файле найти первое положительное и последнее отрицательное числа
Есть программа, которая в файле находит первое положительное и последнее отрицательное числа и...

13
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
20.04.2015, 10:43 2
Лучший ответ Сообщение было отмечено Cosfar как решение

Решение

1.
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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
{Создать типизированный файл целых чисел. Записать в него с консоли
последователь-ность целых чисел, конец последовательности (терминатор) -
ноль, который не запи-сывается в файл. Определить первое по
порядку нечетное и последнее четное числа
и их позиции в файле (нумерация данных в файле начинается с нуля).
Предусмотреть случай, когда таких чисел в файле нет. Удалить из файла
все числа, находящиеся между ними.
}
uses
  sysutils;
var
  f,g:file of integer;
  x:integer;
  j,k,n,temp,chet,kc,kn,nech,i:integer;
  nechet:boolean;
begin
  assign(f,'data_f.dat');
  assign(g,'data_g.dat');
  rewrite(f);
  while true do
    begin
      readln(x);
      if x=0 then
        break;
      write(f,x);
    end;
  close(f);
 
  kn:=-maxint;  kc:=-maxint;  i:=0; nechet:=true;
  reset(f);
  while not eof(f) do
    begin
      read(f,x);
      if (odd(x)) and nechet then
        begin
          nech:=x;
          kn:=i;
          nechet:=false;
        end;
      if not odd(x) then
        begin
          chet:=x;
          kc:=i;
        end;
      write(x:3);
      inc(i);
    end;
  n:=filesize(f)-1;
  close(f);
 
  writeln;
  if kn<>-maxint then
    writeln('Первое нечетное: ',nech,', в позиции: ' ,kn)
  else
    writeln('Нечетных чисел нет.');
  if kc<>-maxint then
    writeln('Последнее четное: ',chet,', в позиции: ' ,kc)
  else
    writeln('Четных чисел нет.');
  if kc>kn then
    begin
      temp:=kn;
      kn:=kc;
      kc:=temp;
    end;
 
//  writeln(kc,' ',kn,' ',n);
  j:=0;
  reset(f);
  rewrite(g);
 
  if (kn<>-maxint) and (kc<>-maxint) then
    begin
      for i:=kn+1 to n do
        begin
          seek(f,i);
          read(f,x);
  //        writeln(x:3);
          seek(g,j);
          write(g,x);
          inc(j);
        end;
    end;
  close(f);
  close(g);
 
  erase(f);
  rename(g,'data_f.dat');
 
  writeln;
  writeln('Обработанный файл: ');
  reset(f);
  while not eof(f) do
    begin
      read(f,x);
      write(x:3);
    end;
  close(f);
  readln;
end.
1
0 / 0 / 0
Регистрация: 19.01.2015
Сообщений: 58
30.05.2015, 09:49  [ТС] 3
запись в файл не идет что не так?
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
30.05.2015, 10:50 4
Цитата Сообщение от Cosfar Посмотреть сообщение
запись в файл не идет
Как узнал?
0
0 / 0 / 0
Регистрация: 19.01.2015
Сообщений: 58
31.05.2015, 05:35  [ТС] 5
файл открыл, да и в паскале вывод из файла пустой
0
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
31.05.2015, 09:10 6
Cosfar, а ввод с клавиатуры был организован?

Не по теме:

Это я так, на всякий случай, спросил.

0
0 / 0 / 0
Регистрация: 19.01.2015
Сообщений: 58
31.05.2015, 14:10  [ТС] 7
да был, может версия pascal.net другая? просто у меня uses sysutils; как ошибку подсвечивает
вот я ее и убрал.
0
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
31.05.2015, 17:29 8
uses sysutils;
надо было убрать, это компилятор fpc.
В остальном не должно быть никаких сюрпризов.
0
0 / 0 / 0
Регистрация: 19.01.2015
Сообщений: 58
01.06.2015, 03:59  [ТС] 9
но так файл так и не заполняется

Добавлено через 51 минуту
а у вас все работает?
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
01.06.2015, 05:24 10
Может Вы сразу 0 вводите? Просто по другому не может не записывать.
0
0 / 0 / 0
Регистрация: 19.01.2015
Сообщений: 58
01.06.2015, 07:34  [ТС] 11
все заработало, спасибо
0
0 / 0 / 0
Регистрация: 19.01.2015
Сообщений: 58
04.06.2015, 16:10  [ТС] 12
можете еще объяснить для чего это надо?
erase(f);
rename(g,'data_f.dat');
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
04.06.2015, 16:18 13
Это товарищ схитрил, используя дополнительный файл и потом удалил первый и переименовал второй.
0
ZX Spectrum-128
04.06.2015, 19:56     Определить первое по порядку нечетное и последнее четное числа
  #14

Не по теме:

И вовсе ничо я не хитрил. А проявил ловкость, мастерство и сноровку. :)

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2015, 19:56

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

Найти первое нечетное и второе четное избыточное число
Найти первое нечетное и второе четное избыточное число (избыточное число — положительное целое...

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

Определить первое и последнее пропущенные числа и их позиции в ряду
Здравствуйте! Дан фрагмент натурального ряда чисел, в котором некоторые числа отсутствуют. ...


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

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

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