С помощью Паскаля найти самую короткую строку в файле и вывести её на экран. Если таких строк несколько, то последнюю из них.
Ответы
Ответ дал:
1
program proga;
Var
p: text;
i, n : byte;
s,min,m: string;
Begin
write('Введите имя и путь к файлу '); {Например: C:/test.txt}
read(m);
Assign(p,m);
reset(p);
read(p,s);
min:=s;
n:=100;
for i:=1 to n do
begin
readln(p,s);
while not eof(p) do {нахождение минимальной строки}
begin
readln(p,s);
if length(s) <= length(min) then
min:=s;
end;
end;
close(p);
write('самая короткая строка: ',min);
End.
Var
p: text;
i, n : byte;
s,min,m: string;
Begin
write('Введите имя и путь к файлу '); {Например: C:/test.txt}
read(m);
Assign(p,m);
reset(p);
read(p,s);
min:=s;
n:=100;
for i:=1 to n do
begin
readln(p,s);
while not eof(p) do {нахождение минимальной строки}
begin
readln(p,s);
if length(s) <= length(min) then
min:=s;
end;
end;
close(p);
write('самая короткая строка: ',min);
End.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад