Pascal (задачки для начинающих)

[Pontiac228]

всем привет помогите пожалуйста решить две задачи!а то до практики не допустят а я еще не разобрался а надо сегодня
1)Написать функцию Dohod, которая вычисляет доход по вкладу. Исходными данными для функции являются: величина вклада, процентная ставка (годовых) и срок вклада (количество дней)

2)Пользователь вводит с клавиатуры N чисел. Подсчитать сумму тех чисел, значение которых не лежит в интервале от –10 до 10

спасибо за внимание

[malinoff]

function Dohod(value:integer,procent:integer,period:integer):real;
var
 tmp:real;
begin
 tmp := (procent * period) / 365;
 Dohod := value * tmp;
end;

var
 value:integer;
 sum:integer;
 N:integer;
Begin
 sum:=0;
 N:=0;
 repeat
 writeln('Введите число');
 readln(value);
 if (value <= -10) and (value >= 10)
  sum := sum + value;
 N := N+1;
 until N = 10;
End.

[Sparkman]

function dohod(p1,p2:real;p3 : integer):real;
var n:real;
begin
     dohod := p1*p3*p2/36500
end;
begin
     {вызов функции}
     {вывод результата}
end.

const n=5;
var a,s,i:integer;
begin
     for i:=1 to n do
     begin
          readln(a);
          if (a<-10)and(a>10) then s:=s+a;
     end;
     {вывод результата}
end.

[Pontiac228]

у обоих ошибки

[Sparkman]

Сообщение от Pontiac228

у обоих ошибки

какие ошибки?

[Pontiac228]

function dohod(p1,p2:real;p3 : integer):real;
var n:real;
begin
dohod := p1+p1*p3*p2/36500
end; <----------------------------------------
сдесь не компилирует и показывает сюда

[Pontiac228]

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

[Sparkman]

Сообщение от Pontiac228

а в другой она работает, но когда пишешь числа, ничего не меняется

лекции гляньте, либо учебник - почитайте про операторы write и writeln

пс: добавил пару комментариев в код

[Pontiac228]

var
   i,n: byte;
   a,s: integer;
Begin
   write('N: ');
   readln(n);
   for i:=1 to n do
      begin
         read(a);
         if (a>=-10) and (a<=10) then s:=s+a;
      end;
   writeln;
   writeln('summ: ',s);
   readln
End.

вторая готова



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Sparkman]

Сообщение от Pontiac228

2)Подсчитать сумму тех чисел, значения которых не лежат в интервале от –10 до 10

Сообщение от Pontiac228

if (a>=-10) and (a<=10) then s:=s+a;

вторая готова

Сравните условие задачи, и то, как вы ее сделали.