У первых название двухкрылки,состав:крылья,усы,брюшко,лапки действия:летать,шевелить усами,охотиться.У вторых название двуххвостки состав: хвосты,усы,лапки,брюшко,крылья действия тоже самое что и у первых
//PascalABC.Net 3.2
begin //true - если принадлежит, false - если не принадлежит
var x:=readreal ('x =');
var y:=readreal ('y =');
write ((sqrt(y*y+x*x)<=1) and (y>=0) and (y>=-x));
end.
<em><u /></em><u />Версия языка не указана, поэтому сделал в самой последней и в самой старой, которая нашлась.<em><u>
// PascalABC.Net 3.0</u></em>
function F(a, b, x: double):= (1 + Power(a, x)) / ((b - x) * Power(sin(x), 3));
const
a = 3.45; b = 1.62;
var
x := 0.1; xe := 3.1; h := 0.15;
y, xn, yn, xp, yp: double;
begin
yp := MaxDouble; yn := yp;
repeat
y := F(a, b, x);
if y > 0 then
begin if y < yp then begin yp := y;xp := x end end
else
if y < 0 then
begin if y < yn then begin yn := y;xn := x end end;
x += h;
until x > xe;
Writeln('Минимальное отрицательное ', yn, ' при х=', xn);
Writeln('Минимальное положительное ', yp, ' при х=', xp)
end.
<em><u>Тестовое решение:</u></em>
Минимальное отрицательное -446219.37704747 при х=3.1
Минимальное положительное 11.837734702392 при х=0.85
<em><u>{ Borland Pascal 7.01 }</u></em>
{$G+} {$N+}
uses Crt;
function F(a,b,x:double):double;
begin
F:=(1+exp(x*ln(a)))/((b-x)*exp(3*ln(sin(x))))
end;
const
a = 3.45; b = 1.62;
var
x,xe,h,y,xn,yn,xp,yp:double;
begin
ClrScr;
x := 0.1; xe := 3.1; h := 0.15;
yp := 1E308; yn := yp;
repeat
y := F(a, b, x);
if y > 0 then
begin if y < yp then begin yp := y; xp := x end end
else
if y < 0 then
begin if y < yn then begin yn := y; xn := x end end;
x := x + h;
until x > xe;
Writeln('Минимальное отрицательное ', yn, ' при х=', xn);
Writeln('Минимальное положительное ', yp, ' при х=', xp);
ReadKey
end.
<em><u>Тестовое решение:</u></em>
Минимальное отрицательное -4.46219377047470E+0005 при х= 3.10000000000000E+0000
Минимальное положительное 1.18377347023920E+0001 при х= 8.50000000000000E-0001
Не real, а read:
for i:=1 to 10 do
read(A[i]);
Сколько раз вы выводите массив?
Потому что это что-то непонятное:
for i:=1 to 10 do
writeln (A[1],' ',A[2],' ',A[3],' ',A[4],' ',A[5],' '); (10 раз выводятся первые 5 элементов(?))
writeln (A[6],' ',A[7],' ',A[8],' ',A[9],' ',A[10],' ');
Если нужно вывести массив 1 раз:
for i:=1 to 10 do
writeln (A[i],' ');
<u><em>Для стека:</em></u>
const
<span> MAX_SIZE = 100;
</span>var
size, n: integer;
stack: array[1..MAX_SIZE] of integer;
procedure push(a: integer);
begin
inc(size);
stack[size] := a;
<span>end;
procedure view;
var
i: integer;
begin
for i := 1 to size do
write(stack[i], ' ');
writeln;
end;
<u><em>Для очереди:</em></u>
const
MAX_SIZE = 100;
var
head, tail: integer;
queue: array[1..MAX_SIZE] of integer;
procedure push(a: integer);
begin
queue[tail] := a;
inc(tail);
<span>end;
procedure view;
var
i: integer;
begin
for i := head to tail - 1 do
write(queue[i], ' ');
writeln;
<span>end;
<em><u>И стек и очередь реализованы с помощью массива. Нужно следить, чтобы размер структуры не был больше размера массива</u></em></span></span></span>