program p1;
var
MS:array[1..128]of string;
k,i,count:byte;
st:string;
begin
writeln(' vvedite text ');
readln(st);
i:=0 ;
st:=st+' ';
while st=' 'do
delete(st,1,1);
for i:=1 to length(st)-1 do
if (st=' ')and(st[i+1]=' ')then
delete(st,i,1);
while(pos(st,' ')<>0)and(length(st)>0) do
begin
k:=pos(st,' ');
inc(i);
Ms:=copy(st,1,k-1);
delete(st,1,k);
end;
Строки(Pascal).
Ребят памагите решить задачку
Выделить две группы самых длинных слов вывести их на печать
забыл... это паскаль
Выделить две группы самых длинных слов вывести их на печать
забыл... это паскаль
что понимать под группой слов и откуда их нужно выделить?
Что такое "две группы самых длинных слов"?
есле б я понял... ну как я думаю нужно просто подсчитать самые длинные слова( например 5 букв) это 1вая группа и (4 буквы ) это 2я группа слов и вывести их на экран... но я хз.. препод нехера не объяснил....
откуда берутся слова?
Цитата: Rassvet
Ребят памагите решить задачку
Выделить две группы самых длинных слов вывести их на печать
забыл... это паскаль
Выделить две группы самых длинных слов вывести их на печать
забыл... это паскаль
Я удалю тему, а тебе нарушение дам.Что за задача ? Где условие ? Дано... Сделать и найти ... Где это ? Уточни у своего препода или скажи ему ,что он дебил.
напоминает задание - пойди туда, не знаю куда, принеси то, не знаю что. Тут уж точно либо препод - балбес конкретный, либо автор что-то от нас утаивает (или не знает).
сорри всем уточнил у препода... слова вводятся в массив ( тоесть просто вручную вводим) патом ищем мин и макс.. и патом выводим на экран МАКС и макс-1 ...
помогите плиизззз (((:(:(:(:(
я начал писать программу ... вот код..
( тут вроде удаляет все лишние пробелы и переводит слова в массив(ищет самое длинное слово (оО)))
что дельше то? ,. (((
и сорри я незнаю как там правильно писать на форуме (((
[COLOR="Red"]Оформляй код по Правилам.[/COLOR]
я начал писать программу ... вот код..
Код:
( тут вроде удаляет все лишние пробелы и переводит слова в массив(ищет самое длинное слово (оО)))
что дельше то? ,. (((
и сорри я незнаю как там правильно писать на форуме (((
[COLOR="Red"]Оформляй код по Правилам.[/COLOR]
Чё-то меня смущает этот код
Если я всё правильно помню, то st[0] - длина строки, как она может быть равна пробелу? И если уж вдруг st[0] равно пробелу, то сколько раз выполнится твой цикл?
Я очень не уверен, что значение length(st) перевычисляется при каждом проходе цикла. Поэтому ты рискуешь выйти за пределы строки этим циклом. Лучше использовать что-нибудь типа while pos(st,' ') > 0
Код:
i:=0;
while st=' 'do
delete(st,1,1);
while st=' 'do
delete(st,1,1);
Код:
for i:=1 to length(st)-1 do
if (st=' ')and(st[i+1]=' ')then
delete(st,i,1);
{Угадай, чему равно i в этом месте?}
while(pos(st,' ')<>0)and(length(st)>0) do
begin
k:=pos(st,' ');
inc(i);
Ms:=copy(st,1,k-1);
{ну и в какой же элемент массива происходит присваивание?}
if (st=' ')and(st[i+1]=' ')then
delete(st,i,1);
{Угадай, чему равно i в этом месте?}
while(pos(st,' ')<>0)and(length(st)>0) do
begin
k:=pos(st,' ');
inc(i);
Ms:=copy(st,1,k-1);
{ну и в какой же элемент массива происходит присваивание?}
Код:
for i:=1 to length(st)-1 do
if (st=' ')and(st[i+1]=' ')then
delete(st,i,1);
if (st=' ')and(st[i+1]=' ')then
delete(st,i,1);
Цитата:
program p1;
type
MSL=array[1..128]of string;
var
MS:MSL;
k,i,max,j:byte;
maxs,st:string;
begin
writeln(' vvedite text ');
readln(st);
st:=st+' ';
while st[1]=' 'do
delete(st,1,1);
i:=1; while i<length(st)-1 do
if (st=' ')and(st[i+1]=' ')then
delete(st,i,1);
while(length(st)>0) do
begin
k:=pos(st,' ');
inc(j);
Ms[j]:=copy(st,1,k-1);
delete(st,1,k);
end;
max:=length(st[1]) ;
for i:=1 to length(st) do
if length(st)>max then
max:=length (st);
maxs:= st;
writeln(maxs);
readln;
end.
type
MSL=array[1..128]of string;
var
MS:MSL;
k,i,max,j:byte;
maxs,st:string;
begin
writeln(' vvedite text ');
readln(st);
st:=st+' ';
while st[1]=' 'do
delete(st,1,1);
i:=1; while i<length(st)-1 do
if (st=' ')and(st[i+1]=' ')then
delete(st,i,1);
while(length(st)>0) do
begin
k:=pos(st,' ');
inc(j);
Ms[j]:=copy(st,1,k-1);
delete(st,1,k);
end;
max:=length(st[1]) ;
for i:=1 to length(st) do
if length(st)>max then
max:=length (st);
maxs:= st;
writeln(maxs);
readln;
end.
вот что я намутил... но он чёт зацикливается (((
ребят помогите плизз у меня модуль (( а я непойму ((((:confused::confused::(:(
Код:
while(length(st)>0) do
begin
k:=pos(st,' ');
inc(j);
Ms[j]:=copy(st,1,k-1);
delete(st,1,k);
end;
begin
k:=pos(st,' ');
inc(j);
Ms[j]:=copy(st,1,k-1);
delete(st,1,k);
end;
#Опять форум тупит