Задачи по Pascal Turbo

[merick]

Задачи по Pascal Turbo

Здравствуйте форумчане можете пожалуйста помочь составить программы по задачам?
1.Вычислить z(x)=sign(x)+sign*sign(x+y)
Используя функцию
sign(x)=-1 если x<0
0 если x=0
1 если x>0
2.Написать процедуру для нахождения степени числа и вычислить значение выражения:x^5+x^4+x^8
3.Составить программу получения изображения в котором в 1-ой строке будет изображена 1*, во 2-ой строке 2*, в 3-ей строке 3*, в строке с номером m-m*.

 

[Vladimir_S]

Здравствуйте форумчане можете пожалуйста помочь составить программы по задачам?

Хорошо, на первый раз - напишу.
Но вообще-то если Вы продолжите выкладывание подобных глупейших школьных задач, то в дальнейшем, боюсь, нам придется Вам отказать.
И не потому, что нам жалко, а просто (уж поверьте) курс на лоботрясничанье и надежды выехать на форумах - это путь в никуда. Ну или к отчислению.
Так что мой Вам совет - беритесь за ум, пока жареный петух поклёвывать не начал.

Var
 x,y:Real;

Function Sign(q:real):Integer;
begin
 if q<0 then Sign:=-1 else
 if q>0 then Sign:=1 else
 Sign:=0;
end;

Begin
 Write('x = ');
 Readln(x);
 Write('y= ');
 Readln(y);
 Writeln('z = ',Sign(x)+Sign(y)+Sign(x+y));
 Readln
End.

Var
 x,D,S:Real;

Procedure X2np(x:real; n:Byte; var y:real);
var
 i:byte;
begin
  if n=0 then y:=1 else
  if n=1 then y:=x else
  begin
    y:=x;
    for i:=2 to n do y:=y*x;
  end;
end;

Begin
 Write('x = ');
 Readln(x);
 X2np(x,5,S);
 X2np(x,4,D);
 S:=S+D;
 X2np(x,8,D);
 S:=S+D;
 Writeln('S = ',S:0:5);
 Readln
End.

Var
 m,i:Byte;

Begin
 Write('m = ');
 Readln(m);
 for i:=1 to m do writeln(i,'*');
 Readln
End.