Задачка на строки Опции

[Kreaman]

Здравствуйте, уважаемые форумчане....У меня вот проблемка, я уже раза завалил экзамен по программированию, никак не получается у меня с массивами и строками...

Кто может пожалуйста напишете решение....заранее очень благодарен)...

2. Сделать программу.
Ввести строку. Заменить все знаки умножения "*" знаком процента "%". Если знака умножения нет, то вывести об этом сообщение.

[volvo]

Может кто-нить пояснит

Сравни со своим кодом:

var
	s: string;
	p, count: integer;
	
begin
	s := 'start*finish*begin*end';
	count := 0;	{ <--- счетчик замененных символов }
	repeat
		p := pos('*', s);	{ <--- находим позицию звездочки }
		if p > 0 then begin	{ если звездочка есть, (p <> 0) то }
			s[p] := '%'; inc(count); 
			{ заменяем соответствующий символ на процент }
			{ и увеличиваем счетчик произведенных замен }
		end;
	until p = 0;	{ выполнять, пока звездочка будет находиться функцией pos }
	
	if count = 0 then writeln('false')	{ <--- Замен не было? Значит, не было звездочек }
	else writeln(s);
end.
	

Сообщение отредактировано: volvo - 30.01.2008 23:59