задача на Паскале(Paskal)

[aiktz]

Привет всем! Очень нужна ваша помощь при решении задачи.
1.Каждую закрывающую скобку ')', для которой нет парной открывающей '(', заменить на '?'. {Мне препод сказал, чтобы я сначала задала каждой скобке номер, а затем написала само условие задачи, я задала номера к скобкам, а вот с условием продбема..помогите..плиз}

program Nastya;
uses crt;
const n=50;
var
i,j,k:integer;
st:string;
at:array [1..n] of integer;
begin
st:='(ab(be)(be(ed)yy))';
i:=0;
j:=0;
for k:=1 to length (st) do
begin
if st[k]='(' then begin i:=i+1; at[k]:=i;  end else at[k]:=0;
if st[k]=')' then begin j:=j+1; at[k]:=j; end;
end;
writeln(st);
for k:=1 to length(st) do
write(at[k]);
readln;
end;

2.подсчитать кол-во слов в строке ' Сегодня третье апреля'.

Кто может сказать как сделать в программе Паскаль, чтобы буквы строки при проверке программы падали???????

[IT-man]

2

program stroka; 
 uses crt;
  var
   st:string;
   k,i,n:integer;
  begin
   clrscr;
    writeln ('Введите предложение');
    readln(st);
    n:=length(st);
     for i:=1 to n do
       begin
        if (st[i]=' ') or (st[i]=', ') or (st[i]='. ') then
         k:=k+1;
      end;
       writeln ('Количество слов в строке',k);
       readln;
end.

[Sazary]

Хм.. Зачем нумеровать скобки?

uses crt;
var
st : string;
i, len, k : integer;
begin
clrscr;
st:='(ab(be)))(be(ed)yy))';

writeln(st);
writeln;
len := length(st);
k := 0;
for i:=1 to len do
 begin
 if st[i]='(' then inc(k);
 if st[i]=')' then
   begin
   dec(k);
   if k<0 then
    begin
    st[i] := '?';
    inc(k);
    end;
   end;

 end;

writeln(st);

readln;
end.

Результат:

(ab(be)))(be(ed)yy))

(ab(be))?(be(ed)yy)?

[aiktz]

а фиг знает зачем нумеровать......ое наорал на меня и сказал чтобы сначал я пронумеровала(((

[aiktz]

а что такое inc(k) и dec(k)??

[Sazary]

а что такое inc(k) и dec(k)??

inc(k)

аналогично

k := k + 1;

А dec(k) - k := k -1;

aiktz, просто как-то не вижу смысла этого делать.. Может, вы просто сначала сделали неверно, поэтому он так и сказал?

to IT-man
Ваш вариант не работает.
Введите, например, "(()))))))))". Да вообще любую строку.

[IT-man]

to Sazary
не понял условия! стер!!!

[aiktz]

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

[aiktz]

спасибо вам огромное!!!!!!!..а вы не подскажете как выведенную строку сдеать так, чтобы она либо двигалась либо по одной буковки начали падать?

[Sazary]

aiktz, это только усложнит программу.
Да и как он, интересно, хочет это через массивы делать.. А самое главное - зачем?
Хоть я и не знаю вашего преподавателя, но в данном случае он мыслит как-то нерационально. Имхо, конечно..

а вы не подскажете как выведенную строку сдеать так, чтобы она либо двигалась либо по одной буковки начали падать?

А куда двигалась? Или куда падала?

Ну вот такую процедуру посмотрите:

procedure fun(s : string);
var i : integer;
begin
for i:=1 to length(s) do
 begin
 write(s[i]);
 delay(100);
 end;
writeln;
end;

Вызываете так:

fun(<строка>);