Цитата:
Сообщение от beda
Помогите пожалуста сделать в паскале
|
Да, beda с Вами... Удивительно, до чего наши люди упорны, целеустремленны и настойчивы в стремлении бездельничать! Ведь за то время, пока Вы по форумам шаритесь, десять раз можно было разобраться с азами прграммирования и написать листинги этих дебильно-ясельных задачек для умственно-отсталых. Но нет - делайте за меня, и всё тут!
Ладно, вот Вам задачки на сумму и произведение "в одном флаконе".
Код:
Var
x,S,P:real;
N,i:Word;
Begin
Write('x= ');
Readln(x);
Write('N= ');
Readln(N);
S:=0;
P:=1;
For i:=1 to N do
begin
S:=S+Sqr(x-1.0*i);
P:=P*(x+1.0*i)/i/i;
end;
Writeln('S= ',S:0:3,' P= ',P:0:18);
Readln
End.
И про матрицу:
Код:
Const
M=16;
N=18;
Var
A:Array[1..M,1..N] of Integer;
i,j:Byte;
Npos:Word;
Begin
Npos:=0;
Randomize;
For i:=1 to M do
begin
For j:=1 to N do
begin
A[i,j]:=60-Random(100);
write(A[i,j]:4);
if A[i,j]>0 then Inc(Npos);
end;
Writeln;
end;
Writeln;
Writeln('Number of positive elements is ',Npos);
Readln
End.