"Все сообщения пользователя sam"


Страницы: 1
Как заполнить масив в Паскале?
Пользователь: sam
Сообщений: 4
Статус: Пользователь
Зарегистрирован:
9 января 2009, 19:13
Был:12 января 2009, 3:16
sam
smsup 		Дата: 9 января 2009, 19:29 Сообщение №
для одномерного массива:
writeln('Как вы хотите ввести? Если вручную-нажмите 1,если автоматически-2.');
readln(c);
if c='1' then
begin
for i:=1 to n do
begin
writeln('Введите a[',i,'] элемент');
read(a[i])
end
end;
if c='2' then
begin
randomize;
for i:=1 to n do
a[i]:=random(100);
a[i]:=a[i,j]-50
end;
for i:=1 to n do
write(a[i,j]:10:2);
writeln


как вычислить сумму с заданной точностью
Пользователь: sam
Сообщений: 4
Статус: Пользователь
Зарегистрирован:
9 января 2009, 19:13
Был:12 января 2009, 3:16
sam
smsup 		Дата: 9 января 2009, 19:31 Сообщение №
Вычислить бесконечную сумму с заданной точностью e(e>0).Считать,что
требуемая точность достигнута,если вычислена сумма нескольких первых
слагаемых и очередное слагаемое оказалось по модулю меньше чем е,-это
и все последующие слагаемые можно уже не учитывать.
Пользователь: sam
Сообщений: 4
Статус: Пользователь
Зарегистрирован:
9 января 2009, 19:13
Был:12 января 2009, 3:16
sam
smsup 		Дата: 9 января 2009, 19:32 Сообщение № 
Код на Pascal
  1. Program Z119;  
  2. uses crt;  
  3. var i,st:integer;  
  4.     s,e,sl,fak:real;  
  5. begin  
  6.  clrscr;  
  7.  repeat  
  8.  writeln('Введите е>0');  
  9.  readln(e);  
  10.  until e>0;  
  11.  s:=0;  
  12.  i:=1;  
  13.  fak:=1;  
  14.  repeat  
  15.  if i mod 2=0 then  
  16.   begin  
  17.    fak:=fak/i;  
  18.    sl:=fak;  
  19.    s:=s+sl;  
  20.    i:=i+1;  
  21.    writeln('Сумма равна ', s:5:2)  
  22.   end  
  23.  else begin  
  24.    fak:=fak/i;  
  25.    i:=i+1;  
  26.    sl:=fak;  
  27.    s:=s-sl;  
  28.    writeln('Сумма равна ', s:5:2)  
  29.    end;  
  30.  until abs(sl)<=e;  
  31.  readln  
  32. end.  
  33.  
При использовании обязательна ссылка на http://DMTSoft.ru

Страницы: 1