Program f1;
var x,y: real;
begin
read (x);
y:=2/(x-4);
writeln( y);
end.
//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
uses GraphABC;
const
x_min = -15.0;
x_max = 15.0;
dx = 0.01;
function f(x: real): real;
begin
f := 2*x;
end;
begin
//настраиваем размер окна под график, влияет на маштаб
Window.Width := 1000;
Window.Height := 300;
Window.IsFixedSize := True; // фиксируем размеры окна
Coordinate.Origin := Window.Center; //выставляем начало координат в центр окна
Coordinate.SetMathematic; //выставляем направление осей как в математике принято
var scale := Window.Width / (x_max - x_min); // вычисляем маштаб
var x := x_min;
var y_max := f(x_max); // подставляем реальные значения
var y_min := f(x_min); // подставляем реальные значения
repeat
try
var y := f(x);
if y > y_max then y_max := y;
if y < y_min then y_min := y;
finally
x := x + dx;
end;
until x > x_max;
// оси координат, стрелочки сами если надо
Pen.Color := clSilver;
Line(round((x_min - 1) * scale), 0, round((x_max + 1) * scale), 0);
Line(0, round((y_min - 1) * scale), 0, round((y_max + 1) * scale));
Circle(0, round(1 * scale), 1); //единичная метка
Circle(round(1 * scale), 0, 1); //единичная метка
x := x_min;
repeat
try
var y := f(x);
PutPixel(round(x * scale), round(y * scale), clBlueViolet);
finally
x := x + dx;
end;
until x > x_max;
end.
1) Нам дано что S=0 дальше нам дано что программу s:=s+12 нужно повторить 11 раз ( for k:=1 to 11 do ).К нулю прибавляем 12 ровно 11 раз и получаем S=132
2)так же делаем и тут. обрати внимание что 0 тоже считается за количество повторов ( for k := 0 to 9 do ) так мы считаем не 9 повторов а 10.И так. <span>s := 1 следовательно к 1 прибавляем 5 по 9 рази получаем </span> S=51
Var a,b,c,p,S:real;
begin
writeln('Введите A: ');readln(a);
writeln('Введите B: ');readln(b);
writeln('Введите C: ');readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) and (a>0) and (b>0) and (c>0) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S = ',s)
end
else
writeln('Стороны треугольникавведены неверно!');
end.