Практические по информатике 10 класс (№56-60)

№56

Var
c:array[1..1000,1..1000] of integer;
i,j,n,m,sum,aver:longint;
begin
read(n,m);
for i:=1 to n do
 for j:=1 to m do
  begin
  read(c[i,j]);
  sum:=sum+c[i,k];
  end;

aver:=sum div (n*m);

for i:=1 to n do
begin
writeln;
 for j:=1 to m do
  begin
  if c[i,j]  write(c[i,j],' ');
  end;
end;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№57

Program povorot;

var       a, b: array [1..9] of integer;      

 integer;

begin      

for i := 1 to 9 do read(a[i]);     

 b[3] := a[1];     

 b[6] := a[2];      

b[9] := a[3];     

 b[2] := a[4];     

 b[5] := a[5];     

 b[8] := a[6];     

 b[1] := a[7];      

b[4] := a[8];      

b[7] := a[9];             

writeln(b[1], b[2], b[3]);      

writeln(b[4], b[5], b[6]);     

 writeln(b[7], b[8], b[9]);

end.

 

 

 

 

 

 

 

 

 

№58

var f:text;

  min, max,a :integer;

  find:boolean;{есть/нет числа удовлетворяющие условию}

begin

assign(f,'dan.txt'); reset(f);

min:=0; max:=0;

find:=false;

while not eof(f) do

begin

  read(f,a);

  if not find and (a>0) and (a mod 2=0) then

  begin

   min:=a; find:=true;

  end

  else

  if find and (a>0) and (a mod 2=0) and (min>a) then

   min:=a;

 

  if (a>0) and (a mod 2=0) and (max<a) then

   max:=a;

end;

close(f);

assign(f,'res.txt');

rewrite(f);

if max=0 then writeln(f,'чётных положительных чисел нет')

  else

   writeln(f,'min среди чётных положительных чисел =',min, chr(13),

      'max среди чётных положительных чисел нет',max);

  close(f);

end.

 №59

begin  Write('Исходный файл: ');

  var T1 := OpenRead('100.txt');

 while not T1.Eof do  

 Print(T1.ReadlnInteger);

 T1.Close;  WriteLn; 

 WriteLn;  

 Write('Новый файл: ');

 var T2 := OpenRead('101.txt');

 while not T2.Eof do 

  Print(T2.ReadlnInteger);

 T2.Close;

 WriteLn;

end.

№60

for i:=1 to n do begin 

str(i,s1); 

s[i]:=s1+') '+copy(s[i],1,pos(' ',s[i])+1)+'.'; 

writeln(s[i])

end;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Контрольная работа “Файлы”

Const

  sixteen: string = '0123456789ABCDEF';

 

function TenIn16(x: integer): string;

var  s: string;

begin

  repeat  

  s := sixteen[x mod 16 + 1] + s;  

  x := x div 16;

  until x = 0;

  if length(s) = 1 then    s := '0' + s;

  TenIn16 := s;

end;

 

var

  f1, f2: text;

  a1, a2, a3: byte;

 

begin

  assign(f1, 'record.txt');

  reset(f1);

  assign(f2, 'result.txt');

  rewrite(f2);

  while not eof(f1) do 

  begin  

    read(f1, a1, a2, a3);  

    writeln(f2, TenIn16(a1), TenIn16(a2), TenIn16(a3));

  end;

  close(f1);

  close(f2);

end.