Дана программа, решающая определенную задачу. сформулировать условие задачи, которую...

Question 1

Дана программа, решающая определенную задачу.
сформулировать условие задачи, которую решает данная программа. (паскаль)
var
i, c: integer;
sl: string;

begin
readln(sl);
c := 0;
for i := 1 to length(sl) do begin

if sl[i] = '(' then c:=c+1;
if sl[i] = ')' then c:=c-1;
end;
writeln(c = 0)
end.

Question 2

спасибо))

Question 3

а можно с Вами связаться помимо этого сайта?

Question 4

Хорошее решение... я сам всегда именно так считаю в программах скобки.

Question 5

К сожалению для арифметики не очень нет проверки на дурака

Question 6

Тут не требуется. Но если нужно проверить, нет ли некорректно расставленных скобок, нужно все время следить, чтобы "с" не стало отрицательным. Иначе и вариант ))))) ((((( будет верным.

Question 7

Ну а если серьезно подходить - нужно парсер писать и синтаксичкский анализатор)))

Question 8

*синтаксический

Question 9

разве for не должен начинаться с 0 ?

Question 10

Не должен, если это Паскаль, а не С/С++. В Паскале символы в строке традиционно нумеруются от единицы.

Question 11

Var
    i, c: integer;
    sl: string;

begin
    readln(sl);

    c := 0;
    for i := 1 to length(sl) do
    begin
        if sl[i] = '(' then c := c + 1;
        if sl[i] = ')' then c := c - 1;
    end;

    writeln(c = 0)
end.

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

archery_zn · Answer 1 · 2018-04-26T08:06:51+0000

Var
    i, c: integer;
    sl: string;

begin
    readln(sl);

    c := 0;
    for i := 1 to length(sl) do
    begin
        if sl[i] = '(' then c := c + 1;
        if sl[i] = ')' then c := c - 1;
    end;

    writeln(c = 0)
end.

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