Пожалуйста помогите решить 4 задачки на массивы и оператор цикла.

[alena-yalymova]

Мне сегодня задали (до утра воскресенья) еще 4 задачки на Оператор цикла и массивы.
Можете еще разик помочь?
Вот эти задачки:
№ 1. Дано натуральное n и действительное х, вычислить сумму ряда и распечатать
n i+1 i
S=Σ ((-1) * x )/(2i)!
1
№ 2. Вычислить сумму ряда и распечатать для x=0.4
n i
S= Σ ((x+cos(ix))/2) n
1 n определяется по условию |(x+cos(nx)/2 )|
-3
<=ε,ε=10

№3. Даны целые числа а1,...,аn. Среди них есть повторяющиеся члены. Получить числа, которые входят в последовательность по одному разу.

№ 4. Вычислить функции и распечатать в виде таблицы xi, zi
6 n
z=Σ(sin1/x)
1
Вычислить для равноотстоящих значений х с шагом x=xi+1-xi=0,1 из интервала [5 ,10].

Надуюсь, что функции написаны понятно, если нет, то они во вложение в формате документа в Word. Очень надеюсь на Вашу помощь.

[Stepler]

Мне интиресно а чем вы сами сейчас занимаетесь? Вы даже не старались ничего сделать! Вчера вам помогли, я бы даже сказал больше не просто помогли а сделали за вас ваше домашнее задание, а сегодня вы снова пришли и просите опять помочь(сделать) за вас задачки!
Тем болле что задания не сложные и не требуют сверхчеловеческих интелектуальних способностей!
Начните сами чтото писать, если у вас будут затруднения в написании то всегда готов помочь.

[alena-yalymova]

К сожелению, я в Паскале вообще ни чего не понимаю и кроме базовых функций, которые начинают и заканчивают программу я ни чего не знаю. Мне не понятны ни множества, ни оператор цикла.
Я ведь не пишу все задачи, которые нам задают. То что я могу - решаю сама. А эти я не могу решить. Мне не понятно как составлять функции. Поэтому я попросила помощи.
Конечно, если кому-то трудно просто так помочь. То я ведь не заставляю. А если человеку не трудно и он понимает, то я просто прошу помочь.
Просто я учусь на специальности информатика. в понедельник сессия заканчивается, а в воскресенье сдача зачета по програмированию, на котором надо здать 8 задач. которые нам задали в лабораторной. К сожалению на заочке ни чего не объясняют, а в книгах описано не все. Поэтому я, плохой будущий учитель информатики, который не знает программирования.
Именно по этому я попросила помощи на этом форуме. Вы просто спасете меня от отчисления. Я не кого не заставляю помогать, но если у Вас есть время и нравится заниматься программированием, то я прошу помочь мне.

[Xardas]

Вот пожалуйста первая задачка, набросал сходу, не проверял.

var
x,s:extended;
i,n:integer;

//функция для вычисления факториала
function fact(a:integer):longint;
begin
if a=0 then fact:=1 else fact:=a*fact(a-1);
end;

//функция для вычисления степени
function power(y,z:extended):extended;
begin
if y<0 then
if (z mod 2)=0 then power:=exp(z*ln(abs(y))) else power:=exp(z*ln(abs(y)))*(-1)
else power:=exp(z*ln(y));
end;

begin
readln(n,x);//в задаче указано, что x и n заданы, можно присвоить значения вручную

//собственно, сам процесс вычисления суммы
for i:=1 to n do
s:=s+(power(-1,i+1)*power(x,i))/(fact(2*i));
//вывод результата
writeln(s);
end.

[B_N]

№1 - другой вариант

var
    S           : double;
    minus_1     : integer;
    numerator   : double;
    denominator : double;
    x           : double;
    n           : integer;
    i           : integer;

begin

    repeat
        write('N='); readln(n);
    until n > 0;
    write('X='); readln(x);

    S := 0;
    minus_1 := -1;
    numerator := 1;
    denominator := 1;

    for i := 1 to n do begin
        minus_1 := - minus_1;
        numerator := numerator * x;
        denominator := denominator * 2 * i;

        S := S + minus_1 * numerator / denominator;
    end;

    writeln('N = ', n, ', X = ', x,', S = ', S);
    readln;
end.

[Stepler]

К сожелению, я в Паскале вообще ни чего не понимаю и кроме базовых функций

Для написания заданий этого вполне достаточно!

Конечно, если кому-то трудно просто так помочь. То я ведь не заставляю. А если человеку не трудно и он понимает, то я просто прошу помочь.

Мне не трудно помочь, но есть разница между "помочь" и "написать за вас"! Спрашывайте что вас интерисует, чем смогу тем помогу :-)

К сожалению на заочке ни чего не объясняют, а в книгах описано не все.

Конечно что в книгах есть не все, но там есть начальная база и этого впольне достаточно.

но если у Вас есть время и нравится заниматься программированием, то я прошу помочь мне.

Времени сейчас не очень много, а работа само собой должна приносит удовольствие, могу написать любую задачу предоставляю на ваш выбор, какую хотите,но только одну, остальное свободное время я хочу потратить на себя!

[puporev]

Задача №3.
Кстати условие второй задачи и в приложенном файле сместилось и его нельзя понять, надо что-то делать.

uses crt;
var a:array[1..50]of integer;
    n,i,j,k:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Massiv:');
for i:=1 to n do
    begin
      a[i]:=random(20)+1;
      write(a[i],' ');
    end;
readln;
for i:=1 to n do
   begin
     k:=0;
     for j:=1 to n do  //если номер числа в двух одинаковых массивах
     if(i<>j)and(a[i]=a[j])then  //не совпадает, а число совпадает, значит 
        begin                         //повтор, прибавляем к
          k:=k+1;
        end;
     if k=0 then write(a[i],' ');//если к=0, значит повторов нет
   end;
readln
end.

[alena-yalymova]

Задачи № 2 (файл "2" задание 12 № 4) и № 4 (файл "4" задание 12 № 2)

[Stepler]

Задача №4

uses crt;
Function Pow(A,B:real):real;
Var T:real;
Begin
     T := Abs(A);
     If A < 0 Then Pow := (-1)*Exp(B*Ln(T))
              Else Pow := Exp(B*Ln(T));
End;
function next(x:real;n:integer):real;
begin
next:=pow(sin(1/x),n);
end;
var x,y,z,h:real;
    i:integer;
begin
clrscr;
x:=5;
y:=10;
h:=0.1;
while(x<=y+h)do
begin
z:=0;
for i:=1 to 6 do
z:=z+next(x,i);
writeln('X=',x,' Z=',z);
x:=x+h;
end;
end.