Програмирование

[NERO_1]

Програмирование

Помогите составить две проги на паскале
1,Вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катетов a и b.


2,Заданны коордионаты трёх вершин треугольника (X1, Y1),(X2,Y2), (X3,Y3). Найдите его периметр и площадь.
Помогите срочно надо!!!!!!!!!!!!

 

[AlexZir]

1 задание

program treug1;
var a, b, c, s, p: real;
begin
writeln('Введите длины катетов');
readln(a,b);
c:=sqrt(sqr(a)+sqr(b));
p:=a+b+c;
s:=0.5*a*b;
writeln('Периметр треугольника равен ',p,'. Площадь треугольника равна ',s);
readln
end.

2 задание

program treug2;
var x1, x2, x3, y1, y2, y3: integer;
     a,b,c,p,p1,s: real;
begin
writeln('Введите координаты вершины A (x1, y1)');
readln(x1,y1);
writeln('Введите координаты вершины B (x2, y2)');
 readln(x2,y2);
writeln('Введите координаты вершины C (x3, y3)');
 readln(x3,y3);
a:=sqrt(sqr(x3-x2)+sqr(y3-y2));
b:=sqrt(sqr(x3-x1)+sqr(y3-y1));
c:=sqrt(sqr(x2-x1)+sqr(y2-y1));
p:=a+b+c;
p1:=p/2;
s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
writeln('Периметр треугольника равен ',p,'. Площадь треугольника равна ',s);
 readln
 end.

Если формулы не перепутал -должно быть правильно .

 

[Vladimir_S]

Ну надо же - похоже уже в детском саду изучают Паскаль (судя по уровню задач)!

{Задача 1}

VAR
a,b,c,P,S:REAL;

BEGIN

{Ввод данных}
Write('a = '); ReadLn(a);
Write('b = '); ReadLn(b);

c:=SQRT(SQR(a)+SQR(b));

P:=a+b+c;
S:=a*b/2;

Writeln('P = ', P);
Writeln('S = ', S);

Readln;

END.


{Задача 2}

VAR
a,b,c,X1,Y1,X2,Y2,X3,Y3,P,S:REAL;

BEGIN

{Ввод данных}
Write('X1 = '); ReadLn(X1);
Write('Y1 = '); ReadLn(Y1);
Write('X2 = '); ReadLn(X2);
Write('Y2 = '); ReadLn(Y2);
Write('X3 = '); ReadLn(X3);
Write('Y3 = '); ReadLn(Y3);

a:=SQRT(SQR(X1-X2)+SQR(Y1-Y2));
b:=SQRT(SQR(X1-X3)+SQR(Y1-Y3));
c:=SQRT(SQR(X2-X3)+SQR(Y2-Y3));

P:=a+b+c;
S:=SQRT(P/2*(P/2-a)*(P/2-b)*(P/2-c));

Writeln('P = ', P);
Writeln('S = ', S);

Readln;

END.

 

[Vladimir_S]

Да, AlexZir - мы оба справились!!! Ура! Ну до чего умные - слов нет!

 

[AlexZir]

И не говорите, молодцы просто!

 

[ummasha]

Я тоже с таких задач начинала, но не в детском саду, а в 11 классе. Решались они совершенно без проблем. Но когда начались массивы, особенно двухмерные... У меня есть подозрение, что учительница перепутала нашу группу с другой (у нас вечно пропадают уроки) и не объяснила нам часть темы...

 

[AlexZir]

Маша, какие затруднения вызвала у вас тема Двумерные массивы? Если что непонятное - пишите, поможем.

Такие задачки по новой программе изучения информатики решают в 9 классе, причем независимо от изучаемого языка программирования. Формулы взяты из геометрии 8 класса .

 

[ummasha]

Значит, в моей школе программа изучения информатики какая-то доисторическая, потому что в 9 и 10 классах мы только работали с офисом и изучали теорию.
В этом полугодии будем создавать сайты и работать с фотошопом.

 

[ummasha]

Зато начальная школа занимается информатикой клааса с третьего: они тоже изучают офис и, конечно, рисуют в Пайнте (ну совсем как мы в девятом).

 

[VipeR]

фотошоп .... в школе .... сильно
а потом на пиратство ругаемся

 

[AlexZir]

Виталя, во всех школах есть специальный выпуск CS2.3 и CS3.0, лицензированный специально для российских школ.

 

[VipeR]

хм, для меня это новость ..... тем не менее, видеть в школах крякнутые CS3/4 это не мешает

 

[AlexZir]

Странно, нафига их ломать, если нахаляву есть лицензия от государства, во всяком случае на 3.0.

 

[ummasha]

В школу прислали целую коробку с лицензионным софтом. Учительница сказала, его там тысяч на 30 зеленых. Мы, естественно, предложили все это продать (шутка!). Кстати, далеко не все программы там рабочие.