Мольба о помощи

[Moris]

Мольба о помощи

Помогите пожалуйста студенту, паскаль первый раз вижу, а до сессии 2 недели !
Необходимо на паскале написать программы для вычисления, формулы во вложении.
Большое спасибо всем кто откликнется !

 

[Vladimir_S]

И всего-то? Да ну...

VAR
 Sum,a:Real;
 k:Integer;

BEGIN
 a:=1/2;
 Sum:=a;
 For k:=2 to 6 do
  begin
   a:=1.0/k/(k+1);
   if ((k+1) mod 2)=1 then a:=-a;
   Sum:=Sum+a;
  end;
 Writeln('Sum= ',Sum:0:5);
 Readln
END.

VAR
 P:Real;
 i:Integer;

BEGIN
 P:=1;
 For i:=2 to 8 do
  P:=P*SQR(1-1/sqr(i));
 Writeln('P= ',P:0:5);
 Readln
END.

 

[Moris]

благодарность

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

 

[Vladimir_S]

Необходимо нарисовать блок-схему

Этим я, увы, не занимаюсь

и найти среднее арифметическое положительных элементов массива, состоящего из 6 элементов (предполагается наличие и отрицательных элементов в массиве).

Сейчас нарисую.

 

[Vladimir_S]

Вот:

VAR
 A:Array[1..6] of Real;
 i,N:Integer;
 M:Real;
BEGIN
 Randomize;
 M:=0;
 N:=0;
 For i:=1 to 6 do
  begin
   A[i]:=Random*100-30;
   Write(A[i]:8:2);
   If A[i]>0 then
    begin
     N:=N+1;
     M:=M+A[i];
    end;
  end;
 Writeln;
 Writeln;
 If N>0 then
  Writeln('Arithmetic mean of positive elements is ',M/N:8:2)
 else
  Writeln('There are no positive elements');
 Readln;
END.

 

[Taper]

Как то даже страшно представить Владимира с умной, размятой головой.

 

[Vladimir_S]

Как то даже страшно представить Владимира с умной, размятой головой.

Да уж - лучше не надо!

 

[DDS]

Вот блок-схема, составленная по программе Vladimir_S.

 

[Moris]

благодарность

Vladimir_S! Еще раз огромное Вам спасибо!!!
Ну а насчет умников, которые не понимают переносного смысла ......

 

[Moris]

DDS! Вам тоже большое спасибо, очень выручили, жил бы в ваших городах - угостил бы вас хотя бы пивом.