|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.12.2008, 09:44 | #1 |
Новичок
Джуниор
Регистрация: 26.12.2008
Сообщений: 2
|
Несчитает контрольную сумму напряжения
procedure Uin1(n,k :Integer;
kl :byte; U0,T1,uk,Uv :Real; var uin,U :AT); var t,del:Real; i :Integer; Begin t:=0; del:=T1/n; begin Uv:=0; for k:=1 to 3 do u[1]:=15; u[2]:=4; u[3]:=2.5; for i:=1 to n do begin uv:=uin[i]+U[k]*Sin(2*3.14*k*t/T1)+U0; uin[i]:=uv; t:=t+del; end; end; End; подскажите где тут ошибка |
27.12.2008, 14:57 | #2 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Насколько я понимаю, вы привели код только процедуры?
Если так, то попробуйте (не проверял): Код:
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] Последний раз редактировалось Sazary; 27.12.2008 в 14:59. |
28.12.2008, 12:33 | #3 |
Новичок
Джуниор
Регистрация: 26.12.2008
Сообщений: 2
|
спс за помощь
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите решить контрольную на С++. Срочно! | MjRed | Фриланс | 4 | 06.12.2008 10:16 |
помогите решить контрольную на паскале | Hardboy71 | Фриланс | 4 | 11.11.2008 15:27 |
Подсчитать сумму! | Deman4eg | Microsoft Office Excel | 2 | 02.04.2008 09:16 |