Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / Разное / Готовые решённые задачи в формате ТХТ / Массив записей / Треугольники
.txt Занести в другой массив записей прямоугольные треугольники. Даны в записи их стороны
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
type zap=record
AB:integer;
BC:integer;
AC:integer;
end;
tre=array[1..20] of zap;
procedure VVOD (var a:tre;var n:integer);
var i:integer;
begin
writeln('Vvedite kolichestvo treygolnikov');
readln(n);
for i:=1 to n do begin
writeln('Vvedite storonu AB');
readln(a[i].AB);
writeln('Vvedite storonu BC');
readln(a[i].BC);
writeln('Vvedite storonu AC');
readln(a[i].AC);
end;
end;
procedure VIBOR(a:tre;n:integer;var b:tre;var k:integer);
var i:integer;
begin
k:=0;
for i:=1 to n do if
(sqr(a[i].AC)=sqr(a[i].AB)+sqr(a[i].BC))
or (sqr(a[i].AB)=sqr(a[i].AC)+sqr(a[i].BC))
or (sqr(a[i].BC)=sqr(a[i].AB)+sqr(a[i].AC)) then begin
k:=k+1;
b[k]:=a[i];
end;
end;
procedure VIVOD(b:tre;k:integer);
var i:integer;
begin
writeln('AB BC AC');
for i:=1 to k do writeln(b[i].AB,' ',b[i].BC,' ',b[i].AC);
end;
var A,C:tre;
n,k:integer;
begin
VVOD(A,n);
VIBOR(A,n,C,k);
writeln('Priamoygolnie treygolniki');
VIVOD(C,k);
readln;
end.
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
type zap=record
AB:integer;
BC:integer;
AC:integer;
end;
tre=array[1..20] of zap;
procedure VVOD (var a:tre;var n:integer);
var i:integer;
begin
writeln('Vvedite kolichestvo treygolnikov');
readln(n);
for i:=1 to n do begin
writeln('Vvedite storonu AB');
readln(a[i].AB);
writeln('Vvedite storonu BC');
readln(a[i].BC);
writeln('Vvedite storonu AC');
readln(a[i].AC);
end;
end;
procedure VIBOR(a:tre;n:integer;var b:tre;var k:integer);
var i:integer;
begin
k:=0;
for i:=1 to n do if
(sqr(a[i].AC)=sqr(a[i].AB)+sqr(a[i].BC))
or (sqr(a[i].AB)=sqr(a[i].AC)+sqr(a[i].BC))
or (sqr(a[i].BC)=sqr(a[i].AB)+sqr(a[i].AC)) then begin
k:=k+1;
b[k]:=a[i];
end;
end;
procedure VIVOD(b:tre;k:integer);
var i:integer;
begin
writeln('AB BC AC');
for i:=1 to k do writeln(b[i].AB,' ',b[i].BC,' ',b[i].AC);
end;
var A,C:tre;
n,k:integer;
begin
VVOD(A,n);
VIBOR(A,n,C,k);
writeln('Priamoygolnie treygolniki');
VIVOD(C,k);
readln;
end.
Соседние файлы в папке Массив записей