Показать сообщение отдельно
Старый 20.03.2013, 15:02   #5 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от 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.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070