Сообщение от :
program zad1;
var
q,x,y:real;
begin
Write('Q = ');Readln(Q);
Write('X = ');Readln(X);
y:=((sqr(x)*sqr(x))*(x+q)+sqr(q)*cos(x+q))/sqrt(abs(x+q));
Writeln('Y = ',y:3:3);
readln;
end.
Сообщение от :
program zad2;
var
x:integer;
y:real;
begin
Write('X = ');Readln(X);
case (X) of
1: y:=x*x*x*x*x+x;
2: y:=1/x;
3: y:=1/x*x;
else y:=sqrt(abs(x*x*x*x*x+x));
end;
Writeln(Y:5:3);
readln;
end.
Сообщение от :
program zad3;
begin
Writeln('Vvedite massiv B: ');
For i:=1 to 12 do read(B[i]);
readln;
min:=0;
mini:=0;
For i:=1 to 12 do
begin
if ((B[i]<min) or (min=0)) and (B[i]>0) then
begin
min:=B[i];
mini:=i;
end;
end;
If mini>0 then
begin
Writeln('Min index = ',mini);
Writeln('Min = ',min);
end
else Writeln('Net polojitelnyh znacheniy');
Writeln('Massiv B = ');
For i:=1 to 12 do Write(B[i],' ');
readln;
end.
Сообщение от :
program zad4;
var
K:array[1..10] of integer;
j,i,k1,c:integer;
begin
Writeln('Vvedite massiv K: ');
For i:=1 to 10 do read(K[i]);
readln;
writeln;
write('INPUT: ');
for i:=1 to 10 do write(K[i],' ');
writeln;
For j:=10 downto 1 do
begin
k1:=1;
For i:=1 to j do if K[i]<K[k1] then k1:=i;
c:=K[j];K[j]:=K[k1];K[k1]:=c;
end;
write('OUTPUT: ');
for i:=1 to 10 do write(K[i],' ');
readln;
end.
Сообщение от :
program zad5;
var
A:array[1..3,1..3] of integer;
Amin:array[1..3] of integer;
minJ:integer;
maxI,maxJ:integer;
min,max:integer;
i,j:integer;
begin
Writeln('Vvedite matricy A po strokam: ');
for i:=1 to 3 do
begin
for j:=1 to 3 do read(A[i,j]);
readln;
end;
maxI:=0;maxJ:=0;
max:=0;
for i:=1 to 3 do
begin
min:=0;
for j:=1 to 3 do
begin
if (A[i,j]<=min) or (j=1) then
begin
min:=A[i,j];
Amin[i]:=min;
minJ:=j;
end;
end;
if (Amin[i]>max) or (i=1) then
begin
max:=Amin[i];
maxI:=i;
maxJ:=minJ;
end;
end;
Write('Minimal = ');
for i:=1 to 3 do Write(Amin[i],' ');
writeln;
Write('Max from minimal, A[',maxI,',',maxJ,'] = ',max);
writeln;
Writeln('Matrica A: ');
for i:=1 to 3 do
begin
for j:=1 to 3 do write(A[i,j],' ');
writeln;
end;
readln;
end.