Прошу помощи в решении задач в Pascal

[Avantage]

Прошу помощи в решении задач в Pascal

Доброго времени суток.
Прошу Вашей помощи в решении 3-ех задач в среде Pascal.
Заранее спасибо.

 

[Vladimir_S]

Прошу Вашей помощи

Без проблем - поможем, поправим, объясним. Только для начала выложите результаты хоть каких-то собственных попыток выполнения этого глупейшего задания для младшей ясельной группы. А оказание "помощи" типа "вы тут давайте, а я пошел" у нас не приветствуется. Напоминаю (на всякий случай) что учитесь Вы, а не мы. Ну так учитесь!

 

[Avantage]

К сожалению, в данный момент я прохожу военную службу по призыву, и данную задачу поставил мой командир. Интернет-соединение не позволяет скачать даже элементарный компилятор языка программирования Pascal, чтобы попытаться сделать что либо самому. Как правило, в подобных ситуациях я ищу решение самостоятельно, но в этом случае я сам справиться не смогу =(

 

[Vladimir_S]

Ну коли так - ладно, сейчас нарисую. Интересно, а командиру-то оно зачем? :tehnari_ru_117:

Ладно, понимаем - вопрос стратегический и объект гостайны. Можете не отвечать. Вот тексты трех донесений для передачи командиру:

Function F(z:real):byte;
begin
 If ((z>-5) and (z<-2)) or ((z>2) and (z<5)) then F:=2 else F:=0;
end;

Begin
 Writeln('x= -3.7;   y= ',F(-3.7));
 Readln
End.

Var
 P:real;
 n,Num:byte;
Begin
 P:=1;
 Num:=0;
 for n:=1 to 10 do
  if Sin(Sqr(n))/Exp(Sqrt(n))<0 then
   begin
    Num:=Num+1;
    P:=P*Sin(Sqr(n))/Exp(Sqrt(n));
   end;
 Writeln('Num= ',Num);
 Writeln('P= ',P);
 Readln
End.

Const
 X:Array[1..6] of Real=(-5.2, 48.5, -24.51, -0.0025, -62.58, 48.2);
 b=0.248;
Var
 m:real;
 i:byte;
Begin
 m:=X[1];
 for i:=2 to 6 do
  if X[i]>m then m:=X[i];
 Writeln('a= ',b-m:0:5);
 Readln
End.

Или надо было зашифровать?

 

[Avantage]

Огромное спасибо, вы мне очень помогли.
Торжественно клянусь начать изучать языки программирования (хотя бы поверхностно) после возвращения на "гражданку", благо в будущей карьере гейм-дизайнера это немного, но пригодится.
Успехов в личной и профессиональной деятельности!
ReadIn
End.