Цитата:
Сообщение от Programm
Вычислить значение функции 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.