Технический форум - Задачи по Pascal Turbo

Цитата:

Сообщение от merick (Сообщение 1167436)

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

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

Код:

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.