Pascal - Циклы и подпрограммы

[Бурундук]

1. Составить программу вычислении значений функции F(x) на отрезке [a; b] с шагом h. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции:F(x)=sinX-cosX, a=0, b=P/2, h=P/20

2. Вычислить: sin x +sin x2+ … + sin xn.

3. Написать программу вычисления суммы факториалов всех нечетных чисел от 1 до 9.
Заранее благодарю
Если возможно - с комментариями, что к чему

[Consol]

Если возможно то вам без наработок во фриланс

[Бурундук]

По поводу 1ой задачи есть :

var Rez : array[1..100, 1..100] of real;
x,a,b,h:real;
n,i:integer;

 begin
 x:=a;
 h:=Pi/20;
 n:=0;
 while x <= b do
 begin
 n := n+1;
      Rez[n, 1] := x; // аргумент
      Rez[n, 2] := sin(x)-cos(x); // знач функции
      x := x + h;
 end ;
 writeln('Rezultat :');
 writeln('Argument  Znachenie func ');
 for i:= 1 to n do
    writeln(Rez[i,1]:10:2, ' ', Rez[i,2]:10:2);
    readln;
 end.

Только не уверен что она правильно считает

[profi]

Можно в масив не записывать, а сразу выводить.

После строки n:=1; еще допишите b:=Pi/2; И тут

 while x <= b do
 begin
 n := n+1;
      Rez[n, 1] := x; // аргумент
      Rez[n, 2] := sin(x)-cos(x); // знач функции
      x := x + h;
 end ;

сделайте так

 while x <= b do
 begin
      Rez[1, n] := x; // аргумент
      Rez[2, n] := sin(x)-cos(x); // знач функции
      x := x + h;
      n := n+1;
 end ;

Тогда тут

 for i:= 1 to n do
    writeln(Rez[i,1]:10:2, ' ', Rez[i,2]:10:2);

Нужно так

for i:= 1 to n do
writeln(Rez[1,i]:10:2, ' ', Rez[2,i]:10:2);

Но это лично мое мнение, просто в строку масива красивее

[Бурундук]

Сообщение от profi

После строки n:=0; еще допишите b:=Pi/2; И тут

 while x <= b do
 begin
 n := n+1;
      Rez[n, 1] := x; // аргумент
      Rez[n, 2] := sin(x)-cos(x); // знач функции
      x := x + h;
 end ;

сделайте так

 while x <= b do
 begin
      Rez[1, n] := x; // аргумент
      Rez[2, n] := sin(x)-cos(x); // знач функции
      x := x + h;
      n := n+1;
 end ;

Тогда тут

 for i:= 1 to n do
    writeln(Rez[i,1]:10:2, ' ', Rez[i,2]:10:2);

Нужно так

Но это лично мое мнение, просто в строку красивее

Пасиб, всё работает
осталось со 2ой и 3ей разобратся

[profi]

А еще одно напишие не n:=0; а n:=1;
Вторая задача не сложная. Делаете массив sinx:array[1..10] of integer; заполняете его числами после этого каждый элемент массива у вас будет x1, x2 и т.д. тогда делаете так в цикле

sum:=sum+sin(sinx[i]);

[Бурундук]

function summa(n:integer):longint;
var
  k:longint;
  i:byte;
begin
k:=1;
i:=2;
while i<=n do
 begin
  k:=k*i;
  inc(Result,k);
  inc(i,2);
 end;
end;

var
  n:integer;
begin
repeat
write('vvedite n: ');readln(n);
until ((n<10)and(n mod 2 = 1));
writeln('summa ryada 1!+3!+5!+...+9! :  ', summa(n));
readln;
end.

3-ю задачу так можно решить? =)

[Alex Cones]

Вот Вам факториал:

function f(x:integer):LongInt;
var 
 i:integer;
 n:LongInt;
begin
 n:=1;
 for i:=1 to x do n:=n*i;
 f:=n;
end;

Прикрутите ему вызов определенных чисел и все.

[Бурундук]

Сообщение от Alex Cones

Вот Вам факториал:

function f(x:integer):LongInt;
var 
 i:integer;
 n:LongInt;
begin
 n:=1;
 for i:=1 to x do n:=n*i;
 f:=n;
end;

Прикрутите ему вызов определенных чисел и все.

С этим сложней

[Alex Cones]

For i:=1 to 9 do
 If i mod 2=1 then 
  Begin
   J:=F(i);
   Writeln(J);
  End;