Одномерный массив

[Марина_marina]

ПАСКАЛЬ
Даны целые числа A(30). Пусть max – наибольшее, а min – наименьшее значения. Получить в порядке убывания все целые числа из интервала (max, min), которые не входят в исходную последовательность.

Составить программу вычисления периметра многоугольника, координаты которого заданы парами точек x1y1 x2y2....x10y10

Дан массив А(10). Получить массив В(10), где Вi – среднее арифметическое всех элементов массива А(10), кроме Аi.


Спасибо всем за помощь!!!!!

[Nitrino]

Было бы задание на c++ то может и накатал бы хоть одну лабу, но на паскале писать не стану!! выкладывайте свои наработки и вопросы, а там и будем разбираться. А пока красная карточка тебе светит

[Chudo4258]

Составить программу вычисления периметра многоугольника, координаты которого заданы парами точек x1y1 x2y2....x10y10

вычисляете длины сторон:

S[i]=sqrt(sqr(x[i]-x[i+1])+sqr(y[i]-y[i+1]));

и находите сумму P=ΣS[i].

// заполняете массиы А
for i:=1 to n do
begin
 S:=0;
 for j:=1 to n do
  if i<>j then S:=S+A[j];
 B[i]:=S/(n-1); 
end;
for i:=1 to n do
 writeln(B[i]);

Даны целые числа A(30). Пусть max – наибольшее, а min – наименьшее значения. Получить в порядке убывания все целые числа из интервала (max, min), которые не входят в исходную последовательность.

1) находим индексы max и min значений - maxi, mini;
2) создаете мн-во M - всех чисел от max до min;
M:=[];
for i:=min to max do
M:=M+[i];
3) создаете мн-во N - всех элементов массива заключенных м/д max и min;
N:=[];
for i:=mini to maxi do
M:=M+[A[i]];
4) Находите множество X - чисела, которые не входят в данную последовательность:
X:=M-N;
5) выводим мн-во Х на экран;
for i:=min to max do
if i in X then writeln(i);

Но только числа будут в порядке возрастания.

From Stilet: Что лень посты обьединить?

[Марина_marina]

Chudo4258
спасиб большое, ты мне очень помог))))

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!

1) Дано вещественное число х. Вычислить Х - Х В КУБЕ/3! + Х В 5 степени /5! - х в 7 стпени /7! + х в 9 степени / 9!

буду очень благодарна!!!!
заранее кто сделает огромное спасибо)))

[val_nnm]

Замечаем что каждый последующий член ряда можно вычислить из предыдущего т.е. если наш ряд представить в виде t(0,x)+t(1,x+t(2,x)+t(3,x)+t(4,x) то найдем отношение для t
t(1,x)/t(0,x)=(-(x*x*x)/(1*2*3))/(x)=-(x*x)/(2*3)
t(2,x)/t(1,x)=((x*x*x*x*x)/(1*2*3*4*5)/(-(x*x*x)/(1*2*3))=-(x*x)/(4*5)
t(3,x)/t(2,x)=(-(x*x*x*x*x*x*x)/(1*2*3*4*5*6*7)/((x*x*x*x*x)/(1*2*3*4*5))=-(x*x)/(6*7)
...
t(n,x)/t(n-1,x)=-(x*x)/(n*2+(n+1)*2)

отсюда t(n,x) = -t(n-1,x)*(x*x)/(n*2+(n+1)*2)

а вот и программа

function F(X:real):real;
Var S:real;
    t:real;
    i:integer;
Begin
  t := x;
  S := t;
  for i:= 1 to 4 do
  Begin
    t := -t*(x*x)/((i*2)*(i*2+1));
    S := S+t;
  End;
  F := S;
End;

var x:real;
Begin
  Write('x='); ReadLN(x);
  Writeln('f(',x,')=',F(x));
End.