Помогите пожалуйста написать на языке программирования ПаскальЗаранее спасибо!!!
Помогите пожалуйста написать на языке программирования Паскаль
Заблаговременно спасибо!!!
1
uses PT4;
var x, y, d, z, e, f, P, l, S, a, b, c:real;
begin
Task('Begin21');
read(x, y);
read (d, z);
read ( e, f);
a:= sqrt(sqr(x-d)+sqr(y-z));
b:= sqrt(sqr(d-e)+sqr(z-f));
c:= sqrt(sqr(e-x)+sqr(f-y));
P:= a+b+c ;
write(P);
l:=P/2;
S:= sqrt(l*(l-a)*(l-b)*(l-c));
write(S);
end.
2
uses PT4;
var A, B, C,D, y, x : real;
begin
Task('Begin39');
read(A);
read(B);
read(C);
D:=sqr(B)-4*A*C;
y:=(-B-sqrt(D))/(2*A);
write(y);
x:=(-B+sqrt(D))/(2*A);
write(x);
end.
На задание А я не знаю как ответить это все что язнаю проходил решал
Ответ:
Задание 1:
var a,b,c,p,s:real;
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
write('Введите c: '); readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*((p-a)*(p-b)*(p-c)));
writeln('Площадь: ',s);
end.
Задание 2:
а)
var a:real;
begin
a:=1/(1+(1/(2+(1/(2+(3/5))))));
writeln(a);
end.
Ответ: 0.704545454545454
б)
var
a,b,c,d:real;
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
write('Введите c: '); readln(c);
d:=(((-b)+sqrt(sqr(b)-4*a*c))/2*a);
writeln(d);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.