Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
li_lego
2 / 2 / 2
Регистрация: 27.10.2012
Сообщений: 110
#1

исправить код (массив) - Turbo Pascal

16.01.2013, 18:13. Просмотров 173. Ответов 0
Метки нет (Все метки)

Даны натуральное число n, действительные числа a1,...,an. Вычислить обратную величину произведения тех членов ai последовательности a1,..., an, для которых выполнено i+1<ai<i!.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt;
var i,n: integer;
    a: array [1..100] of real;
    p: real;
function f(n:integer): integer;
var i,r: integer;
begin
 r:=1;
 for i:=1 to n do
  r:=r*i;
 f:=r;
end;
 
begin
 clrscr;
 write('n: ');
 p:=1;
 readln(n);
 for i:=1 to n do
  begin
   a[i]:=random(10)-0.55;
   write(a[i]:7:3);
  end;
  for i:=1 to n do
   if (a[i]>i+1)and(a[i]<f(i)) then
    p:=p*a[i];
  writeln;
  writeln('Произведение: ',1/p:5:4);
  readln;
end.
помогите сделать без функции
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.01.2013, 18:13
Я подобрал для вас темы с готовыми решениями и ответами на вопрос исправить код (массив) (Turbo Pascal):

Исправить код!
uses crt; var i,j,min,max :integer; A:array of integer; begin randomize;...

Исправить код
задание: В целочисленном векторе vectorn переместить в начало все нулевые...

Исправить код
program P4; type school = record nm:integer; name: string; surname:...

Как исправить код?
Program sortitovka; var i,n:integer; a:array of integer; procedure...

Нужно исправить код
Нужно записать процедуру вывода массива, для исходного. Для конечного...

Исправить код сортировки
Помогите пожалуйста найти ошибку в теле программы! Вот задание - e) Створіть...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2013, 18:13
Привет! Вот еще темы с решениями:

Исправить программный код
Program pr1; uses crt; var x,y,z:array of integer; n,i,j,k,m:integer;...

Сортировка слиянием - исправить код
Помогите, пожалуйста! Я уже очень много раз просила помощь, первые 10 сообщений...

Распаковка строки, исправить код
Здравствуйте, решал на **** задачу &quot;распаковка строки&quot;, благополучно решил, на...

Кто может исправить код?
Не понимаю, в чём тут ошибка... Голова уже совсем не варит:umnik: Program...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru