Технический форум - Вычислить значение функции f(x) =1/ 25х2 с точностью e=10-4. X изменяется от 0

Цитата:

Сообщение от Programm (Сообщение 2367884)

Вычислить значение функции f(x) =1/ 25х^2 с точностью e=10^-4. X изменяется от 0.2 до 2 с шагом 0.1. Вычисление у оформить как функцию, результаты вывести в виде таблицы.
2. 31. Написать функцию, которая двоичное число, введенное пользователем программы, преобразовывает в десятичное число.

Да ну... совсем детский сад какой-то!

Код:

Var

 x:Real;

 i,N:Byte;



function f(z:real):Real;

begin

 f:=1.0/(Sqr(z)*25);

end;



Begin

 N:=Round((2-0.2)/0.1);

 for i:=0 to N do

  begin

   x:=0.2+0.1*i;

   Writeln(x:3:1,f(x):15:4);

  end;

 Readln

End.

Здесь, если у Вас АВС, то всюду LongInt замените на Integer:

Код:

Var

 S1:String;

 b:boolean;

 i,L1:Byte;



Function Bin2Dec(S:String):LongInt;

var

 k,L:byte;

 P,Q,R:LongInt;

 Code:Integer;

begin

 L:=Length(S);

 Val(S[L],P,Code);

 Q:=1;

 for k:=L-1 downto 1 do

  begin

   Q:=Q*2;

   Val(S[k],R,Code);

   P:=P+R*Q;

  end;

 Bin2Dec:=P;

end;



Begin

 Repeat

  b:=true;

  Writeln('Enter the binary value:');

  Readln(S1);

  L1:=Length(S1);

  for i:=1 to L1 do

   if (S1[i]<>'0') and (S1[i]<>'1') then b:=false;

  if b=false then Writeln('Error!!! Only "0" or "1" allowable!');

 Until b;

 Writeln('Result: ',Bin2Dec(S1));

 Readln

End.