1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
1. Вот это функция вычисляющая определенный интеграл методом правых прямоугольников. Преподаватель сказал, что можно испраить немного эту функцию, чтобы получить оптимальный вариант. Как это сделать?
Код
function prav(a,b:real;n:integer):real; var s,x:real; dx:real; xb:real; i:integer; begin dx:=(b-a)/n; s:=0; xb:=b; for i:=1 to n do begin x:=xb-i*dx; s:=s+f(x)*dx; end; prav:=s; end;
--------------------------------------------------------------------- 2.Используя ЦЕПОЧКИ СИМВОЛОВ (не стринги), вывести все слова начинающие на "М". Слова разделены пробелами. Стринги не использовать, т.к. сам уже сделал
--------------------
Ну, а почему бы в свободное время не позаниматься программированием?
Про величину, значением которой является последовательность (цепочка) символов, (т.е. элементов типа char) говорят, что она имеет строковый или литерный тип (тип string).
Непонятно, что ты имел в виду. Просто массив of char? Строку, заканчивающуюся нулем (как в С)?
--------------------
я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой
Пример цепочек символов - в студию (лично мне это понятие не знакомо)...
Код
var c:Char; i:integer; begin
for i:=1 to 10 do begin read(c); write(c); end;
end.
В общем, когда заранее известно длина строки.
Цитата
А вообще - не изобретай велосипедов
Я стараюсь задачи сам решать, просто я только начинаю изучать паскаль, поэтому мне нужны некоторые советы.
Цитата
(Что ж ты в FAQ неоптимальный код запостил? Доведи его до ума, потом посмотрим...)
А разве простой пользователь может разместить свой пример в ФАКе? А вообще, по-моему, этот код годится для FAQa, может только методы прямоугольников подредактировать
Цитата(volvo @ 28.09.2006 22:52)
Насчет функции - я бы сделал так:
Большое спасибо!
Я думаю теперь код годиться для фака. Теперь можно опубликовать?
Сообщение отредактировано: }0pa -
--------------------
Ну, а почему бы в свободное время не позаниматься программированием?
В-общем, это у тебя не цепочка символов, а просто символ. Один... В FAQ-е разговор не про это, а про PChar, который, к сожалению, является Null-Terminated String, а ты просил String-и не предлагать...
Цитата
А разве простой пользователь может разместить свой пример в ФАКе?
Ну, ты же попытался, хотя написано, что тот раздел - на премодерации, и код будет тестироваться, прежде чем будет разрешен... А тут вдруг ты сам признаешь, что код неоптимальный... Зачем нам такой? Неоптимальных кодов знаешь, сколько по всему интернету раскидано?
А тут вдруг ты сам признаешь, что код неоптимальный... Зачем нам такой? Неоптимальных кодов знаешь, сколько по всему интернету раскидано?
Ну, теперь-то он оптимальный.
В принципе, задача решенная что-то вроде по ниженаписанному примеру, тоже подойдет. "Слова разделены пробелом, вывести все слова на букву "М""....
Код
var s:string; f:Char i:byte; begin readln(s); for i:=1 to Length(s) div 2 do begin f:=s[i]; s[i]:=s[Length(s)-i+1]; s[Length(s)-i+1]:=f; end; writeln(s); end.
P.S. из FAQ-a
--------------------
Ну, а почему бы в свободное время не позаниматься программированием?
может, цепочка символов - это такой мини-список? то есть у эл-та 2 поля: символ и указатель на следующий? (или еще и на предыдущий)?
--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!