Срочно задача в Паскале строковые величины!

[Foolloock]

Уважаемые умные люди,которые просматривают в данный момент эту тему!Срочно до 6 часов утра 13 ноября сего года я нуждаюсь в решении следующей задачи:


---В строке удалить символ двоеточие( : ) и подсчитать количество удалённых символов.---


Если я завтра не здам эту задачу, то мне хана

Очень прошу помоч!Приму несколько вариантов решения

[Apokal]

Строка имеет ограниченый размер?
Если нет то:

Код: Выделить всё

Uses CRT;
var
counter,i:integer; buf:array[0..256] of char;
begin
writeln('Enter String:');
readln(buf);
for i:=0 to 256 do
      if(buf[i]=0) break;
      else 
         if(buf[i]=':')
         begin
             buf[i]=32;
             counter:=counter+1;
         end;
         else continue;
writeln('processed string : ',buf); 
writeln(' number of deleted chars : ',counter); 
end.

Еси есть какието синтаксические ошибки то уж извините я реально забыл паскаль, но думаю с кода сама идея понятна.

[Foolloock]

Спасибо большое,но это немного неправильный вариант,точнее прога работает но решение не рационально)Есть какие другие варианты?

[Apokal]

Я б отладил этот код, но просто у меня траблы с видюхой при запуске паскаля тупо перестает подаватса сигнал на моник, никак нерешу. А нащет других вариантов -- то могу екзешник выложить или код на с++ написать, пойдет?

Я тут зохавал мандаринку, вспомнил что паскаль то непишет в конце строчки 0 а пишет в первый байт количесвто символов + readln неможет читать в массив и настоящие потсаны вместо counter:=counter+1 пишут inc(counter);

Вообщем после доработок вот что вышло проверь может запашет))))

Код: Выделить всё

Uses CRT;
var
const counter:integer:=0; i:integer; buff:string;
begin
writeln('Enter String:');
readln(buff);
for i:=0 to length(buff) do
        if buff[i]=':') then
        begin
            buff[i]=32;
            inc(counter);
        end;
        else continue;
writeln('processed string : ',buff); 
writeln(' number of deleted chars : ',counter); 
end. 

я тут вместо символов двоеточия тупо ставил пробелы, но еси тебе реально нада удалить сивмволы двоеточия то вместо buff=32; напишы delete(buff,i,1).

[Foolloock]

ВО!Спс дружище!

[zubchik]

Дорогие друзья!! мне очень необходима ваша помощь!!
у меня есть одна задача, с которой я не могу справиться!! если вам не трудно, то помогите...если я не принесу решение этой задачи, то МЕНЯ ПОВЕСИТ МОЯ ЗЛАЯ УЧИТЕЛЬНИЦА

задача выглядит так
Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.

ЗАРАНИЕ СПАСИБО!!

[Apokal]

ВО!Спс дружище!

Абы оно помогло)))

Дорогие друзья!! мне очень необходима ваша помощь!!
у меня есть одна задача, с которой я не могу справиться!! если вам не трудно, то помогите...если я не принесу решение этой задачи, то МЕНЯ ПОВЕСИТ МОЯ ЗЛАЯ УЧИТЕЛЬНИЦА

задача выглядит так
Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.

ЗАРАНИЕ СПАСИБО!!

Я так понимаю задача на паскале?

Ну вот примерно код хз пашет ли он:

Код: Выделить всё

Uses CRT;
var
const counter1:integer:=0; const counter2:integer:=0; i:integer; buff:string;
begin
writeln('Enter String:');
readln(buff);
for i:=0 to length(buff) do
        if buff[i]='(' then
            inc(counter1);
        else 
           if buff[i]=')' then
              inc(counter2);
           else continue;
if counter1=counter2 then writeln('Chislo skobok odinakovoe');
else writeln('Chislo skobok neodinakovoe');
end.

Можно и через case of :

Код: Выделить всё

Uses CRT;
var
const counter1:integer:=0; const counter2:integer:=0; i:integer; buff:string;
begin
writeln('Enter String:');
readln(buff);
for i:=0 to length(buff) do
        case buff[i] of
        '(':  inc(counter1);
        ')':  inc(counter2);
        else continue;
        end;
if counter1=counter2 then writeln('Chislo skobok odinakovoe');
else writeln('Chislo skobok neodinakovoe');
end.

[Esgal]

в 10м классе на олимпиаду ходил. такая же (про скобки) задача была, только скобки трёх видов {}[]() и пнужно ыбло проверить правильность "выражения"...
т.е. если {[}] - это не правильно... вот

[Foolloock]

Спасибо что помогли однокласснику моему))