Помогите по паскалю завтра сдавать иначе выгонят!!!!!

[Кристина]

1. Составьте программу вычисляющую значений кусочно-заданной функции:
Y={ x-5,x<-10
{ 2-x-10<=x
2. Составьте процедуру вычисления суммы делителей числа N, кратных 5?
3. Составьте процедуру выясняющую можно ли представить данное натуральное число N в виде суммы своих делителей, меньше N?
4. В первый день турист шел T1 часов со скоростью V1км/ч, во второй день он шел T2 часов со скоростью V2 км/ч
Составьте процедуру вычисления средней скорости туриста?
Вычислите среднюю скорость при T1=7, V1=8, T2=9, V2=6?

[Virtson]

задача 4:
Vср. = Sобщ / Tобщ.

var 
  t1, t2, v1, v2, s, t, v: real;
BEGIN
  writeln('T1, V1, T2, V2:')
  readln(t1, v1, t2, v2);
  s:= t1*v1 + t2*v2;
  t:= t1 + t2;
  v:= s/t;
  writeln('Скорость = ', v:0:2);
END.

[Кристина]

Спасибо большое но мне нужно с процедурой если не трудно ПОМОГИТЕ ПЛИИИИИЗ!!!!!!

[Virtson]

Сообщение от Кристина

если не трудно

procedure MidiSpeed(t1, t2, v1, v2: real; var v: real);
var 
  s, t: real;
begin
  s:= t1*v1 + t2*v2;
  t:= t1 + t2;
  v:= s / t;
end;

var 
  t1, t2, v1, v2, v: real;
BEGIN
  writeln('T1, V1, T2, V2:')
  readln(t1, v1, t2, v2);
  MidiSpeed(t1, t2, v1, v2, V) ;
  writeln('Скорость = ', v:0:2);
END.

замечу: вы спросили процедуру, но тут логичнее сделать функцию.
в этом случае меняется строка заголовка
> function MidiSpeed(t1, t2, v1, v2: real): real);
и передача значения идет ч/з имя функции :
> MidiSpeed:= s / t;

[Кристина]

Огромное спасибо что бы я без вас делала!

а остальные 3 вы не знаете как решать?!
Я вам еще не надоела?

[zetrix]

[off] я и не знал, что в воскресенье принимают задачи... [/off]

[Кристина]

У нас каждый день сессия без выходных!

[Virtson]

1)

  X, Y: real;
BEGIN
  writeln('X:')
  readln(x);
  if x<-10 then y:= x-5
             else y:= 2-x;
  writeln('Y = ', y:0:2);
END.

[Кристина]

В первой задаче значение У = это система была из 2 выражений, но все равно спасибо, а 2 и 3 можно тоже они самые трудные?!

[Virtson]

2)
мысли :
* если на 5 не делится, то Summ(делителей кратных 5)=0
* если делится, например 20=5*4,

if (X mod 5) = 0 then
begin
  N:= x div 5;  { = 4;}
  sum:= 0;
  for I:= 1 to N do
    if X mod i = 0 then sum:= sum + i;
  sum:= sum * 5;
end;

на сегодня
мысли кончились ..