Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

30th
Май

Найти разность чисел из двух файлов

Posted by micher under Delphi

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

Человек_Борща



var

 ts:TStringList;

 x,z,r:Integer;

begin

 ts:=TStringList.Create;

 ts.LoadFRomFile('C:\1.txt');

 x:=StrToIntDef(Trim(ts.Text),0);

 ts.LoadFRomFile('C:\2.txt');

 z:=StrToIntDef(Trim(ts.Text),0);

 if (z <> 0) and (x <> 0) then

 begin

 r:=x-z;

 ts.clear;

 ts.add(IntToStr(r));

 ts.SaveToFile('c:\3.txt');

 end;

 Ts.Free;

end;