Арифметический цикл |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Арифметический цикл |
polic |
Сообщение
#1
|
гений чегото Группа: Пользователи Сообщений: 108 Пол: Мужской Репутация: -1 |
значит надо возвести в (-1)степень i воспользовался FAQ выдаёт ошибку что преобразование типа bolean в byte
запрещено Прикрепленные файлы arif_chicl.pas ( 401 байт ) Кол-во скачиваний: 238 -------------------- -------------
избранный.... но не в Паскале..... |
Michael_Rybak |
Сообщение
#21
|
Michael_Rybak Группа: Пользователи Сообщений: 1 046 Пол: Мужской Реальное имя: Michael_Rybak Репутация: 32 |
program chiclihescie; |
polic |
Сообщение
#22
|
гений чегото Группа: Пользователи Сообщений: 108 Пол: Мужской Репутация: -1 |
уже коечто
-------------------- -------------
избранный.... но не в Паскале..... |
polic |
Сообщение
#23
|
гений чегото Группа: Пользователи Сообщений: 108 Пол: Мужской Репутация: -1 |
Код program chiclihescie; var S,V,S1,B,A,X:real;n,m,i:integer; begin writeln ('vvedite A,B,N,M,X'); readln ( A,B,N,M,X); S:=0; for I:=m to n do begin if ODD(i) then v:=(A+X*i)/(B+X*i); {я так понмаю здесь v чётная} else v:=-(A+X*i)/(B+X*i) {а здесь нечётную поставить} S1:=A+B*V; S:=S+S1; end; writeln ('S=',s:4:2); readln; end. Сообщение отредактировано: polic - -------------------- -------------
избранный.... но не в Паскале..... |
Michael_Rybak |
Сообщение
#24
|
Michael_Rybak Группа: Пользователи Сообщений: 1 046 Пол: Мужской Реальное имя: Michael_Rybak Репутация: 32 |
Ну только + и - перепутал, а так вроде ок
|
polic |
Сообщение
#25
|
гений чегото Группа: Пользователи Сообщений: 108 Пол: Мужской Репутация: -1 |
ну вот общими усилиями разобрали прогу спасибо Michael_Rybak , вотвот а модеры не хотели исправить а ток посылали на ссылки как хош так и разбирайся
-------------------- -------------
избранный.... но не в Паскале..... |
Paul - PoRtAl |
Сообщение
#26
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Реальное имя: Павел Репутация: 0 |
Люди погите, пожалуста ,мне завтра здавать экзамен ,а у меня еще долг, одна задача не решена, и я незнаю как ее сделать: " Дано целое число К и текстовый файл. Создать строковый файл и записать в него все все
СЛОВА длины К из изходного файла СЛОВОМ считать набор симоволов, не содержащих пробелов, знаков препинания и огран.пробелами, знаками препинания или началом/концом строки. Если исходный файл не содержит слово длины К, то оставить результат пустым. Большая просьба кто сможет ,поопробуйте сделать!????(((( |
polic |
Сообщение
#27
|
гений чегото Группа: Пользователи Сообщений: 108 Пол: Мужской Репутация: -1 |
Paul - PoRtAl в банер его сдеть ток одна может быть задача
-------------------- -------------
избранный.... но не в Паскале..... |
Michael_Rybak |
Сообщение
#28
|
Michael_Rybak Группа: Пользователи Сообщений: 1 046 Пол: Мужской Реальное имя: Michael_Rybak Репутация: 32 |
|
klem4 |
Сообщение
#29
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата вотвот а модеры не хотели исправить а ток посылали на ссылки как хош так и разбирайся Как решаются задачи на знакопеременный ряд, что нужно делать чтобы не возводить -1 в степень я тебе показал в посте #3, привел ссылку на похожую задачу, а надо было все послностью за тебя решить и здать ... извини. От меня по крайней мере никакой помощи можешь не ждать. Вопрос решен тема закрыта. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Текстовая версия | 20.05.2024 5:43 |