TURBO PASCAL:Учебное пособие. Терёхин В.В. - 50 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

Составители: 

Рубрика: 

50
var
a, b, h, x, y: Real;
i, n: integer;
begin
Writeln('введите начало и конец отрезка’);
Read(a, b);
Writeln('введите шаг');
Read(h);
х:= а; {начальное значение переменной х}
n:=round((b-a)/h); {количество полных интервалов}
for i:= 1 to n do
begin
y:= sin(x); {находим значение функции, для текущего
значения аргумента}
Writeln(i, ' х= ' , х, ' у= ' , у) ; {выводим на экран но-
мер шага, значение аргумента и значение функции}
x:=x+h; {увеличиваем аргумент на значение
шага}
end;
end.
Задача. Найти
∑
=
n
i
i
i
1
2
)sin(
.
program p11;
var
S, f: real;
i, n: integer;
begin
Writeln('введите n’);
Read(n);
f:= 1;
S:= 0; {начальное значение переменных f и S}
for i:= 1 to n do
begin 
var
   a, b, h, x, y: Real;
   i, n: integer;
begin
   Writeln('введите начало и конец отрезка’);
   Read(a, b);
   Writeln('введите шаг');
   Read(h);
   х:= а; {начальное значение переменной х}
   n:=round((b-a)/h); {количество полных интервалов}
   for i:= 1 to n do
   begin
       y:= sin(x); {находим значение функции, для текущего
                                   значения аргумента}
        Writeln(i, ' х= ' , х, ' у= ' , у) ; {выводим на экран но-
        мер шага, значение аргумента и значение функции}
       x:=x+h;      {увеличиваем аргумент на значение
                      шага}
    end;
end.

                         n
                               sin(i )
       Задача. Найти   ∑i =1     2i
                                       .

program p11;
var
   S, f: real;
   i, n: integer;
begin
   Writeln('введите n’);
   Read(n);
   f:= 1;
   S:= 0; {начальное значение переменных f и S}
   for i:= 1 to n do
   begin
                                                                 50

Страницы