uses GraphABC;
begin
SetWindowWidth(800); //ширина окна программы
SetWindowHeight(600); //высота окна программы
SetPenWidth(5); //толщина пера
setpencolor(clblue);
Rectangle(1, 600, 200,450);
Rectangle(150, 300, 200,450);
Line(1, 450, 150,450);
Line(150,450, 75,150);
Line(75,150, 1, 450 );
Line(200, 197, 400,197);
Line(400, 197, 300,107);
Line(300, 107, 200,197);
Rectangle(200, 600, 400,200); //дом
Rectangle(400, 600, 600,450); //дом
Rectangle(450, 300, 400,450); //дом
Line(447, 447, 600,447);
Line(600,447, 520,150);
Line(520,150, 447, 447);
Circle(300,300,50);
Circle(520,130,25);
Circle(75,130,25);
end.
Выполнить , связанные с turbo pascal: 1) какой оператор позволяет менять значения переменных и вычислять значения выражений? 2) выполнить алгоритм при x=345: начало ввод x a=x div 100 b=x div 10 mod 10 c=(a+b)/2 вывод a вывод b вывод c конец 3)
что появится на экране после выполнения фрагмента программы: a: =7; b: =5; a: =a-b; writeln(b-a*2); writeln('a=',a,'b=',b); 4) дана сторона квадрата, найти его периметр. 5) дано трёхзначное число. в нём зачеркнули последнюю справа цифру и
приписали её в начале. найти полученное число. * 4 и 5 решить на языке программирования, используя функции.
Поделитесь своими знаниями, ответьте на вопрос:
Написать на pascal. рассчитать y=x^2+1.8, при заданном x. k= sin y, при y< 10 tg y, при > 20 y^2, при 10< = y < = 20
PascalABC.NET
begin
var x := ReadReal('x =');
var y := x * x + 1.8;
var k: real;
if y < 10 then
k := Sin(y)
else if y > 20 then
k := Tan(y)
else
k := y * y;
Print(k)
end.