|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.12.2011, 20:21 | #1 |
Пользователь
Регистрация: 28.12.2011
Сообщений: 12
|
найти в программе по вычислению сумм ошибку, она вроде короткая, но я что то туплюБ спасибо
var S3,S4:real;
procedure oops(S1:real); var k,n:integer; begin For k:=1 to n do S1:=1/(k*(k+1)*(k+2)); end; procedure cat(S2:real); var n:integer; begin S2:=1/4-1/(2*(n+1)*(n+2)); end; begin writeln ('n ='); readln(n); S3:=0; S3:=S3+oops; S4:=cat; writeln ('summa1',S3); readln; writeln ('summa2',S4); readln; end. |
28.12.2011, 20:25 | #2 |
Пользователь
Регистрация: 28.12.2011
Сообщений: 12
|
Пожаааалуйста
ЭЭЭЭЭЭЭЭЙЙЙЙЙЙ!!
|
28.12.2011, 20:33 | #3 | |||
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
Цитата:
Цитата:
Цитата:
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
|||
28.12.2011, 20:41 | #4 | |
Пользователь
Регистрация: 28.12.2011
Сообщений: 12
|
Цитата:
oops(n) cat(k)? Последний раз редактировалось kametto; 28.12.2011 в 20:50. |
|
28.12.2011, 21:54 | #5 | |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
Цитата:
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ошибку не могу найти в программе | Веселина | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 26.05.2011 20:44 |
Не могу найти ошибку в программе | lioshenka | Общие вопросы C/C++ | 5 | 24.08.2009 11:38 |
Помогите найти ошибку в программе | Nemles | Помощь студентам | 0 | 14.06.2009 14:21 |
Помогите найти ошибку в программе | KnDmPetr | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 10.03.2008 14:19 |
Помогите исправить ошибку пожал-та. Что то вроде транслитератора. | Gauss | Общие вопросы Delphi | 23 | 04.03.2008 21:16 |