 |
Автор |
|
Текст сообщения |
|
| |
|
| |
 SІD
Сообщений: 902
|
|
|
| Карма: 0 Известность: 471 |
|
| |
 |
Добавлено: 12.11.2008 21:45 (5867 дней)
| |
Нужна помощь. Задача по Паскалю. Условие -- Дано текст, в котором есть хотя бы одна точка. Посчитать кол-во запятых в части текста до точки.
У меня постоянно выводит, что t=0. Уже перепробовал много раз переписать задачу все равно не выходит...
То, что я уже сделал:
var S,S1,S2: string;
n,i,k,t:integer;
begin
readln(S);
n:=length(S);
for i:=1 to n do
S1:='.';
k:=pos(S1,S);
S2:=copy(S,1,k-1);
If copy(S,1,k-1)=',' then t:=t+1;
writeln('t=',t);
end. |
БКТУ -- Блазер, Келлер, Террон Уроды 
Рейнджеры из UA
Украинский Клан Рейнджеров (УКР)
Союз Вольных Рейнджеров (СВР)
[Чемпионат] Последняя надежда
| |
|
|
|
| |
|
|
|
| Карма: 0 Известность: 392 |
|
| |
|
Добавлено: 12.11.2008 21:49 (5867 дней)
| |
| | SІD:
| | | var S,S1,S2: string; n,i,k,t:integer; | |
|
5 запятых |
I shot the Dj
| |
|
|
|
| |
|
| |
SІD
Сообщений: 902
|
|
|
| Карма: 0 Известность: 471 |
|
| |
|
|
|
|
|
| |
|
|
|
| Карма: 0 Известность: 2155 |
|
| |
|
Добавлено: 12.11.2008 21:51 (5867 дней)
| |
блин, если б я что помнил  |
theoretic (15:32:56 29/02/2008)
ща даба в красную карму народ загонит со злости...))
Alba (15:33:17 29/02/2008)
а даб со злости отменит карму)
| |
|
|
|
| |
|
|
|
| Карма: 0 Известность: 392 |
|
| |
|
Добавлено: 12.11.2008 21:55 (5867 дней)
| |
1 запятая после S, вторая - после S1, третья, четвёртая и пятая после n,i и k соответственно. Больше запятых до точки
Не содержится
|
I shot the Dj
| |
|
|
|
| |
|
| |
SІD
Сообщений: 902
|
|
|
| Карма: 0 Известность: 471 |
|
| |
|
|
|
|
|
| |
|
| |
ZavroN
Chilled at last
Сообщений: 1888
|
|
|
| Карма: 0 Известность: 374 |
|
| |
|
Добавлено: 12.11.2008 22:01 (5867 дней)
| |
SІD, извини, лень разбираться в твоём коде. Держи, вроде работает.
program pr;
var
s: string;
i,c: integer;
begin
readln(s);
s:=copy(s,1,pos('.',s));
c:=0;
for i:=1 to length(s) do if s[i]=',' then inc(c);
writeln('c = ',c);
end.
Можно ещё сократить, не укорачивая s, а просто проходя циклом от 1 до pos('.',s), но это уже на твоё усмотрение. |
And may your lives be long,
And may your wishes all be simple,
And may your hearts stay strong.
© Cloud Cult
| |
|
|
|
| |
|
| |
SІD
Сообщений: 902
|
|
|
| Карма: 0 Известность: 471 |
|
| |
|
|
|
|
|
| |
|
| |
ZavroN
Chilled at last
Сообщений: 1888
|
|
|
| Карма: 0 Известность: 374 |
|
| |
|
Добавлено: 12.11.2008 22:06 (5867 дней)
| |
| Закрывать? |
And may your lives be long,
And may your wishes all be simple,
And may your hearts stay strong.
© Cloud Cult
| |
|
|
|
| |
|
| |
SІD
Сообщений: 902
|
|
|
| Карма: 0 Известность: 471 |
|
| |
|
|
|
|
|
).jpg)
