![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
nblazhko |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 42 Пол: Мужской Репутация: ![]() ![]() ![]() |
Помогите плиз,
Имеется текстовый файл. напечатать первую из самых длинных строк. добавить строку в конец файла Пробовал так:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
t:textfile;
i,j: integer;
st,m,kk,ll:string;
begin
assignfile(t, 'str.txt');
reset(t);
while not EOF(t) do
begin
readln(t,st);
end;
for i:=1 to length(st) do
for j:=i+1 to length(st) do
if length(st[i])>length(st[j]) then m:=st[i];
Writeln(' ',m);
Writeln('Dobavnena v konec fayla(posmotrite fayl)');
{$I-}
Append(t);
IF IOresult<>0 then ReWrite(t);
{$I+}
try
WriteLn(t,m);
finally
CloseFile(t);
end;
readln;
end.
|
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Зачем здесь вложенный цикл? Достаточно хранить всего одну строку:
max_st := '';
while not eof(t) do begin
readln(t, st);
if length(max_st) < length(st) then max_st := st;
end;
writeln('longest string: length = ', length(max_st));
append(t);
...
writeln(t, max_st)
|
![]() ![]() |
![]() |
Текстовая версия | 26.07.2025 8:28 |