Редактирование интеграла и символы Опции

[}0pa]

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.Используя ЦЕПОЧКИ СИМВОЛОВ (не стринги), вывести все слова начинающие на "М". Слова разделены пробелами. Стринги не использовать, т.к. сам уже сделал

[}0pa]

Пример цепочек символов - в студию (лично мне это понятие не знакомо)...

Код

var
c:Char;
i:integer;
begin

for i:=1 to 10 do
  begin
   read(c);
   write(c);
end;

end.

В общем, когда заранее известно длина строки.

А вообще - не изобретай велосипедов

Я стараюсь задачи сам решать, просто я только начинаю изучать паскаль, поэтому мне нужны некоторые советы.

(Что ж ты в FAQ неоптимальный код запостил? Доведи его до ума, потом посмотрим...)

А разве простой пользователь может разместить свой пример в ФАКе? А вообще, по-моему, этот код годится для FAQa, может только методы прямоугольников подредактировать

Насчет функции - я бы сделал так:

Большое спасибо!

Я думаю теперь код годиться для фака. Теперь можно опубликовать?

Сообщение отредактировано: }0pa - 29.09.2006 10:07