Question

Proszę was o popmoc ! Pilne !

Turbo Pascal - programowanie

1). Napisać funkcję obliczającą obwód trójkąta prostokątnego , kiedy podane są tylko dwie przyprostopadłe .

2). Napisać funkcję wyznaczającą promień okręgu , kiedy podane jest jego pole .

3). Napisać program , który wyświetli co 3 element tablicy jedno wymiarowej stu elementowej .

I bardzo proszę nie piszcie skomplikowanego programu .

Z góry dziekuje !

Answer 1

Pisalem bez sprawdzania.

 

1)

Function obw(a,b:double):double;
 Begin
  obw:=a+b+sqrt((a*a)+(b*b));
 End;

 

2)

Function promien(a:double):double;
 Begin
  promien:=sqrt(a/pi);
 End.

 

3)

Var
 tab:array[1..100] of integer;
 i:byte;

Begin
 for i:=1 to 100 do tab[i]:=i; {Wypelnianie}
 i:=1;
 while i<=100 do
  begin
   write(tab[i],' ');
   inc(i,3);
  end;
 readln;
End.