Вычисление: Случайных чисел и дохода по вкладу

[Bamper89]

Задача1. Написать программу ,которая генерирует 10 случайных чисел в диапозоне от 1 до 10,выводит эти числа на экран и вычисляет их среднее арифмитическое . Рекомендуемый вид экрана во время работы приведен ниже.Случайные числа
1342749621 среднее арифмитическое 3.9


Задача 2. Написать функцию Dohod,которая вычисляет доход по вкладу. Исходными данными являются:величина вклада,процентная ставка(годовых)и срок вклада(количество дней)

[Mikhail Bakurov]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
a:array[1..10]of integer;
i:integer;
sred:Real=0.0;
begin
Randomize;
for i:=1 to 10 do
begin
  a[i]:=Random(10);
  write(a[i]);
  sred:=sred+a[i];
end;
sred:=sred/10;
write('  srednee arifmeti4eskoe  '+ FloatToStr(sred));
ReadLn;
end.

[Bamper89]

Mikhail Bakurov Спасибо мужик огромное))выручил)

[maladoy]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
p:real;
s:integer;
vz:real;
begin
writeln('vvedite vznos,procenty,srok');
readln(vz,p,s);
p:=p/36500;// прирост в день
for i:=1 to s  do
 vz:= vz*(1+p);//доход за s дней
write(' dohod  '+ FloatToStr(vz));
ReadLn;
end.

[AlDelta]

Задачи просты как валенок, пользуемся литературой и поиском.
Закрыто.

[DSFIN]

надо составить программу для перевода чисел из десятичной системы счисления в двоичную и наоборот

edit(10-чная) button(перевести) edit(2-чная)
edit(2-чная) button(перевести) edit(10-чная)

[ZaRDaK]

function DEC2BIN(DEC: LONGINT): string; 

var 
BIN: string; 
I, J: LONGINT; 

begin 
if DEC = 0 then 
BIN := '0' 
else 
begin 
BIN := ''; 
I := 0; 
while (1 shl (I + 1)) < = DEC do 
I := I + 1; 

for J := 0 to I do 
begin 
if (DEC shr (I - J)) = 1 then 
BIN := BIN + '1' 

else 
BIN := BIN + '0'; 
DEC := DEC and ((1 shl (I - J)) - 1); 

end; 
end; 
DEC2BIN := BIN; 
end;

-----

function BIN2DEC(BIN: string): LONGINT;
 
var
  J: LONGINT;
  Error: BOOLEAN;
  DEC: LONGINT;
 
begin
  DEC := 0;
  Error := False;
  for J := 1 to Length(BIN) do
  begin
    if (BIN[J] <> '0') and (BIN[J] <> '1') then
      Error := True;
    if BIN[J] = '1' then
      DEC := DEC + (1 shl (Length(BIN) - J));
    { (1 SHL (Length(BIN) - J)) = 2^(Length(BIN)- J) }
  end;
  if Error then
    BIN2DEC := 0
  else
    BIN2DEC := DEC;
end;

Dec2Bin - дечтичная в двоиную
Bin2Dec - наоборот.

[DSFIN]

Спасибо большое!