| ← Октябрь 2015 → | ||||||
|
1
|
2
|
3
|
4
|
|||
|---|---|---|---|---|---|---|
|
5
|
6
|
7
|
8
|
9
|
10
|
11
|
|
12
|
13
|
14
|
15
|
17
|
18
|
|
|
19
|
20
|
21
|
22
|
24
|
25
|
|
|
26
|
27
|
28
|
30
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Консультация # 181610: Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос: Если в тексте нет символа *, то оставить этот текст без изменения, иначе каждую из малых латинских букв, предшествующих первому вхождению символа *, заменить на цифру 3.... Консультация # 134361: Уважаемые эксперты, я снова прошу вас о помощи. Я не уверен в своем способе ввода печатающего текста, смотрите я делаю так delay(65000); write(a); delay(65000); write(b); ну и типо того. Когда же следует вводить длинный текст это стает чуть нудно... Возможно ли в этом случае поступить иначе? Ой. еще чуть не забыл, возможно ли прикреплятькартинк... Консультация # 14745: Уважаемые эксперты помогите! нужно составить программу на Turbo Pascal. Вот условие: Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру: Ф.И.О. |Домашний адрес | Номер участка | Год рождения | ---------- |---------------|---------------|--------------| тип строка | тип строка | тип integer | 1900-2000... Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос:
Дата отправки: 25.12.2010, 20:53 Консультирует lamed (Академик): Здравствуйте, Анна! ABC-Pascal. Код : program p181610;
{ Если в тексте нет символа *, то оставить этот текст без
изменения, иначе каждую из малых латинских букв,
предшествующих первому вхождению символа *, заменить на
цифру 3. }
{ Допущения. Будем считать текстом строку, так как иное не сказано }
var
s: string; { Строка текста }
i: integer; { Счетчик, текущая позиция символа в строке }
len: integer; { Длина строки }
begin
{ Читаем строку }
readln(s);
i:= 1;
len := length(s);
{ Проходим до конца строки или до первого вхождения символа '*' }
while (s[i]<>'*') and (i<=len) do
i:= i+1;
{ Если символ найден, производим замены }
if (i<=len) then { позиция за первым вхождением символа '*' }
begin
i:= i-1;
while (i>=1) do
{ справа налево, чтоб не вводить лишнюю переменную }
begin
if s[i] in ['a'..'z'] then { каждую из малых латинских букв }
s[i] := '3';
i:= i-1;
end;
end;
{ Печатаем строку }
writeln(s);
end.Код : qwerty*qwety*qw* 333333*qwety*qw* Код : 123123цукйкйtyutryutru 123123цукйкйtyutryutru Код : * *
Консультирует Юдин Евгений Сергеевич: Здравствуйте, Анна! Код : program p181610;
{ Модернизированная версия программы }
var
s: string; { Строка }
sm:string[1]; {Символ}
i: integer;
len: integer; { Длина строки }
begin
write('Press input str ');
readln(s);
write('Press symbol ');
readln(sm);
i:= 1;
len := length(s);
i:=Pos(sm,s);
if (i<=len) then {идем по строке с позиции, предшествующей первому вхождению символа sm}
begin
i:= i-1;
while (i>=1) do
begin
if s[i] in ['a'..'z'] then
s[i] := '3';
i:= i-1;
end;
end;
writeln(s); {Вывод результата на экран}
end.Удачи разобраться! 
Уважаемые эксперты, я снова прошу вас о помощи. Я не уверен в своем способе ввода печатающего текста, смотрите я делаю так delay(65000);
Дата отправки: 27.04.2008, 14:15 Консультирует Евчик Сергей Александрович: Здравствуйте, Пашков Дмитрий Владимирович! Можно поступить следующим образом:
Уважаемые эксперты помогите! нужно составить программу на Turbo Pascal. Вот условие:
Дата отправки: 01.01.2004, 00:01 Консультирует Strory: Доброе время суток, KENT!
Консультирует Вадим Исаев ака sir Henry (Старший модератор): Приветствую Вас, KENT!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
