Задача на строки!, Помогите написать! Опции

[Akella]

ну пишет type mismatch и курсор под переменной text ставит

m:=GetWords(text,Words);

[Archon]

Только я оччень не советую называть переменную text, так как text - это зарезервированное слово Паскаля.

[Akella]

все равно, я заменя text на t и такая же беда... если честно я ваще уже запутался и не понимаю что куда=(((

Сообщение отредактировано: Akella - 10.11.2008 12:48

[volvo]

Только я оччень не советую называть переменную text, так как text - это зарезервированное слово Паскаля.

Я что-то пропустил?

Руководство по языку B.Pascal 7 & Objects/LR: Зарезервированные слова и стандартные директивы Borland Pascal об этом ничего не знает... А то, что идентификатор совпадает с названием какого-то типа, совсем не запрещает его использовать по-своему. Word тоже может быть названием переменной (и не обязательно целочисленной).

[Lapp]

2 volvo:
Извиняюсь, с зарезервированным словом я перебрал . Но -

то, что идентификатор совпадает с названием какого-то типа, совсем не запрещает его использовать по-своему

- про запрещение у меня ничего не было. Я просто не рекомендовал. Оччень. И сейчас тоже не рекомендую. Оччень

2 Akella:
Под каким конкретно символом среда ставит курсор при ошибке? И какой у тебя Паскаль?


Добавлено через 1 мин.
И, пожалуйста, приведи еще раз полный код текущей версии проги. Мало ли что..

[Akella]

турбо паскаль 7.0...
в проге у меня практически не чо не изменилась -ну не понимаю я...

program lab_3_16;    
const       
limits = [#0..#32,'.',',',':',';','!','?','"'];  
type       
TWords = array[1..40] of string;    
var     m : string;     
text: TWords;     
n:array['a'..'z','a'..'z'] of integer;     
c,d : char;     
i,j : integer;      
function GetWords(s : string; var w : TWords) : byte;  
var     i,back,n : byte;  
begin     
i := 1;     
n := 0;     
while(i<=length(s)) do begin        
while(i<=length(s)) and (s[i] in limits) do         inc(i);        
if i<=length(s) then begin           back := i;           
while(i<=length(s)) and not(s[i] in limits) do            i
nc(i);           
inc(n);  	 
w[n] := copy(s, back, i-back);        
end;     
end;       
GetWords := n;  
end;  
begin    
for c:='a' to 'z' do     
for d:='a' to 'z' do      
n[c,d]:=0;  
begin    
writeln('vvedite stroku slov');     
read(m);     
m:=GetWords(text,words);    
for i:=1 to  m do Inc(n[Words[i][1],Words[i][Length(Words[i])]]);      
end;  
end.

Сообщение отредактировано: Akella - 10.11.2008 19:20

[volvo]

Ты бы нормально программу отформатировал, а не в одну строку, увидел бы что переменная Words у тебя просто не определена... А text (ну, или назвать ее по другому) должна быть String-ом, а не массивом строк, иначе у тебя будет ошибка несоответствия типов...

[Lapp]

Ну, вот, все и выяснилось. А я смотрю на предыдущий вариант проги и не понимаю, в чем дело - там-то text определена как string.. Ну, и зачем ты ее поменял? Короче, "в интересах следствия" (С) старайся давать как можно больше информации.
Ну, и замечание volvo про Words тоже учти..


Добавлено через 1 мин.

практически не чо не изменилась

То, что ты считаешь мелочью, для программирования совсем мелочью не является

[Akella]

Ты бы нормально программу отформатировал, а не в одну строку, увидел бы что переменная Words у тебя просто не определена...

по идее она должна быть TWords правильно? или я опять что-то не догоняю?

[Lapp]

по идее она должна быть TWords правильно?

Да.

[Akella]

нууу, а у меня опять шибка вылезает!

[samec]

всмотрись внимательно:

m : string;

function GetWords(s : string; var w : TWords) : byte;  

m:=GetWords(text,words);

вот от того и ошибка, что несоответствие типов. Функция GetWords возвращает byte, а ты его присваиваешь переменной m типа string.

ну и соответсвенно вот тут:

writeln('vvedite stroku slov');     
read(m); {скорее всего вместо m нужно написать text}

Сообщение отредактировано: samec - 11.11.2008 0:47

[Akella]

а как делать пункт д) и е) ???

[Lapp]

а как делать пункт д) и е) ???

Пункт Д описан полностью в моем мессадже выше (#18).
Пункт Е вот.

x:='a';
y:='a';
for c:='a' to 'z' do for d:='a' to 'z' do if n[c,d]>n[x,y] then begin
  x:=c;
  y:=d
end;

После выполнения цикла x и y представляют искомую пару.

[Akella]

а у вас есть на сайте где можно почитать об операторах, о строках и массивах поподробнее?

[Lapp]

на сайте где можно почитать об операторах, о строках и массивах

О строках, например, вот: Строки
И вообще, посмотри FAQ (ссылка вверху красная) и используй поиск. Но думается мне, что и обычный учебник тебе не помешает..

[Akella]

а есть что-то типа списка операторов, где о каждом все написано?

[Lapp]

а есть что-то типа списка операторов, где о каждом все написано?

Я же говорю: учебник. Есть и электронные варианты. Где-то была тема со ссылками.. Поищи.

[samec]

а есть что-то типа списка операторов, где о каждом все написано?

ещё есть встроенный в среду раработки help

[Akella]

ещё есть встроенный в среду раработки help

там все на английском написано, поэтому это не очень помогет мне!