Поштовий ящик електронної пошти це А) частина оперативної пам'яті на сервері Б) частина оперативної пам'яті на робочій станції В) частина зовнішньої пам'яті на робочій станції Г) частина зовнішньої пам'яті на сервері
Может так?.. а) Program tt; var t,z,x,y:integer; begin writeln ('Введите x, z, y'); read (x,z,y); t:=z+x+y; if x>0 then Writeln (t,' = TRUE') else Writeln (t,' = FALSE') end. б) Program tt; var t,z,x,y:integer; begin writeln ('Введите x, z, y'); read (x,z,y); t:=z+x+y; if (x=y) or (y=z) or (x=z) then Writeln (t,' = TRUE') else Writeln (t,' = FALSE') end. в) Program tt; var A,B,C,t: Real; begin Writeln ('Введите коэффициенты: A B C'); Readln(A,B,C); t := B * B - 4 * A * C; if t < 0 then Writeln (t,' = TRUE') Else Writeln (t,' = FALSE') 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) кон
а)
Program tt;
var t,z,x,y:integer;
begin
writeln ('Введите x, z, y');
read (x,z,y);
t:=z+x+y;
if x>0 then
Writeln (t,' = TRUE')
else
Writeln (t,' = FALSE')
end.
б)
Program tt;
var t,z,x,y:integer;
begin
writeln ('Введите x, z, y');
read (x,z,y);
t:=z+x+y;
if (x=y) or (y=z) or (x=z) then
Writeln (t,' = TRUE')
else
Writeln (t,' = FALSE')
end.
в)
Program tt;
var A,B,C,t: Real;
begin
Writeln ('Введите коэффициенты: A B C');
Readln(A,B,C);
t := B * B - 4 * A * C;
if t < 0 then
Writeln (t,' = TRUE')
Else
Writeln (t,' = FALSE')
End.