|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.12.2008, 13:35 | #1 |
Регистрация: 27.12.2008
Сообщений: 4
|
Сформировать массив X[N], n-й член которого определяется формулой X(N) = 1/N!
Помогите найти ошибку вкоде решения:
Задача:Сформировать массив X[N],n-й член которого определяется формулой X(N)=1/N!(факториал) Мой код: Код:
|
28.12.2008, 13:52 | #2 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
Исправленный код
uses crt;
var mas:array[1..100] of real; n,i:integer; function fact(n:integer):longint; begin if n=1 then fact:=1 else fact:=n*fact(n-1); end; begin clrscr; write(' Введите n -> '); readln(n); writeln; for i:=1 to n do begin mas[i]:=1/fact(i); end; for i:=1 to n do write(mas[i]:4:4,' '); readln; end.
@(o_0)@
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сформировать массив (строки) | felmor | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 25.12.2008 20:10 |
Дано х. Сформировать массив а(10). | dsdt | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 22.12.2008 20:51 |
Двумерный массив.Поиск столбца сумма,которого равна 0 | Almost456 | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 30.11.2008 23:43 |
одномерный массив, каждый элемент которого равен наибольшему по модулю элементу соответствующего столбца | ruslan09-93 | Помощь студентам | 2 | 15.11.2008 20:26 |
одномерный массив, элементы которого собраны в возрастающем порядке из двух начальных массивов | Scudetto | Общие вопросы C/C++ | 7 | 21.10.2007 20:46 |