Var s:string; n,k,i:integer; begin for n:=1 to 2 do begin writeln('Введите строку ',n,':'); readln(s); k:=0; for i:=1 to length(s) do begin case s[i] of '[': k:=k+1; ']': k:=k-1; end; end; if k=0 then writeln('В строке ',s,' количество [ и ] одинаково') else writeln('В строке ',s,' количество [ и ] не одинаково'); end; end.
Пример: Введите строку 1: c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково Введите строку 2: Просто [ пример ]] со [[ скобками В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково
Итак, для начала разберемся с формулой:
Возьмем случайные значения
a = 1
b = -11
c = -152
Подставим и получим
x^2 - 11x - 152 = 0
d = 27
x1 = 19
x2 = -8
Теперь подставим всё это в программу:
var
a,b,c,i,n : integer;
r1,r2,d : real;
begin
i:=0;
write('Введите колличество повторений: ');
read(n);
while i <> n do
begin
i:=i+1;
writeln('Ввод номер ', i, ': ');
write('a = '); read(a);
write('b = '); read(b);
write('c = '); read(c);
d:=(sqr(b) - (4*a*c));
if d > 0 then
begin
r1:=((-b + sqrt(d)) / (2*a));
writeln('x1= ', r1:3:2);
r2:=((-b - sqrt(d)) / (2*a));
writeln('x2= ', r2:3:2)
end
else
if (d = 0) then
begin
writeln('x = ');
writeln(-b / (2 * a))
end
else
if (d < 0) then
begin
writeln('Нет корней')
end
end;
end.