Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 31.03.2014
Сообщений: 8
1

Дан файл f, содержащий целые числа. Найти максимальное из чисел и записать результат в новый файл

31.03.2014, 20:38. Просмотров 1059. Ответов 2
Метки нет (Все метки)

Дан файл f, который содержит целые числа. Найти максимальное из чисел и записать результат в новый файл.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button1Click(Sender: TObject);
 
var
f,nf:textfile;
i:integer;
st,st1:string;
begin
Assignfile(f, 'exe1.txt');
Reset(f);
Assignfile(nf, 'exe2.txt');
rewrite(nf);
while not eof (f) do begin
Readln (f,st);
memo1.Lines.Add(st);
st1:='';
for i:=length (st)downto 1 do st1:=st1+st[i];
memo2.Lines.Add(st1);
writeln (nf,st1);
end;
closefile(f);
closefile(nf);
end;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2014, 20:38
Ответы с готовыми решениями:

Дан файл f, содержащий целые числа. Найти максимальное из чисел и записать результат в новый файл
Помогите со ошибкам пожалуйста ((( procedure TForm1.Button1Click(Sender: TObject); var...

Дан текстовый файл, содержащий целые числа. Найти сумму элементов, являющихся делителями заданного числа
Дан текстовый файл, содержащий целые числа. Найти сумму элементов, являющихся делителями...

Дан текстовый файл, содержащий целые числа. Найти максимальный элемент в каждой строке
Помогите ребята решить задачу!!! Дан текстовый файл, содержащий целые числа. Найти максимальный...

Дан текстовый файл, содержащий целые числа
помогите решить задачу Дан текстовый файл, содержащий целые числа. Найти сумму элементов,...

2
560 / 517 / 197
Регистрация: 24.01.2012
Сообщений: 1,271
31.03.2014, 21:20 2
А приведенный код совсем не то делает, что в задании написано.
1
0 / 0 / 0
Регистрация: 31.03.2014
Сообщений: 8
01.04.2014, 03:10  [ТС] 3
ну помогите!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.04.2014, 03:10

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

Дан файл text.txt, там два числа: 2 и 11. Найти их сумму и записать ее в файл out.txt
Я знаю как написать программу для нахождения сумы в Delphi, но я не знаю как написать вот такую...

Дан файл, содержащий буквы и цифры. Записать в другой файл цифры из этого файла
Дан файл, содержащий буквы и цифры. Записать в другой файл цифры из этого файла. Подскажите нет...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.