Помогите пожалуйста написать на языке программирования ПаскальЗаранее спасибо!!!

Помогите пожалуйста написать на языке программирования Паскаль


Заблаговременно спасибо!!!

Задать свой вопрос
2 ответа

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.

Шелковникова Ирка
Спасибо громадное!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт