|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.12.2008, 21:27 | #1 |
Регистрация: 02.11.2008
Сообщений: 7
|
Проверте пожайлуста написания програмы
Проверте пожайлуста правильно ли я написал програму на Паскале
которая з точностю 0.01 % ищет суму ряда (1/sqr(2))*(1/sqr(3))*(1/sqr(4))+... Program Sr; Uses crt; var t:real; s:real; i:longint; begin clrscr; t:=0.0001; i:=1; s:=0; repeat s:=s+( 1/sqr(i )); inc(i) until ( 1/(sqr(i )))<t; writeln('Summa rady = ',s:12:9); writeln('Pods4utano ',i,' chlenov v rady'); readln; END. |
07.12.2008, 21:45 | #2 |
Форумчанин
Регистрация: 29.06.2008
Сообщений: 603
|
Неправильно.
В условии начинаем считать от 2-х, а ты от 1-го. В условии идет перемножение, а у тебя сложение. |
08.12.2008, 01:28 | #3 |
Регистрация: 02.11.2008
Сообщений: 7
|
|
08.12.2008, 09:47 | #4 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Интересно как выглядит ряд, если там знаки умножения только?
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
09.12.2008, 01:13 | #5 |
Регистрация: 02.11.2008
Сообщений: 7
|
|
09.12.2008, 08:27 | #6 | |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Цитата:
1.(1/sqr(2))*(1/sqr(3))*(1/sqr(4))+(1/sqr(2))*(1/sqr(3))*(1/sqr(4)*(1/sqr(5))... 2.(1/sqr(2))*(1/sqr(3))*(1/sqr(4))+(1/sqr(3))*(1/sqr(4))*(1/sqr(5))+... А в программе у Вас (1/sqr(2))+(1/sqr(3))+(1/sqr(4))+...
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Локализация програмы | neo_m | Помощь студентам | 4 | 10.03.2008 15:24 |
Проверте сайт | niva622 | HTML и CSS | 10 | 23.08.2007 18:26 |
запуск програмы | ZhekON | Общие вопросы Delphi | 11 | 05.06.2007 16:05 |
Очень нужно сделать 2 програмы!!! Help !!! Помогите !!! | Nazarik | Помощь студентам | 7 | 24.02.2007 01:51 |