Pascal. СтрокИ.

[АполинАрия]

Помогите пожалуйста...

1)Дана строка S.
Заменить все символы являющиеся цифрами на ***

2) Дан массив из 10 строк.
Отпечатать только те строки, в которых не менее трёх символов равны первому символу строки.

Заранее спасибо!

[spamer]

1)Что то такое:

var
digit: array[0..9] of char = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9');

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  i,j: Integer;
begin
s:= Edit1.Text;
for i:=1 to length(s) do
  for j:= 0 to 9 do
  begin
    if s[i] = digit[j] then
    s[i]:= '*';
  end;
Edit2.Text:= s;
end;

[__STDC__]

там на 3 *... insert лучше юзать.. и вместо массива и двух циклов - множество...

digit:set of char; 
digit := ['0'..'9'];

что-нибудь такое

[АполинАрия]

__STDC__ - Это как?

spamer - Спасибо огромноЕ!
:-*

[spamer]

АполинАрия - помог, нажми на весы слева.

[__STDC__]

Если переписать немного код spamer'a, то как-то так

procedure TForm1.Button1Click(Sender: TObject);
var
  digit:set of char;
  s: String;
  i,j: Integer;
begin
s:= Edit1.Text;
digit := ['0'..'9'];
for i:=1 to length(s) do
    if (s[i] in digit) then begin
       delete(s,i,1);
       insert('***',s,i);
    end;

Edit2.Text:= s;
end;

Хотя это не хорошо.. так будет заменяться только одна цифра.. Ну в моем варианте... т.к. как там три звезды вставляется и длина строки меняется.. если одну ставить, то все ок.. тем более надо на паскале код.. я бы так сделал

var
  digit:set of char;
  s: String;
  i,j: Integer;
begin
readln(s);
i:=1;
digit := ['0'..'9'];
while (i <= length(s)) do 
    if (s[i] in digit) then begin
       delete(s,i,1);
       insert('***',s,i);
       inc(i,3);
    end else inc(i);
writeln(s);
end.

[АполинАрия]

Тобишь во второй версии просто через цикл и всё?

[__STDC__]

во второй версии во-первых это паскаль, а не делфи, а во-вторых там отсутствует массив, порождающий, на мой взгляд, лишний цикл.. Причем во второй версии программа ближе к заданию.. вставляются 3 *, как и просят..
вторая задача - два цикла... один перебирает строки, второй символы в текущей строке.. если текущий символ в текущей строке равен первому символу текущей строки - увеличиваем счетчик, если он равен трем - прерываем вложенный цикл, выводим строку, обнуляем счетчик, повторяем для след. строки.. писать лень на паскале, сами уж как-нибудь попробуйте)

[АполинАрия]

Ум, понятно, спасибО!
Постораюсь, может что интересное и получится))