Три задачи в Паскале

[daves]

Три задачи в Паскале

Будьте добры, помогите пожалуйста.Задали задачи , а я первокурсник..В группе никто ничего незнает и разобраться немогу.
1 Задача..Пускай D- третяя координатная четверть.А(х,у) - любая точка на плоскости.Найти f(x,y),если система f(x)=
1 уровнение: x^-5 + е^-y, если А принадлежит D.
2 уровнение: 1/ |x^2+4y-5|+1, Если А не принадлежит D.
2 Задача. Дано четыре числа. Если сума наименьшего и наибольшего больше сумы двух остальных чисел, то найти среднее геометрическое всех чисел, иначе найти их среднее арифметическое.
3 Задача. По введеному числу (От 0 до 14) определить х-ку числа ( делится на 3, делится на 5, не делится не на 3 , не на 5.:tehnari_ru_837: Зарание спасибо

 

[Vladimir_S]

Будьте добры, помогите пожалуйста.Задали задачи , а я первокурсник..В группе никто ничего незнает и разобраться немогу.
1 Задача..Пускай D- третяя координатная четверть.А(х,у) - любая точка на плоскости.Найти f(x,y),если система f(x)=
1 уровнение: x^-5 + е^-y, если А принадлежит D.
2 уровнение: 1/ |x^2+4y-5|+1, Если А не принадлежит D.
2 Задача. Дано четыре числа. Если сума наименьшего и наибольшего больше сумы двух остальных чисел, то найти среднее геометрическое всех чисел, иначе найти их среднее арифметическое.
3 Задача. По введеному числу (От 0 до 14) определить х-ку числа ( делится на 3, делится на 5, не делится не на 3 , не на 5.:tehnari_ru_837: Зарание спасибо

Хорошо, пожалуйста. Но вообще-то, юноша, - плохо, очень плохо Вы начинаете! Непонятно задание? Так Вы уже не школьник, Вы - Студент, а это значит: приучайтесь работать самостоятельно. Сейчас навыпущена куча книжек и пособий по Паскалю - от школьного уровня до профессионального, сам не далее, как вчера в компьютерном магазине видел. И в Сети пособий полнО. Так что игры да футбол - в сторону и читайте, учитесь, разбирайтесь. А на добрых дядях с форумов далеко не уедете.
Кстати, слово "уравнение" пишется через "а", а не через "о". И если за ум не возьмётесь, то очень скоро освоите родственное ему слово. Знаете, типа: "РррАвнение на - право! Шагом - арш!"

Задача 1

VAR
 x,y:Real;

Function f(xf,yf:real):Real;
 Begin
  If (xf<0) and (yf<0) then
   f:=1.0/sqr(sqr(xf))/xf+exp(-yf)
  else
   f:=1.0/(ABS(xf*xf+yf*4-5)+1);
 End;

BEGIN
 Write('x= ');
 Readln(x);
 Write('y= ');
 Readln(y);
 Writeln('f= ',f(x,y):0:5);
 Readln;
END.

Задача 2

VAR
 x:array[1..4] of Real;
 S,P,Max,Min:Real;
 i:Integer;
BEGIN
 S:=0;
 P:=1;
 For i:=1 to 4 do
  begin
   Write('x[',i,']= ');
   Readln(x[i]);
   P:=P*x[i];
   S:=S+x[i];
  end;
 Max:=x[1];
 Min:=x[1];
 For i:=2 to 4 do
  begin
   If x[i]>Max then Max:=x[i];
   If x[i]<Min then Min:=x[i];
  end;
 If (Max+Min)>S-(Max+Min) then
  begin
   If P<0 then writeln('No solution!')
   else Writeln('Result= ',Sqrt(Sqrt(P)):0:5);
  end
  else
  Writeln('Result= ',S/4:0:5);
 Readln;
END.

Задача 3

VAR
 n,m3,m5:Byte;
BEGIN
 Write('n= ');
 Readln(n);
 m3:= n mod 3;
 m5:= n mod 5;
 If m3=0 then
  begin
   Write(n,' contains 3 and ');
   if m5=0 then Writeln('5')
   else Writeln('does not contain 5');
  end
  else
  begin
   if m5=0 then
    Writeln(n,' does not contain 3 and contains 5')
   else
    Writeln(n,' contains neither 3 nor 5');
  end;
 Readln;
END.