| ← Декабрь 2019 → | ||||||
|
3
|
4
|
5
|
||||
|
9
|
10
|
11
|
12
|
15
|
||
|
16
|
19
|
20
|
21
|
22
|
||
|
23
|
26
|
28
|
29
|
|||
|
30
|
31
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 197353: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Дан текст на русском языке. Напечатать в алфавитном порядке все звонкие согласные буквы, которые входят в каждое нечетное слово и не входят ни в одно четное слово. в паскале ... Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 08.12.2019, 10:31 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, JonMoxley! Код (Pascal) :: выделить код const
n=30;
type
tBase=record
name:string;
addr:string
end;
var
a:array[1..n]of tBase;
b:string;
c:integer;
begin
for c:=1 to n do
begin
writeln('enter record[',c:2,']:');
repeat
write('name:');
readln(a[c].name);
until length(a[c].name)>0;
write('addres:');
readln(a[c].addr);
end;
write('enter three names:');
readln(b);
for c:=1 to n do
if pos(a[c].name,b)>0 then writeln(a[c].name,' ',a[c].addr);
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 08.12.2019, 11:18 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, JonMoxley! Код (Pascal) :: выделить код const
{на все случаи жизни}
type_a:string='аоиеёэыуюя';{гласные}
type_b:string='бвгджзйлмнр';{согласные звонкие}
type_c:string='кпстфхцчшщ';{согласные глухие}
type_d:string='ьъ';{отдельные буквы}
type_e:string='!@#$%^&*()_-+={}[]:">? ';{возможные разделители}
var
a,b:string;
c,d:set of char;
e:char;
begin
{формирование контрольного множества}
b:=type_a;
c:=[];
while length(b)>0 do
begin
c:=c+[b[1]];
delete(b,1,1);
end;
{ввод строки - так для проформы}
repeat
write('enter string:=');
readln(a);
until length(a)>0;
{контрольная строка с возможными ошибками юзера}
a:='абитура, абитуриент - абитуриетка = абитуриентский';
writeln('before >',a,'<');
{защита от юзера - использование различных разделителей слов}
b:=type_e;
while length(b)>0 do
begin
while pos(b[1],a)>0 do a[pos(b[1],a)]:=',';
delete(b,1,1);
end;
{защита от юзера - удаляем повторы разделителей}
while pos(',,',a)>0 do delete(a,pos(',,',a),1);
{защита от юзера - забыл поставить точку в конце строки}
if a[length(a)]<>','then a:=a+',';
writeln('after >',a,'<');
{главный цикл}
while length(a)>0 do
begin
{выделение очередного слова}
b:=copy(a,1,pos(',',a)-1);
{формирвание текущего множества подконтрольных букв}
d:=[];
while length(b)>0 do
begin
if pos(b[1],type_a)>0 then d:=d+[b[1]];
delete(b,1,1);
end;
c:=c*d;
{удаление провереного слова}
delete(a,1,pos(',',a));
end;
{вывод результата}
write('result:=');for e:='а' to 'я' do if (e in c) then write(e:2);writeln;
writeln('press enter');
readln;
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
