1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
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.
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.
Люди погите, пожалуста ,мне завтра здавать экзамен ,а у меня еще долг, одна задача не решена, и я незнаю как ее сделать: " Дано целое число К и текстовый файл. Создать строковый файл и записать в него все все СЛОВА длины К из изходного файла СЛОВОМ считать набор симоволов, не содержащих пробелов, знаков препинания и огран.пробелами, знаками препинания или началом/концом строки. Если исходный файл не содержит слово длины К, то оставить результат пустым. Большая просьба кто сможет ,поопробуйте сделать!????((((
вотвот а модеры не хотели исправить а ток посылали на ссылки как хош так и разбирайся
Как решаются задачи на знакопеременный ряд, что нужно делать чтобы не возводить -1 в степень я тебе показал в посте #3, привел ссылку на похожую задачу, а надо было все послностью за тебя решить и здать ... извини. От меня по крайней мере никакой помощи можешь не ждать.
Вопрос решен тема закрыта.
--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'