IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Pchar
сообщение
Сообщение #1


Гость






Помогите!!!!
Необходимо переделать задачу под использование PChar, как зделать понятия не имею


program pr1;
const
max_word=200;
var word:array[0..max_word] of string;
count: array[0..max_word] of byte;
procedure add(s:string);
var
i:byte;
begin
if s='' then exit;
i:=0;
while word[i]<>''do
begin
if s=word[i] then
begin
inc(count[i]);
exit;
end;
i:=i+1;
end;
word[i]:=s;
count[i]:=1;
word[i+1]:='';
end;
procedure make(text:string);
var
temp:string;
i:byte;
begin
word[0]:='';
temp:='';
for i:=1 to length(text) do
begin
if text[i]=' ' then
begin
add(temp);
temp:='';
continue;
end;
temp:=temp+text[i];
end;
add(temp);
end;
function pod:byte;
var
n,i,max:byte;
begin
n:=0;
max:=0;
while word[n]<>'' do
begin
count[n]:=0;
for i:=1 to length(word[n]) do
if word[n][i] in ['a','e','i','o','u'] then
inc(count[n]);
if count[n]>max then max:=count[n];
n:=n+1;
end;
pod:=max;
end;
var
i,max:byte;
text:string;
begin
writeln('ввод текста');
readln(text);
make(text);
i:=0;
writeln(‘слова встречающиеся в тексте');
while word[i]<>'' do
begin
writeln(' ',word[i],'-',count[i]);
i:=i+1;
end;
readln;
max:=pod;
writeln('-------------------------------------------');
writeln('­ максимальное кол-во гласных ',max);
writeln('-------------------------------------------');
i:=0;
while word[i]<>'' do
begin
if count[i]=max then
writeln(word[i]);
i:=i+1;
end;
readln;
end.


Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 18.12.2017 21:46
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"