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

Programm · 02.04.2016, 14:50

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

Vladimir_S · 02.04.2016, 16:47

Цитата:

Сообщение от 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.

02.04.2016, 14:50	#1 (permalink)
Programm Новичок Регистрация: 22.12.2015 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вычислить значение функции 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. Написать функцию, которая двоичное число, введенное пользователем программы, преобразовывает в десятичное число.

02.04.2016, 14:50
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Отправлю вам схожие темы, рекомендую почитать Вычислить бесконечную сумму с заданной точностью Вычислить значение функции y, заданной графически, C++

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070