![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
KenShi |
![]()
Сообщение
#1
|
|||
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: ![]() ![]() ![]() |
Program Mnojestva;
Uses crt;
Type txt=array[1..100] of string;
Procedure slovo(x:string; var a:txt; var num:integer);
var p,b:integer;
begin
num:=0;
p:=1;
while p<=length(x) do begin
while (p<=length(x)) and (x[p]=',') do p:=p+1;
if (p<=length(x)) and (x[p]<>'.') then
begin
b:=p;
while (p<=length(x)) and (x[p]<>',') and (x[p]<>'.') do p:=p+1;
if (p-b>0) then begin
num:=num+1;
a[num]:=copy(x,b,p-b);end; end; end; end;
type charset=set of char;var z,z1,z2,z3:charset;
str, str1: string;{}
i, j, k: integer;
a:txt;
c:char;
begin
clrscr;
z:=['б','в','г','д','ж','з','л','м','н','р'];
z1:=[];
z2:=[];
writeln('введите строку, разделяя слова запятыми, в конце поставить точку');
read(str);
slovo(str, a, i);
for j:=1 to i do write(a[j],' ');
str1:=a[1];
for k:=1 to length(str1) do
if str1[k] in Z then Z1:=Z1+[str1[k]];
for j:=2 to i do
begin
str1:=a[j];
if (str1[k] in Z) and (str1[k] in Z1) then z2:=z2+[str1[k]];
z1:=z1+[str1[k]];
end;
writeln;
write('z2: ');
for c:='а' to 'я' do
if c in z2 then write(c,' ');writeln;
readkey;
end.
________________________________________________________________________________ _______________ Цель программы: Напечатать в алфавитном порядке все звонкие согласные буквы, которые входят более чем в одно слово, используя стандартные процедуры и функции обработки множества P.s. заранее спасибо |
|||
![]() ![]() |
Lapp |
![]()
Сообщение
#2
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
Ты ошибся (помимо ошибки в процедуре Slovo) в том, что сравниваешь только с первым словом. Надо в цикле пройтись по всем словамю Примерно так:
Program Mnojestva;
Uses crt;
Type
txt=array[1..100] of string;
Procedure slovo(x:string; var a:txt; var num:integer);
var
p,b:integer;
begin
num:=0;
p:=1;
while p<=length(x) do begin
while (p<=length(x)) and (x[p] in[',','.']) do p:=p+1;
if (p<=length(x)) and (x[p]<>'.') then begin
b:=p;
while (p<=length(x)) and (x[p]<>',') and (x[p]<>'.') do p:=p+1;
if (p-b>0) then begin
num:=num+1;
a[num]:=copy(x,b,p-b);
end;
end;
end;
end;
type
charset=set of char;
var
z,z1,z2:charset;
s: string;{}
i, j, k, n: integer;
a:txt;
c:char;
begin
clrscr;
z:=['б','в','г','д','ж','з','л','м','н','р'];
writeln('введите строку, разделяя слова запятыми, в конце поставить точку');
readLn(s);
{s:='бвг,вгд,дзж';}
slovo(s, a, n);
for j:=1 to n do write(a[j],' ');
z2:=[];
for i:=1 to n do begin
z1:=[];
for j:=1 to length(a[i]) do if a[i][j] in z then z1:=z1+[a[i][j]];
for k:=1 to n do if k<>i then begin
for j:=1 to Length(a[k]) do if (a[k][j] in z)and(a[k][j] in Z1) then z2:=z2+[a[k][j]];
end
end;
writeln;
write('z2: ');
for c:='а' to 'я' do if c in z2 then write(c,' ');
writeln;
readkey;
end.
А вообще, решать нужно, конечно, не так.. И, будь добр, обрати внимание на правильное форматирование (на примере исправленного кода). -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
KenShi |
![]()
Сообщение
#3
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: ![]() ![]() ![]() |
Спасибо за помощь, учту все ошибки. Не подскажете какие-нибудь хорошие учебники(самоучители)? Я программировать только 2ую неделю учусь, а результаты пока грубые, как видите...
|
Lapp |
![]()
Сообщение
#4
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
Не подскажете какие-нибудь хорошие учебники(самоучители)? Я программировать только 2ую неделю учусь, а результаты пока грубые, как видите... Вижу, что для второй недели результаты вполне неплохие - либо ты только этим эти полторы недели занимался денно и нощно, не спя и не кушая, либо.. извини, трудно поверить (это типа комплимент)). Лично я никаких книг посоветовать не могу, но для этого есть специальные разделы и вопрос этот поднимался не раз (правда, кажется, не очень успешно). Лучшее обучение - решение задач + разговоры. Если интересно, вот более короткое решение твоей задачи. Оно, правда, не удовлетворяет условию использования операций над множествами.. const
z=['б','в','г','д','ж','з','л','м','н','р'];
var
s: string;
c: char;
i,p: integer;
begin
s:='бвг,вгд,дзж';
for c:='а' to 'я' do if c in z then begin
p:=0;
for i:=1 to Length(s) do if s[i]=c then p:=i;
if Pos(',', Copy(s,Pos(c,s),p-Pos(c,s))) >0 then Write(c,' ')
end;
ReadLn
end.
Но твое решение тоже слабо с ним согласуется (только in и Include). По-настоящему, с множествами надо работать иначе.. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
KenShi |
![]()
Сообщение
#5
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: ![]() ![]() ![]() |
На сколько я разобрался, тут программа просматривает все символы, и если имеется два одинаковых вхождения символа из множества, то она смотрит есть ли между этими вхождениями запятая, если да, то выводит этот символ и так для каждой буквы множества,входящей в строку?
|
Lapp |
![]()
Сообщение
#6
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
просматривает все символы, и если имеется два одинаковых вхождения символа из множества, то она смотрит есть ли между этими вхождениями запятая, если да, то выводит этот символ и так для каждой буквы множества,входящей в строку? Да, именно. При этом совершенно не нужно заботиться о разделении на слова, как видишь.Конечно, это специальный случай. Вообще такие задачи, конечно, решаются через множества. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
![]() ![]() |
![]() |
Текстовая версия | 25.07.2025 10:10 |