Паскль. Помогите
Комментарии: 4
сначала
лучшие
Ваш комментарий
Вот:
Program GH;
Var
f1,f2 : text;
k, max : integer;
c, str: string;
Begin
assign(f1,'wod.txt');
assign(f2,'wiwod.txt');
reset(f1);
rewrite(f2);
max:=0;
k:=0;
whle not Eof(f1) do
while not Eoln (f1) do
begin
read (f1,c);
if length(c) > max then
begin
max:= length(c);
str:= c;
end;
end;
writeln (f2, 'max stroca', c);
close (f1);
close (f2);
end.
пы. сы.
Неудивительно, что ты запутался в эндах, если не будешь и дальше форматировать код, то в скоре перестанешь вобще его понимать.
А..., так это форум убирает пробелы, извиняюся =).
2 Гоголь-Моголь
Зачем создавать новую тему, если уже ответили в предыдущей, в которой ты писал вопрос?
предыдущую тему не заметил................
я сам выяснил что один бегин не дописал, и одном месте вместо присвоить равно написал..........
всеравно всем спасиба! =)
нада в текстовом файле определить длинну самой большой строки!
воть я тут по написаЛ
Program GH;
Var f1,f2 : text;
k, max : integer;
c: char;
Begin
assign(f1,'wod.txt');
assign(f2,'wiwod.txt');
reset(f1);
rewrite(f2);
max:=0;
k:=0;
while not Eof(f1) do
while not Eoln (f1) do
begin
read (f1,c);
k:=k+1;
end;
if max
rEadln(f1);
end;
writeln (f2, 'max stroca', max);
close (f1);
close (f2);
end.
я эндами кажись запутался или обнулить гдета забыл=(