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

Получить в файле ж все компоненты файла ф

03.03.2010, 10:19. Показов 1094. Ответов 1
Метки нет (Все метки)

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

Дан файл f, компоненты которого являются натуральными числами. Получить в файле g все компоненты файла f, делящиеся на 3 и не делящиеся на 7.
Дан файл f, компоненты которого являются натуральными числами. Получить в файле g все компоненты...

Дан файл f, компоненты которого являются действительными числами. Получить в файле g все компоненты файла f
Дан файл f, компоненты которого являются действительными числами. Получить в файле g все компоненты...

Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, кратные и
Дан файл f , компоненты которого являются целыми числами. Получить в файле g все компоненты файла...

Получить в файле g все четные компоненты файла f, а в файле h все нечетные
1. Дан файл f компоненты которого являются целыми числами. Получить в файле g все четные компоненты...

1
13090 / 5871 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
03.03.2010, 13:02 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Delphi
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
//Определяет, составляют ли цифры целого числа арифметическую прогрессию.
//TRUE - да, FALSE - нет.
//Если число состоит менее, чем из 3 цифр - вернёт TRUE.
function IsArPr(const aNum : Integer) : Boolean;
var
  //Номер разряда, исходное число, переменная для промежуточных вычислений.
  i, Num, NumTmp : Longword;
  //Старший и следующий младший разряды.
  D1, D2 : Integer;
  //Коэффициенты арифм. прогрессии в смежных итерациях цикла.
  A1, A2 : Integer;
begin
  //Исходное число без знака.
  Num := Abs(aNum);
 
  Result := True;
  NumTmp := Num;
  i := 1;
  D1 := 0;
  A1 := 0;
  //Движемся по разрядам числа справа - налево (от младших - к старшим).
  repeat
    //Цифра в младшем разряде.
    D2 := D1;
    //Цифра в очередном разряде (старшем).
    D1 := NumTmp mod 10;
    //Коэффициент на предыдущем шаге.
    A2 := A1;
    //Коэффициент на текущем шаге.
    A1 := D2 - D1;
 
    if ( i > 2 ) and ( A1 <> A2 ) then begin
      Result := False;
      Break;
    end;
 
    NumTmp := NumTmp div 10;
    //Номер следующего разряда.
    Inc(i);
  until NumTmp = 0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  FileName1 = 'data.txt';
  FileName2 = 'res.txt';
var
  F1, F2 : TextFile;
  Num : Integer;
begin
  AssignFile(F1, FileName1);
  Reset(F1);
  AssignFile(F2, FileName2);
  Rewrite(F2);
 
  while not Eof(F1) do begin
    Readln(F1, Num);
    if IsArPr(Num) then begin
      Write(F2, Num);
      if not Eof(F1) then Writeln(F2);
    end;
  end;
 
  CloseFile(F1);
  CloseFile(F2);
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.03.2010, 13:02
Помогаю со студенческими работами здесь

Получить в файле g все компоненты файла f
Задание звучит так: Дано файл f компоненты которого являются целыми числами. Получить в файле g...

Получить в файле g все компоненты файла f, кратные и 3, и 5
program a; var f:integer; m:array of integer; input, output: file of integer; begin assign...

Получить в файле все компоненты другого файла
Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f:...

Получить в файле Q все компоненты файла F, отвечающие условию
Также нужна помощь в решении этой задачи.Снимаю шляпу перед теми,кто поможет в этом. Дано файл F ,...


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

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

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