Помогите построить график

Воспользуйся такой функцией вместо MOD:

function FMod (a, b: Double): Double;
begin
   Result := a - b * Trunc(a / b)
end;

Это аналог функции fmod() на С.

С этим, кажется, разобралась - недаром ведь по заданию провежуток дан в мс, а не в с, значит, периоды тоже можно в мс делать, тогда они - целые...

Но он пишет ошибку - когда я пишу присвоить значению функции такое-то значение: I(t):=Im. Почему он это пишет? Как исправить?

Потому что на Паскале так не пишут. Для этого есть зарезервированное слово Result.

Цитата Romtek @ 22.05.10, 13:11

Воспользуйся такой функцией вместо MOD:

function FMod (a, b: Double): Double;
begin
   Result := a - b * Trunc(a / b)
end;

Это аналог функции fmod() на С.

ясно. А что такое a,b и trunc?

Пардон, пишется имя функции, а не Result.

Result только в Делфи или в FreePascal в режиме ObjFPC.

Добавлено 22.05.10, 13:25

Цитата Prutvel @ 22.05.10, 13:22

А что такое a,b и trunc?

Trunc отсекает мантиссу вещественного числа.
Trunc(-5.3) = -5
Trunc(5.3) = 5

Добавлено 22.05.10, 13:26
a, b - входные параметры для функции. Вроде бы как...
В чём, собственно, вопрос?

Цитата Romtek @ 22.05.10, 13:23

Пардон, пишется имя функции, а не Result.

Так вот я и писала I(t):=Im, а он пишет ошибку...

И я написала, как Вы сказали - посмотрите, пожалуйста, так?
Прикреплённый файлглянь.jpg (40.88 Кбайт, скачиваний: 461)

Prutvel
Копируйте текст программы из FPC. Edit -> Copy to Windows

function FMod (t,T3: double):double;
Const Im=0.57; L=0.1; tau=62; f1=5.37; f2=8.06; T1=186;T2=124; T3=310;

begin
if (t-T3*Trunc(t/T3))<tau then I(t):=Im;
if ((t-T3*Trunc(t/T3))>=tau) and ((t-T3*Trunc(t/T3))<T1) then I(t):=-Im;
if ((t-T3*Trunc(t/T3))>=T1) and ((t-T3*Trunc(t/T3))<(T1+tau)) then I(t):=Im;
if (t-T3*Trunc(t/T3))>=(T1+tau)) and ((t-T3*Trunc(t/T3))<T3) then I(t):=-Im;
end.

Цитата Prutvel @ 22.05.10, 13:32

Так вот я и писала I(t):=Im, а он пишет ошибку...

Я написал только про имя. Если передаём и параметр, то получаем рекурсивный вызов функции. Но так как можно только получить результат рекурсии, а не присвоить ему значени, то получаешь ошибку.

Убери параметр (t).

Так компилируется, насколько верно записано - не знаю.

function FMod (a, b: Double): Double;
begin
   FMOD:= a - b * Trunc(a / b);
end;
 
Function i(t:Double): Double;
Const
  Im=0.57; L=0.1; tau=62; f1=5.37; f2=8.06; T1=186;T2=124; T3=310;
 
begin
  if fmod(t,T3)<tau then
    i:=Im;
  if (fmod(t,T3)>=tau) and (fmod(t,T3)<T1) then
    I:=-Im;
  if (fmod(t,T3)>=T1) and (fmod(t,T3)<(T1+tau)) then
    I:=Im;
  if (fmod(t,T3)>=T1+tau) and (fmod(t,T3)<T3) then
    I:=-Im;
end;
 
begin
end.

а как же мне тогда задавать интервалы?

Цитата Prutvel @ 22.05.10, 13:50

а как же мне тогда задавать интервалы?

Я подправил предыдущее сообщ. Проверьте.

пишет на последнем end ошибку Error while linking, подставляла readln, writeln - не помогает...

Это когда предыдущие скомпилированные и запущенные программы не были закрыты.

Если они закрыты, надо завершить их процессы в Task Manager.

а где это?