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

[Programm]

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

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

 

[Vladimir_S]

Вычислить значение функции 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.