IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

2 страниц V < 1 2  
Closed Topic Открыть новую тему 
> Арифметический цикл
сообщение
Сообщение #21


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


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);
begin {зачем этот бегин здесь? его надо поставить после заголовка цикла}
for I:=m to n do
if ODD(N) {ты проверяешь четность N. Почему? Посмотри внимательно на формулу и увидишь,
четность какой переменной тебя интересует}
then v:=(A+X*i)/(B+X*i); {a чему будет равно v, если переменная четная?
надо добавить соответствующий else}
S1:=A+B*V;
S:=S+S1;{перед циклом нужно инициализировать S, т.е. присвоить S значение 0}
end;
writeln ('S=',s:4:2);
readln (s);{вместо этого можно просто readln()}
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


гений чегото
**

Группа: Пользователи
Сообщений: 108
Пол: Мужской

Репутация: -  -1  +


уже коечто wink.gif


--------------------
-------------
избранный.... но не в Паскале.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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.

!smoke2.gif

Сообщение отредактировано: polic -


--------------------
-------------
избранный.... но не в Паскале.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #24


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


Ну только + и - перепутал, а так вроде ок
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #25


гений чегото
**

Группа: Пользователи
Сообщений: 108
Пол: Мужской

Репутация: -  -1  +


ну вот общими усилиями разобрали прогу спасибо Michael_Rybak give_rose.gif , вотвот а модеры не хотели исправить а ток посылали на ссылки как хош так и разбирайся dry.gif


--------------------
-------------
избранный.... но не в Паскале.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #26





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Павел

Репутация: -  0  +


Люди погите, пожалуста ,мне завтра здавать экзамен ,а у меня еще долг, одна задача не решена, и я незнаю как ее сделать: " Дано целое число К и текстовый файл. Создать строковый файл и записать в него все все
СЛОВА длины К из изходного файла СЛОВОМ считать набор симоволов, не содержащих пробелов,
знаков препинания и огран.пробелами, знаками препинания или началом/концом строки.
Если исходный файл не содержит слово длины К, то оставить результат пустым. Большая просьба кто сможет ,поопробуйте сделать!????(((( mega_chok.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #27


гений чегото
**

Группа: Пользователи
Сообщений: 108
Пол: Мужской

Репутация: -  -1  +


Paul - PoRtAl в банер его сдеть ток одна может быть задача


--------------------
-------------
избранный.... но не в Паскале.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #28


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


Цитата(polic @ 25.12.2006 21:18) *

ну вот общими усилиями разобрали прогу спасибо Michael_Rybak give_rose.gif , вотвот а модеры не хотели исправить а ток посылали на ссылки как хош так и разбирайся dry.gif


Тебе мисс_граффити говорила то же самое, так что не будем ;)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #29


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата
вотвот а модеры не хотели исправить а ток посылали на ссылки как хош так и разбирайся


Как решаются задачи на знакопеременный ряд, что нужно делать чтобы не возводить -1 в степень я тебе показал в посте #3, привел ссылку на похожую задачу, а надо было все послностью за тебя решить и здать ... извини. От меня по крайней мере никакой помощи можешь не ждать.

Вопрос решен тема закрыта.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

2 страниц V < 1 2
Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 21.10.2021 8:37
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name