Pascal

[Nya]

Ребята прошу помогите написать парочку программ в Pascal'е, а то блин девочке блондиночке очень очень допуск нужен, а с компами плохо разбираюсь((

Посмотреть вложение pascal.doc

 

[Nya]

Ну хоть кто-нибудь и в чем-нибудь помогите...умоляю т_Т

 

[Vladimir_S]

Ну хоть кто-нибудь и в чем-нибудь помогите...умоляю т_Т

Да уж ладно - хоть в чем-то поможем:

 

[Nya]

Спасибо вам огромное =*** а к 3 задаче можете пожалуйста написать как вы хоть ее решали? И 5 можно без подпрограмм просто решить задачу.

 

[Vladimir_S]

Спасибо вам огромное =*** а к 3 задаче можете пожалуйста написать как вы хоть ее решали? И 5 можно без подпрограмм просто решить задачу.

Да никак я третью задачу не решал! Просто увидел, что там в знаменателе Ln(k), и при этом k может принимать значение, равное единице, а значит Ln(k) будет равен нулю, отсюда неизбежно возникнет ошибка деления на ноль, о чем я и написал.
По пятой - позже. Сейчас я на работе, и просто нет возможности этим заниматься. Кстати, Вы уверены, что нужен квадрат суммы, а не сумма квадратов?

 

[Nya]

Да уверена, и что мне тогда с 3 задачей делать? т_Т

 

[Vladimir_S]

Да уверена, и что мне тогда с 3 задачей делать? т_Т

Пока - вот пятая:

VAR
 A:ARRAY[1..100] of Byte;
 i,j,k:Integer;
 S:LongInt;
BEGIN
 Randomize;
 For i:=1 to 100 do A[i]:=Random(30);
 For j:=0 to 4 do
  begin
   For i:=1 to 20 do
    Write(A[j*20 +i]:3);
   WriteLn;
  end;
 WriteLn;
 S:=0;
 k:=0;
 For i:=1 to 100 do
  If A[i]<10 then
   begin
    k:=k+1;
    if k=21 then
     begin
      writeln;
      k:=0;
     end;
    write(A[i]:3);
    S:=S+A[i];
   end;
 WriteLn;
 WriteLn;
 S:=S*S;
 WriteLn('S*S= ',S);
 ReadLn;
END.

А по третьей - могу предложить считать, начиная с k=2. Тогда проблем быть не должно.
Если устроит, то так:

CONST
 n=4;
 m=3;
VAR
 i,j,k:Integer;
 a:ARRAY[1..n,1..m] of Real;
 C:ARRAY[2..n] of Real;
 S:Real;
BEGIN
 S:=0;
 For i:=1 to n do
  For j:=1 to m do
   begin
    Write('a[',i,',',j,']= ');
    ReadLn(a[i,j]);
    S:=S+a[i,j]+Sin(a[i,j]);
   end;
 WriteLn;
 S:=Ln(Abs(S));
 For k:=2 to n do
  begin
   C[k]:=S/(Ln(k)*2);
   WriteLn('C[',k,']=',C[k]:15:5);
  end;
 ReadLn;
END.

 

[Nya]

Спасибо спасибо спасибо вам огромное вы просто мой спаситель ^_^ И давайте тогда 3 с k=2, и еще раз вам огромное спасибо, я просто даже и не знаю как вам выразить свою благодарность =**********

 

[Vladimir_S]

И давайте тогда 3 с k=2

Так уже добавил в предыдущий пост.

 

[Nya]

Еще раз вам огромное преогромное спасибище =***