066536 / 57А, 119Д, 316Д, 371
.doc57a
var a,f: real;
begin
write('a=');
readln(a);
if (a>=-2) and (a<2) then f:=sqr(a)
else f:=4;
writeln(f);
readln
end.
119д
var s,e: real;
i,z: integer;
begin
write('e=');
readln(e);
s:=0; i:=0; z:=-1;
repeat
inc(i);
z:=-1*z;
s:=s+z/(i*(i+1)*(i+2));
until abs(z/(i*(i+1)*(i+2)))<e;
writeln(s);
readln
end.
316в
program z316v;
var i,j,nom,n: integer;
s1,s2,s3: string;
begin
write('n=');
readln(n);
writeln('введите последовательность символов');
readln(s1);
s1:=s1+' ';
nom:=1;
for i:=1 to length(s1) do
if s1[i]<>' ' then s2:=s2+s1[i] else
begin
if (s2<>'') and odd(nom) then
delete(s1,i-length(s2),length(s2));
nom:=nom+1;
s2:='';
end;
for i:=1 to length(s1) do
if s1[i]<>' ' then s2:=s2+s1[i] else
if s2<>'' then
begin
for j:=length(s2) downto 1 do
s3:=s3+s2[j];
s3:=s3+' ';
s2:='';
end;
writeln(s3);
readln
end.
371
var a,b,c: array [1..50,1..50] of real;
n,i,j: integer;
begin
write('n=');
readln(n);
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(700)/7;
write(a[i,j]:7:3)
end;
writeln
end;
writeln;
for i:=1 to n do
for j:=1 to n do
if j>=i then
begin
b[i,j]:=a[i,j];
c[i,j]:=-a[i,j];
end
else
begin
b[i,j]:=a[j,i];
c[i,j]:=a[i,j];
end;
for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:7:3);
writeln
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(c[i,j]:7:3);
writeln
end;
readln
end.
5 7a
1 19д
316в
3 71
Таблица соответствия идентификаторов и переменных
57а
идентификатор |
переменная |
описание |
a |
a |
данное действительное число |
f |
f |
заданная функция |
119д
идентификатор |
переменная |
описание |
s |
|
заданная бесконечная сумма |
e |
заданная точность |
|
i |
i |
счетчик |
z |
|
числитель дроби |
316в
идентификатор |
переменная |
описание |
i |
|
счетчик |
j |
|
счетчик |
nom |
|
параметр, определяющий четность номера слова |
n |
n |
данное натуральное число n |
s1 |
данные символы |
|
s2 |
|
слово в данной последовательности символов |
s3 |
|
преобразованная последовательность символов |
371
идентификатор |
переменная |
описание |
a |
a |
данная матрица |
b |
b |
полученная матрица |
c |
c |
полученная матрица |
n |
|
размер матрицы |
i |
i |
счетчик |
j |
j |
счетчик |