Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
li_lego
2 / 2 / 1
Регистрация: 27.10.2012
Сообщений: 110
#1

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

16.01.2013, 18:13. Просмотров 162. Ответов 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):

Исправить код! - Turbo Pascal
uses crt; var i,j,min,max :integer; A:array of integer; begin randomize; for i:= 1 to 3 do for j:=1 to 3 do A:=random(9); ...

Исправить код - Turbo Pascal
задание: В целочисленном векторе vectorn переместить в начало все нулевые элементы, за ними – все отрицательные элементы в порядке их...

Исправить код - Turbo Pascal
program P4; type school = record nm:integer; name: string; surname: string; god: integer; bukva:set of char= {Множество...

Исправить программный код - Turbo Pascal
Program pr1; uses crt; var x,y,z:array of integer; n,i,j,k,m:integer; begin writeln ('n='); readln (n); writeln ('m='); ...

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

Исправить код программы - Turbo Pascal
uses crt; function c5(n:integer):boolean; var m,i:integer; f:boolean; begin m:=abs(n); f:=false; while(m&gt;0)and not f do ...

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

Нужно исправить код - Turbo Pascal
Нужно записать процедуру вывода массива, для исходного. Для конечного отсортированного уже есть. И объединить их в одну. Вот уже час бьюсь,...

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

Распаковка строки, исправить код - Turbo Pascal
Здравствуйте, решал на **** задачу &quot;распаковка строки&quot;, благополучно решил, на компьютере все работает, но на **** выдает &quot;Runtime Error&quot;....

Исправить код работы с массивом - Turbo Pascal
помогите исправить ошибку в этой задаче: Program Pr7; Uses Crt; Var n,j,g,m,s,r:integer; A:Array of integer; Begin ...


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

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

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