Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  pr2
Language: PASCAL
Code:
program pr2;
var
  A: array [1..100] of integer;
  B: array [1..100] of real;
  i: integer;
  n, b: real;
begin
  A[1]:= 1;
  A[2]:=5;
  A[3]:=30;
  A[4]:=50;     
  A[5]:=80;
  A[6]:=100;
  A[7]:=200;
  A[8]:=500;
  A[9]:=1000;
  A[10]:=2000;
  A[11]:=40000;
  B[1]:=4
  B[2]:=3,3;
  B[3]:=2,62;
  B[4]:=2,4;
  B[5]:=2,225;
  B[6]:=2,15;
  B[7]:=1,968;
  B[8]:=1,845;
  B[9]:=1,7835;
  B[10]:=1,7343;
  B[11]:=1,5621;

writeln('Podaj argument');
readln(n);

i:=0
while n<A[i] do
   begin 
     i:=i+1;
   end;
p:=(n-A[i])/(A[i+1]-A[i]);

b:=(1-p)*B[i]+p*B[i+1];

writeln('Wartość w',' ', n, ' ', 'wynosi', ' ', b);
readln;               
          
end.          
Comments: