Каждый второй элемент, в файле заменить остатком от деления этого элемента на 10

@mitol4ig94 · Регистрация: 30.12.2013

Ввести файл . Каждый второй элемент, в файле заменить остатком от деления этого элемента на 10. Файл вывести до и после преобразования.

Добавлено через 52 минуты
Как написать, что замену нужно делать для каждого второго элемента?

@Cyborg Drone · 31.12.2013, 00:15

Вы неполностью написали задание. Что за файл? Типизированный, не типизированный, текстовый? Что считать элементом? отдельную строку, запись в строке, ограниченную с одной стороны началом строки или пробелом и с другой стороны пробелом или концом строки? Хорошо хотя бы, что косвенно известно, что файл целочисленный... Как написать, как написать... Элемент чётный (он же не нечётный) - not(odd(<номер элемента>)), (он же делится на 2 без остатка) - <номер элемента> mod 2 = 0, (он же содержит в двоичной записи числа в младшем разряде 0) <номер элемента> and 1 = 0. Есть и более экзотические способы. Я предпочитаю первый способ, так как в программе получется написано английским по белому "если не нечётное...". Пусть файл текстовый, и в нём один элемент в каждой строке.

Pascal

program evendiv;
 
var fi, fo: text;
    i, x, n: integer;
 
begin
  assign(fi, 'c:\enter.txt');
  rewrite(fi);
  write('Count of elements = '); readln(n);
  for i := 1 to n do
    begin
      write('Element #', i, ' = ');
      readln(x);
      writeln(fi, x)
    end;
  close(fi);
  reset(fi);
  writeln('Source file:');
  while not(eof(fi)) do
    begin
      readln(fi, x);
      write(x, ' ')
    end;
  writeln;
  close(fi);
  reset(fi);
  assign(fo, 'c:\target.txt');
  rewrite(fo);
  i := 0;
  writeln('Result file:');
  while not(eof(fi)) do
    begin
      inc(i);
      readln(fi, x);
      if not(odd(i)) then x := x mod 10;
      writeln(fo, x);
      write(x, ' ')
    end;
  writeln;
  close(fi);
  close(fo);
  readln
end.

@mitol4ig94 0 / 0 / 0 Регистрация: 30.12.2013 Сообщений: 34
		1
	Каждый второй элемент, в файле заменить остатком от деления этого элемента на 10 30.12.2013, 22:20. Показов 1993. Ответов 1 Метки нет (Все метки) Ввести файл . Каждый второй элемент, в файле заменить остатком от деления этого элемента на 10. Файл вывести до и после преобразования. Добавлено через 52 минуты Как написать, что замену нужно делать для каждого второго элемента? 0

Опции темы

Каждый второй элемент, в файле заменить остатком от деления этого элемента на 10

Решение