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

исправить код (массив) - 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
исправить код (массив) Turbo Pascal    
Другие темы раздела
Turbo Pascal Нахождение площади трапеции http://www.cyberforum.ru/turbo-pascal/thread763563.html
Привет всем , будте добры кто разбирается посмотрите пожалуйста правильность написания 5-и работ .
Turbo Pascal Матрицы. Быстрая сортировка Дана матрица. Упорядочить элементы строк матрицы по убыванию, а сами строки по убыванию характеристик строк. Характеристикой строки матрицы называется сумма ее положительных четных элементов.... http://www.cyberforum.ru/turbo-pascal/thread763553.html
Turbo Pascal Перевод из числа в строку
Как перевести допустим число 123546 в строку и обратно В ABSPaskal это выглядит так var n:integer; s :string; Begin readln(n); s:=inttostr(n); writeln(s) n:=strtoint(s); writeln(n); end.
Turbo Pascal контрольная работа
Здравствуйте! Очень нужна помощь... В пятницу сдавать контрольную, а я совершенно не помню паскаль... Вот задания: Задание 1. Найти расстояние между двумя точками с заданными координатами (x1, y1) и...
Turbo Pascal Двумерный массив. Вывести номера элементов имеющих нулевые значения http://www.cyberforum.ru/turbo-pascal/thread763489.html
Дан двумерный массив q,n,m вывести номера элементов имеющих нулевые значения, если таких элементов нет вывести соответствующие сообщение. Помогите пожалуйста.
Turbo Pascal Как подключать в прогу библиотеки Как подключать в прогу библиотеки Framefork.net к примеру System.Windows.Forms.dll и System.Drawing.dll знаю что в PascalAbc.net можно делать это, а хотелось бы именно в Turbo Pascal. Помогите... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru