string :(

[Настя93]

Нужна программа которая будет из строки выбирать самое короткое слово и выводить его на экран, только дополнительные стринги) использовать нельзя(((

[Настя93]

только программа нужна до 16.00, потом поздно будет(

[pray_driver]

Сообщение от Настя93

только программа нужна до 16.00, потом поздно будет(

У меня уже 16-50

[Пепел Феникса]

ну делайте раз вам надо.

запомните, помощь это совместное продвижение к цели, а не делание за вас(это уже эксплуатация)

[Utkin]

Нужно сканировать строку от пробела до пробела и запоминать положения начала и конца слова. То есть на строку можно использовать 4-е переменных - 2 будут указаывать на начало и конец самого короткого слова, а 2 будут указывать на началои конец текущего слова. Вот так и пробежаться по строке (можно в цикле while, если это паскаль/дельфи).

[Настя93]

ясно, спасибо, а можете еще сам цыкл while написать?)

[s4shk4]

цыкл

*фейспалм.jpg*
Алсо, у меня уже 16:00 :3

[Настя93]

program;

{$APPTYPE CONSOLE}

uses
SysUtils;
type mas=array of integer;
mas1=array of char;

var st:string;
so:string;
m:mas;
m1:mas1;
x,z,l,k,q,w,i,kk,r,r1:integer;

begin
{ TODO -oUser -cConsole Main : Insert code here }
writeln ('vvedite r9dok');
readln (st);
so:=(' ');
l:=0;
x:=length(st);
for i:=1 to x do
begin
z:=pos (so,st);
l:=x-z;
for w:=z to length(st) do
begin
q:=pos (so,st);
k:=x-q;
end;
writeln (k,' ',l);
if (k<l) then r:=q; // and (r1:=k) else (r:=z) and (r1:=l);
if (k<l) then r1:=k;
if (l<k) then r:=z;
if (l<k) then r1:=l;
writeln (r,' ',r1);
// writeln (z,' ',l);
end;
so:=copy (st,r,r1);
writeln (so);
readln;
end.




Воот то что не получилось у меня(