Технический форум - Разработка программы с использованием процедур и функций

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Разработка программы с использованием процедур и функций (http://www.tehnari.ru/f41/t86567/)

beda	19.03.2013 22:04

Разработка программы с использованием процедур и функций

Вложений: 1

Вложение 127425
помогите сделать в паскале

Vladimir_S

20.03.2013 09:52

Цитата:

Сообщение от beda (Сообщение 883541)

Вложение 127425
помогите сделать в паскале

Код:

Const

 Xmin=11.0;

 Xmax=13.0;

 Dx=0.2;

Var

 x,a,b,c:Real;

 i,N:Byte;



Function Y(P,Q,R,z:real):real;

begin

 Y:=P*Exp(z)+Q*Sin(R*z);

end;



Begin

 Write('a= ');

 Readln(a);

 Write('b= ');

 Readln(b);

 Write('c= ');

 Readln(c);

 N:=Round((Xmax-Xmin)/Dx);

 For i:=0 to N do

  begin

   x:=Xmin+Dx*i;

   Writeln(x:3:1,Y(a,b,c,x):15:3);

  end;

 Readln

End.

Часовой пояс GMT +4, время: 04:37.