2. З чого складається цикл життя програмного забезпечення? 3. З чого складається цикл тестування? 4. Що таке exit criteria? 5. Яка різниця між QC та QA?
uses crt; var a, b, c, n, i, j :integer; s :array [1..10000] of integer; begin clrscr; writeln ('Vvedite razmer masiva'); read (n); writeln ('Vvedite chislo X'); read (a); for i:=1 to n do begin writeln ('Vvedit s[', i, '] element'); read (s[i]); end; for i:=1 to n do for j:=1 to n-1 do if s[j]<s[j+1] then begin b:=s[j]; s[j]:=s[j+1]; s[j+1]:=b; end; for i:=1 to n do begin write (s[i], ' '); if s[i]=a then inc (c); end; writeln; if c>0 then writeln ('3adanoe chislo prisytstvyet') else writeln('3adanoe chislo otsytstvyet'); end.
Для начала задачу нужно решить чисто математически, решения приведены на листочках. Поскольку задача школьная, то вариант совпадения точек не рассматривается Алгоритмического языка не знаю, но поскольку это вариант псевдокода, то думаю алгоритм вполне понятен
алг Круг_по_двум_точкам_и_радиусу(арг действ Ax, арг действ Ay, арг действ Bx, арг действ By, арг действ r) дано | A,B,r надо | нарисовать окружность нач ввод Ax, Ay, Bx, By, r
действ dAB = ((Ax - Bx)^2 + (Ay - By)^2)^(0.5) // длина АВ действ h = (r^2-dAB^2/4)^(0.5) // высота и длина вектора ОМ
// М середина АВ действ Mx = (Ax + Bx) / 2 действ My = (Ay + By) / 2
//первый круг действ Ox = Mx + (Ay - By) * h/dAB действ Oy = My - (Ax - Bx) * h/dAB нарисовать_круг(Ox, Oy, r)
//второй круг Ox = Mx - (Ay - By) * h/dAB Oy = My + (Ax - Bx) * h/dAB нарисовать_круг(Ox, Oy, r) кон
var a, b, c, n, i, j :integer;
s :array [1..10000] of integer;
begin
clrscr;
writeln ('Vvedite razmer masiva');
read (n);
writeln ('Vvedite chislo X');
read (a);
for i:=1 to n do
begin
writeln ('Vvedit s[', i, '] element');
read (s[i]);
end;
for i:=1 to n do
for j:=1 to n-1 do
if s[j]<s[j+1] then
begin
b:=s[j];
s[j]:=s[j+1];
s[j+1]:=b;
end;
for i:=1 to n do
begin
write (s[i], ' ');
if s[i]=a then inc (c);
end;
writeln;
if c>0 then writeln ('3adanoe chislo prisytstvyet') else writeln('3adanoe chislo otsytstvyet');
end.
P.S. Надеюсь на благодарность и лучший ответ.