Требуется найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц. пример: 00101110000110 ответ: 4; программу нужно написать на паскале
Var s: string; bg,k,i,l: integer; begin write('строка: '); readln(s); i:=1; bg:=0; k:=0; l:=length(s); while (i<l) do begin while (s[i]<>'0') and (i<l) do i:=i+1; bg:=i; while (s[i]='0') and (i<l) do i:=i+1; if i=l then bg:=bg-1; if k<i-bg then k:=i-bg; end; writeln('длина макс. последоват. из нулей = ',k); end.
Const nx=30;mx=30; var i,j,n,m:integer;A:array[1..nx,1..mx] of integer;B,D:array[1..nx] of integer; begin write('Введите n');Readln(n); write('Введите m');Readln(m); for i:=1 to n do begin for j:=1 to m do вegin A[i,j]:=random(100)-20; write(A[i,j]:4);end;writeln;end;writeln; for i:=1 to n do begin for j:=1 to m do begin if (A[i,j] mod 3 =0) then begin B[i]:= B[i] + A[i,j];write(A[i,j]:4);D[i]:= D[i] + 1;end;end;writeln;end; for i:=1 to n do begin if (B[i]=0) and (D[i]= 0) then B[i]:= -10; write(B[i]:4);end;end.
procedure GetPoint(c:char; var A:Point); var x,y:real; begin Write('Введите координаты x и y точки ',c,': '); Read(x,y); A.x:=x; A.y:=y end;
function DistPoint(A,B:Point):real; begin DistPoint:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y)) end;
var A,B,M:Point; d,p,ab,ma,mb:real; begin GetPoint('A',A); GetPoint('B',B); GetPoint('M',M); ab:=DistPoint(A,B); ma:=DistPoint(M,A); mb:=DistPoint(M,B); if ma>=ab+mb then d:=mb else if mb>=ma+ab then d:=ma else begin p:=(ma+mb+ab)/2; d:=2*sqrt(p*(p-ab)*(p-ma)*(p-mb))/ab end; Writeln('Минимальное расстояние составляет ',d) end.
Тестовое решение: Введите координаты x и y точки A: -3 -5 Введите координаты x и y точки B: 2 5 Введите координаты x и y точки M: -3 4 Минимальное расстояние составляет 4.02492235949962
bg,k,i,l: integer;
begin
write('строка: ');
readln(s);
i:=1; bg:=0; k:=0;
l:=length(s);
while (i<l) do
begin
while (s[i]<>'0') and (i<l) do i:=i+1;
bg:=i;
while (s[i]='0') and (i<l) do i:=i+1;
if i=l then bg:=bg-1;
if k<i-bg then k:=i-bg;
end;
writeln('длина макс. последоват. из нулей = ',k);
end.