В компьютер вводятся координаты х и у вершин двух треугольников. Составить программу, определяющую их конгруэнтность

[YorikBir]

Помогите решить.

1.В компьютер вводится N вещественных чисел. Составить программу, выводящую на экран значение наибольшего из отрицательных чисел.

2.В компьютер вводятся координаты х и у вершин двух треугольников. Составить программу, определяющую их конгруэнтность.

[Zer0]

Ну так как язык вы написать не удосужились, то:
1)

max = 999;
цикл для 1 до N
 начало
  ввод An
  если An<0 И МОДУЛЬ(An)<max тогда
   max = An
 конец
вывод max

2)

ввод x11,x12,x13,x21....x33,y11,y12....,y33
найти длины сторон треугольников s1,s2,s3,t1,t2,t3
count=0
 цикл для i = 1 до 3
  цикл для j = 1 до 3
    если Si=Tj тогда
     начало
      count +1
      Tj = 0
      выход из цикла
     конец
Еслт count = 3 тогда вывод "Конгруэнтны" иначе вывод "Нет"

[YorikBir]

Забыл написать что язык паскаль.

[Zer0]

1)

var a,max:real; n:integer;
begin
write ('N = '); readln(n);
max:=65535;
for i:=1 to n do begin
 write ('A[',i,'] = '); readln(a);
 if (a<0) and (abs(a)<max) then max:=abs(a);
end;
writeln (max:0:2);
end.

[YorikBir]

А можно на паскале написать, а то непонятно, особенно 2 задача.

[Zer0]

2)

var x,y:array [1..3,1..2] of real; len:array[1..3,1..2] of real;
count,i,j:integer;

begin
for i=1 to 2 do begin
 writeln ('Input ',i,' triangle points:');
 for j:=1 to 3 do
  readln (x[j,i],y[j,i]);
 end;
for i:=1 to 2 do
 for j:=1 to 3 do
  if j<3 then 
   len[j,i]:=sqrt(sqr(x[j,i]-x[j+1,i])+sqr(y[j,i]-y[j+1,i]))
  else
   len[j,i]:=sqrt(sqr(x[j,i]-x[1,i])+sqr(y[j,i]-y[1,i]));

count:=0;
for i:=1 to 3 do
 for j:=1 to 3 do
   if len[i,1]=len[j,2] then begin
     len[j,2]:=0;
     inc(count);
     break;
   end;
if count=3 then writeln ('congruent') else writeln ('not congruent');
end.

[TinMan]

Сообщение от Zer0

Ну так как язык вы написать не удосужились, то:

Не совсем понятно, зачем писать язык в разделе Pascal )).
Zer0, зачем нужен модуль?

max:= 0;
for i:=1 to n do if (a[i]<0) and (a[i]>max) then max:= a[i];

[YorikBir]

Спасибо огромное!

[Zer0]

TinMan, крыша едет o_O чую надо будет на недельку отстраниться от форума

[TinMan]

Сообщение от Zer0

TinMan, крыша едет o_O чую надо будет на недельку отстраниться от форума

Ну нет! ))
Ты нужен форуму!! ))

все норм , кстати - очень классно конгруентность сделал. Моя мысля была сначала упорядочить.. Но так лучше.