Операторы цикла

[eiNkz]

Здравствуйте, помогите пожалуйста, срочно. (((

1.Операторы цикла

Задание:
Взять задание из таблицы 1 согласно варианта. Составить программу для вычисления суммы членов бесконечного ряда с точностью до члена ряда,
меньшего ε=0,001 при заданных значениях Х.

Задание из таблицы:
y=sinx+(sin3x/3)+(sin5x/5)+(sin7x/7)+
При Х изменяющемся от – π /2 до π /2 с шагом π /10

Снимок.JPG

2.Строки в Паскале

В строковую переменную St занесена последовательность чисел,
разделенных запятыми. Определить, образуют ли эти числа
арифметическую прогрессию (например: 2,4,6,8,10,12; 13,10,7,4,1).

3.Обработка массивов в Паскале

[newerow1989]

1 задача:

function f(x:real):real;
const e=0.001;
var i:integer;
    y1:real;
begin
   Result:=0;
   i:=1;
   Repeat
      y1:=Sin(i*x)/i;
      Result:=Result+y1;
      i:=i+2;
   Until y1<e;
end;

const dx=pi/10;
      a=-pi/2;
      b=pi/2;
var y,x:real;
begin
   x:=a-dx;
   Repeat
      x:=x+dx;
      y:=f(x);
      Writeln(x:8:5,'  ',y:8:5);
   Until x>=b;
   Readln;
end.

2 задача:

function StrToI(var st:string):integer;
var s:string;
    i:integer;
begin
   i:=Pos(',',st);
   If i>0 then
      s:=Copy(st,1,i-1) else
      s:=st;
   Result:=StrToInt(s);
   If i>0 then
      Delete(st,1,i) else
      st:='';
end;

var st,s0,s1:string;
    n0,n1,delta:integer;
begin
   Write('st = ');Readln(st);
   n0:=StrToI(st);
   n1:=StrToI(st);
   delta:=n1-n0;
   While Length(st)>0 do
   begin
      n0:=n1;
      n1:=StrToI(st);
      If delta<>n1-n0 then
      begin
         Writeln('net');
         Readln;
         Exit;
      end;
   end;
   Writeln('da');
   Readln;
end.

3 задача:

const c:array[1..5] of real=(0.3,0.4,0.5,0.6,0.7);
      b:array[1..5] of real=(0.1,4.2,8.5,6.3,7.2);
var i,j:integer;
    min:real;
    a:array[1..5,1..5] of real;
begin
   For i:=1 to 5 do
   begin
      For j:=1 to 5 do
      begin
         a[i,j]:=c[i]*b[j];
         Write(a[i,j]:7:4,'  ');
      end;
      Writeln;
   end;
   Writeln;
   min:=a[1,1];
   For i:=1 to 5 do
      For j:=1 to 5 do
         If min>a[i,j] then
            min:=a[i,j];
   Writeln(min:7:4);
   Readln;
end.

[eiNkz]

newerow1989, большое спасибо. 3 задание то что нужно)