Работа с файлами

@johnkrut · Регистрация: 17.09.2014

Дан файл, в котором записаны цифры, например: 24_25_78
Подсчитать эти цифры и заново записать в файл, результат: 6_7_15

@JokeR.BY · 11.12.2014, 03:38

johnkrut,

намучаетесь вы с подчёркиванием. проще через пробел.
это каким таким макаром у вас из последовательности 24 25 78 вышла 6 7 15 ?

@johnkrut · 11.12.2014, 04:23 **[ТС]**

Подчёркивания нет, числа получились путем складывания двухзначных чисел, например: 25, 2+5 = 7

@JokeR.BY · 11.12.2014, 18:23

Pascal

function Expand(numb : Word) : Byte;
var
    Result : Byte;
begin
    Result := 0;
    repeat
        Inc(Result, numb mod 10);
        numb := numb div 10;
    until (numb = 0);
    Expand := Result;
end;
 
var
    f, g : Text;
    el : Word;
begin
    Assign(f, 'f.txt'); Reset(f);
    Assign(g, 'g.txt'); ReWrite(g);
    while Not(Eof(f)) do
    begin
        Read(f, el);
        Write(g, Expand(el), ' ');
    end;
    Close(f); Close(g);
    Erase(f); Rename(g, 'f.txt');
end.

@johnkrut 0 / 0 / 0 Регистрация: 17.09.2014 Сообщений: 93
		1
	Работа с файлами 11.12.2014, 03:30. Показов 885. Ответов 3 Метки нет (Все метки) Дан файл, в котором записаны цифры, например: 24_25_78 Подсчитать эти цифры и заново записать в файл, результат: 6_7_15 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	11.12.2014, 03:38	2
	johnkrut, намучаетесь вы с подчёркиванием. проще через пробел. это каким таким макаром у вас из последовательности 24 25 78 вышла 6 7 15 ? 0

@johnkrut 0 / 0 / 0 Регистрация: 17.09.2014 Сообщений: 93
	11.12.2014, 04:23 [ТС]	3
	Подчёркивания нет, числа получились путем складывания двухзначных чисел, например: 25, 2+5 = 7 0

Опции темы