| ← Декабрь 2015 → | ||||||
|
1
|
2
|
3
|
4
|
|||
|
7
|
11
|
12
|
13
|
|||
|
14
|
15
|
16
|
17
|
18
|
19
|
20
|
|
21
|
22
|
23
|
24
|
25
|
26
|
27
|
|
28
|
29
|
30
|
31
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Консультация # 188311: Здравствуйте! Прошу помощи в следующем вопросе: Напишите программу, подсчитывающую количество различных букв в заданном слове.(BPascal)... Консультация # 188312: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Напишите программу, удаляющую из слова каждую третью букву.... Консультация # 188313: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Напишите программу, которая в заданном тексте меняет слово «Петр» на слово «Иван».(BPascal)... Консультация # 188314: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Напишите программу, которая удаляет из введенной строки любой требуемый введенный с клавиатуры символ. Процесс удаления выделите в отдельную процедуру.(BPascal)... Консультация # 188315: Здравствуйте! Прошу помощи в следующем вопросе: В заданном тексте заменить все буквы "а" на букву "о".(BPascal)... Консультация # 188316: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Составить программу, которая обращает введенное слово, т.е. переставляет символы в обратном порядке.(BPascal)... Консультация # 188317: Здравствуйте! Прошу помощи в следующем вопросе: Составить программу, определяющую, является ли введенное слово перевертышем.(BPascal)... Консультация # 188318: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Напишите программу, сортирующую символы введенной с клавиатуры строки в порядке возрастания их номеров в ASCII-таблице.(BPascal)... Консультация # 188321: Здравствуйте! Прошу помощи в следующем вопросе: Составить программу, удаляющую в строке все, что заключено между фигурными скобками и их самих.(BPascal)... Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 02.12.2015, 16:42 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
b:set of char;
c,d:integer;
begin
write('Enter string:');
readln(a);
b:=[];
for c:=1 to length(a) do
b:=b+[a[c]];{заполняем множество}
d:=0;
for c:=0 to 255 do{считаем буквы}
if chr(c)in b then inc(d);
writeln('Result:',d);
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 02.12.2015, 16:42 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
b:integer;
begin
write('Enter string:');
readln(a);
b:=3*(length(a) div 3);{считаем позицию последней цифры}
while b>0 do{повторяем пока больше}
begin
delete(a,b,1);{удаляем символ}
dec(b,3);{уменьшаем позицию}
end;
writeln('Result:',a);
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 02.12.2015, 16:43 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): const
b:string='Petr';
c:string='Ivan';
var
a:string;
begin
write('Enter string:');
readln(a);
while pos(b,a)>0 do{ищем Петр}
begin
insert(c,a,pos(b,a));{Вставляем Иван}
delete(a,pos(b,a),length(b));{удаляем Петр}
end;
writeln('Result:',a);
end.Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 02.12.2015, 16:44 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
b:char;
procedure delchar(var a:string;b:char);
begin
delete(a,pos(b,a),1);{удаляем символ}
end;
begin
write('Enter string:');
readln(a);
write('Enter char:');
readln(b);
while pos(b,a)>0 do delchar(a,b);{повторяем пока есть хоть один символ}
writeln('Result:',a);
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 02.12.2015, 16:44 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
begin
write('Enter string:');
readln(a);
while pos('a',a)>0 do a[pos('a',a)]:='o';{ищем символ и заменяем}
writeln('Result:',a);{выводим результат}
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 02.12.2015, 16:47 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
b,c:integer;
d:char;
begin
write('Enter string:');
readln(a);
b:=1;
c:=length(a);
while b<c do
begin
d:=a[b];{меняем местами символы}
a[b]:=a[c];
a[c]:=d;
inc(b);
dec(c);
end;
writeln('Result:',a);{выводим результат}
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 02.12.2015, 16:47 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
b,c:integer;
begin
write('Enter string:');
readln(a);
b:=1;
c:=length(a);
while(b<c)and(a[b]=a[c])do{условие задание}
begin
inc(b);
dec(c);
end;
writeln('Result:',b>=c);{выводим результат}
end.Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 02.12.2015, 16:48 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
b:set of char;
c:integer;
begin
write('Enter string:');
readln(a);
for c:=1 to length(a) do{заполняем множество}
b:=b+[a[c]];
writeln('Result:');
for c:=0 to 255 do{выводим множество}
if chr(c)in b then write(chr(c));
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 02.12.2015, 16:50 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
b,c,d:integer;
begin
write('Enter string:');
readln(a);
b:=1;
repeat
c:=0;
d:=0;
{ищем открывающую скобку}
while(b<length(a))and(a[b]<>'{')do inc(b);
if(a[b]='{')then c:=b;{запоминаем индекс}
{ищем закрывающую скобку}
while(b<length(a))and(a[b]<>'}')do inc(b);
if(a[b]='}')then d:=b;{запоминаем индекс}
if c*d>0 then delete(a,c,d-c+1);{удаляем всё между открывающей и закрывающей скобкой}
until b=length(a);
writeln('Result:',a);
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
