Модуль Unit

@vovchik7 · Регистрация: 26.10.2014

Студворк — интернет-сервис помощи студентам

Кто подскажет , в чем может быть проблема, постоянно выбивает ошибку в init , а именно здесь( s1:= s1 + uPower/factorial

Вот сам Юнит:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
unit Unit1;
 
interface
uses math;
 
function x1(i1,i2,i3,d1,d2,d3:real):real;
function y1(i1,i2,i3,d1,d2,d3:real):real;
function z1(i1,i2,i3,d1,d2,d3:real):real;
function q1(c,a,b:real):real;
function s1(u:shortint; n,i,k:byte; uPower:longint; factorial:longword):real;
 
implementation
 
function x1(i1,i2,i3,d1,d2,d3:real):real;
 begin
  x1:=power(10,3)/3*(i1/(i2+i3))*(d1+d2+d3);
 end;
function y1(i1,i2,i3,d1,d2,d3:real):real;
 begin
  y1:=(d1/(d2*d3))+(i3/(i1+i2));
 end;
function z1(i1,i2,i3,d1,d2,d3:real):real;
 begin
  z1:=d1*((i1+i2)/d2)+(i3/(i1*i2));
 end;
function q1(c,a,b:real):real;
 begin
 if (c<=a) then
  q1:=power(power(cos(c),3)+(0.9*tan(c)),2.3)
   else
 if (a<c) and (c<b) then
  q1:=exp(c)/sqrt(sin(c))+(8.9*c)+9
   else
 if (c>=b) then
  q1:=(abs(ln(c)+cos(power(c,2.1))-(1.2*c))*power(c,4.6));
 end;
function s1(u:shortint; n,i,k:byte; uPower:longint; factorial:longword):real;
 begin
  n:=10;
  factorial := 1;
  uPower := u;
  s1 := uPower/factorial;
  k := 3;
  for i:= 2 to n do
  begin
    uPower := -1*uPower*sqr(u);
    factorial:= factorial*k*(k - 1);
    s1:= s1 + uPower/factorial;
    Inc(k, 2);
 end;
 end;
end.

Вот основная программа:

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
31
32
33
34
35
36
37
38
39
40
41
program LB1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  math,
  Unit1 in 'Unit1.pas';
 
var i1,i2,i3:integer;
  y,x,z,d1,d2,d3:real;
  q,c,a,b:real;
  u : ShortInt;
  S: real;
  n, i, k : Byte;
  uPower : LongInt;
  factorial : LongWord;
begin
  writeln('Enter i1,i2,i3');
  readln(i1,i2,i3);
  writeln('Enter d1,d2,d3');
  readln(d1,d2,d3);
  writeln('Enter A');
  readln(A);
  writeln('Enter B');
  readln(B);
  writeln('Enter C');
  readln(C);
  writeln('Input u=');
  readLn(u);
  writeln('--1--');
  writeln('x= ', x1(i1,i2,i3,d1,d2,d3):0:2);
  writeln('y= ', y1(i1,i2,i3,d1,d2,d3):0:2);
  writeln('z= ', z1(i1,i2,i3,d1,d2,d3):0:2);
  writeln('--2--');
  writeln('q=', q1(c,a,b):0:2);
  writeln('--3--');
  writeln('S=', s1(u,n,i,k,uPower,factorial):0:5);
  readln;
 
end.

@volvo · 16.11.2014, 18:43

vovchik7, когда имя функции используется справа от знака присваивания, компилятору кажется, что ты хочешь вызвать рекурсивно функцию s1. Но тогда сразу после этого идентификатора должна быть открывающаяся скобка. Чтобы это исправить - используй result вместо имени функции:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function s1(u:shortint; n,i,k:byte; uPower:longint; factorial:longword):real;
 begin
  n:=10;
  factorial := 1;
  uPower := u;
  result := uPower/factorial;
  k := 3;
  for i:= 2 to n do
  begin
    uPower := -1*uPower*sqr(u);
    factorial:= factorial*k*(k - 1);
    result := result + uPower/factorial;
    Inc(k, 2);
  end;
 end;

(по наличию APPTYPE CONSOLE предполагаю, что компилятор - либо Дельфи, либо FPC, и тот и другой это позволяют)

@vovchik7 · 16.11.2014, 18:48 **[ТС]**

Спасибо, помогло)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@vovchik7 0 / 0 / 0 Регистрация: 26.10.2014 Сообщений: 86
	16.11.2014, 18:48 [ТС]
	Спасибо, помогло) 0