Учитывая целое число A. Определите, положительное или отрицательное число А. Создайте программный код, который отвечает «положительное число», если число положительное, «отрицательное число», если оно отрицательное, и «ноль», если число равно нулю
Uses crt; var item, rub, doll: real; job: integer; begin writeln('Введите курс ру по отношению к дол: '); read(item);//Вводим курс рубль-доллар writeln('Перевести из (рубля в доллар(2)) или (доллар в рубль(1))?'); read(job);//Вводим режим case job of 2: begin writeln('Введите кол-во рублей: '); read(rub);//Вводим рубль rub := rub / item; writeln('doll = ',rub); end; 1: begin writeln('Введите кол- во долларов: '); read(doll);//Вводим доллар doll := doll * item; writeln('rub = ',doll); end; end; end.
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 type Point=record x,y:real end;
function GetPoint(c:char):Point; begin Writeln('Введите координаты точки ',c,':'); Read(Result.x,Result.y) end;
function Line(A,B:Point):real; begin Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y)) end;
function SqTriangle(pA,pB,pC:Point):real; begin var a:=Line(pB,pC); var b:=Line(pA,pC); var c:=Line(pA,pB); if (a+b>c) and (a+c>b) and (b+c>a) then begin var p:=(a+b+c)/2; Result:=sqrt(p*(p-a)*(p-b)*(p-c)) end else Result:=0 end;
begin var A:=GetPoint('A'); var B:=GetPoint('B'); var C:=GetPoint('C'); Writeln('Площадь треугольника равна ',SqTriangle(A,B,C)) end.
Тестовое решение: Введите координаты точки A: -5 3.18 Введите координаты точки B: 1.45 6.2 Введите координаты точки C: 6 -5.93 Площадь треугольника равна 45.98975
var item, rub, doll: real;
job: integer;
begin
writeln('Введите курс ру по отношению к дол: ');
read(item);//Вводим курс рубль-доллар
writeln('Перевести из (рубля в доллар(2)) или (доллар в рубль(1))?');
read(job);//Вводим режим
case job of
2: begin
writeln('Введите кол-во рублей: ');
read(rub);//Вводим рубль
rub := rub / item;
writeln('doll = ',rub);
end;
1: begin
writeln('Введите кол- во долларов: ');
read(doll);//Вводим доллар
doll := doll * item;
writeln('rub = ',doll);
end;
end;
end.