Настоятельно рекомендую скачать/купить книжку по Паскалю и разобраться что к чему. uses crt; var R: real; function L(R:real):real; begin L:=2*pi*R; end; function S(R:real):real; begin S:=4*pi*Sqr(R); end; begin clrscr; R:=0; writeln ('Vvedite R'); write('R='); readln(R); writeln('L=',L(R)); writeln('S=',S(R)); readln; end.
Const nx = 20;mx = 20;var x: array[1..nx, 1..mx] of integer; i, j, n,m,q,r: integer;k:boolean; b: array[0..nx] of integer;beginWriteln('Введите число строк n ');Read(n);Writeln('Введите число столбцов m ');Read(m);b[0]:=1;if n >= m thenfor i := 1 to n do beginb[i]:=b[i-1]*2;q:=n;endelsefor i := 1 to m do beginb[i]:=b[i-1]*2;q:=m;end;write(b:3); Randomize; Writeln; Writeln('Исходный массив'); for i := 1 to n do begin for j := 1 to m do begin x[i, j]:=Random(10); Write(x[i, j]:4); end; Writeln; end; Writeln; Writeln; for i := 1 to n do begin for j := 1 to m do begin for r:=0 to q do if (i = b[r])or (j = b[r]) then k:= true; if k = true then Write(x[i, j]:4) else Write(' '); k:=false; end; Writeln; end; end.
1. const n=20; var a:array[1..n] of integer; max,imax,i,j,t:integer; begin Randomize; Writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=Random(51)-25; Write(a[i],' ') end; Writeln; max:=a[1]; imax:=1; for i:=2 to n do if a[i]>max then begin max:=a[i]; imax:=i; end; writeln('max = ',max); for i:=1 to imax-1 do for j:=1 to imax-i do if a[j]>a[j+1] then begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end; Writeln('Отсортированный массив:'); for i:=1 to n do Write(a[i],' '); Writeln; end.
2. const n=20; var a:array[1..n] of integer; min,imin,i,j,t:integer; begin Randomize; Writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=Random(51)-25; Write(a[i],' '); end; Writeln; min:=a[1]; imin:=1; for i:=2 to n do if a[i]<min then begin min:=a[i]; imin:=i; end; writeln('min = ',min); for i:=1 to n-imin-1 do for j:=imin to n-i do if a[j]>a[j+1] then begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end; Writeln('Отсортированный массив:'); for i:=1 to n do Write(a[i],' '); Writeln; end.
3. const n=20; var a:array[1..n] of integer; max,imax,min,imin,i,j,t:integer; begin Randomize; Writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=Random(51)-25; Write(a[i],' ') end; Writeln; max:=a[1]; imax:=1; min:=a[1]; imin:=1; for i:=2 to n do begin if a[i]>max then begin max:=a[i]; imax:=i; end; if a[i]<min then begin min:=a[i]; imin:=i; end; end; writeln('max = ',max,' min = ',min); if imax>imin then begin for i:=1 to imax-imin-1 do for j:=imin to imax-i do if a[j]>a[j+1] then begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end end else begin for i:=1 to imin-imax-1 do for j:=imax to imin-i do if a[j]<a[j+1] then begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end; end; Writeln('Отсортированный массив:'); for i:=1 to n do Write(a[i],' '); Writeln; end.
Настоятельно рекомендую скачать/купить книжку по Паскалю и разобраться что к чему. uses crt; var R: real; function L(R:real):real; begin L:=2*pi*R; end; function S(R:real):real; begin S:=4*pi*Sqr(R); end; begin clrscr; R:=0; writeln ('Vvedite R'); write('R='); readln(R); writeln('L=',L(R)); writeln('S=',S(R)); readln; end.