Функция

[Kloun1]

Уважаемые программисты !
Помогите пожалуйста написать эту программу !

Задание - Функция по 3 числам проверяет могут ли эти числа быть сторонами треугольника. С помощью функции массив [10X3] ( где каждая строка стороны треугольника ) найти все треугольники которые могут существовать(в 1 строке, во 2 строке и в 3 строке). Вывести результаты на экран !

[AlexanderP]

var a1,b1,c1:real; result:Integer;

Function Treugol (a,b,c:real):Integer;
Begin
if (a=b) and (b=c) then Treugol:=1 else
if (a=b) or (a=c) or (b=c) then Treugol:=2 else
Treugol:=3;
end;

procedurе ButtonClik; //компилятор сам создаст //процедуру кнопки нажатия
//в ней принимать значения и обращаться к функции:

//например:
a1:=strtofloat(Edit1.text);
b1:=strtofloat(Edit2.text);
c1:=strtofloat(Edit3.text);
Result:=Treugol(a1,b1,c1);

if result=1 then Label1.caption:='Треугольник равносторонний';

if result=2 then Label1.caption:='Треугольник равнобедреный';

if result=3 then Label1.caption:='Треугольник разносторонний';
end;
end.

[AlexanderP]

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

Уважаемые программисты !
Помогите пожалуйста написать эту программу !

Задание - Функция по 3 числам проверяет могут ли эти числа быть сторонами треугольника. С помощью функции массив [10X3] ( где каждая строка стороны треугольника ) найти все треугольники которые могут существовать(в 1 строке, во 2 строке и в 3 строке). Вывести результаты на экран !

Попробуй так.

[maladoy]

program treugol;
uses crt;
var a:array[1..10,1..3] of real;
    i,j:integer;
    da:boolean;
function flag  (a,b,c:real):boolean;
begin
 if ((a+b)>c) or ((a+c)>b) or ((c+b)>a) then flag:=true
             else flag:=false; end;
begin
for i:=1 to 10 do
 for j:=1 to 3 do
  a[i,j]:=random(10)+1;

for i:=1 to 10 do begin
 for j:=1 to 3 do
  write (a[i,j]:4:2,' ');
  writeln;end;

for j:=1 to 10 do
begin
da:=flag(a[j,1],a[j,2],a[j,3]);
write (j);
if da=true then writeln(' treug so storonami: ',a[j,1]:4:2,' ',a[j,2]:4:2,' ',a[j,3]:4:2,'sushest')
 else  writeln(' treug so storonami:',a[j,1]:4:2,' ',a[j,2]:4:2,' ',a[j,3]:4:2,'ne  sushest');
end;
readln;
end

.

[Kloun1]

Большое спасибо !

[pomoshnic]

Maldoy, я немного исправил ваш код. Вы забыли про Randomize, и в функции вместо or нужно было написать and.

program treugol;
uses crt;
var a:array[1..10,1..3] of real;
    i,j:integer;
    da:boolean;
function flag  (a,b,c:real):boolean;
begin
 if ((a+b)>c) and ((a+c)>b) and ((c+b)>a) then flag:=true
	     else flag:=false; end;
begin
clrscr;
randomize;
for i:=1 to 10 do
 for j:=1 to 3 do
  a[i,j]:=random(10)+1;

for i:=1 to 10 do begin
 for j:=1 to 3 do
  write (a[i,j]:4:2,' ');
  writeln;end;

for j:=1 to 10 do
begin
da:=flag(a[j,1],a[j,2],a[j,3]);
write (j);
if da=true then writeln(' treug so storonami: ',a[j,1]:4:2,' ',a[j,2]:4:2,' ',a[j,3]:4:2,' sushest')
 else  writeln(' treug so storonami:',a[j,1]:4:2,' ',a[j,2]:4:2,' ',a[j,3]:4:2,' ne  sushest');
end;
readln;
end.