Предмет: Информатика,
автор: Vera1972
С помощью Паскаля найти самую короткую строку в файле и вывести её на экран. Если таких строк несколько, то последнюю из них.
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Английский язык,
автор: даша3598
Предмет: Русский язык,
автор: маруся493
Предмет: Английский язык,
автор: chukalinauliya
Предмет: Математика,
автор: hok64
Предмет: Математика,
автор: ramasa