121. Написать программу, которая выводит на экран квадрат Пифагора - таблицу умножений.

Program m23;

const

n=10;

v

writeln('Квадрат Пифагора');

ar

mas:array [1..100,1..100] of real;

a ,i,k,j:integer;

begin

writeln('Квадрат Пифагора');

for i:=1 to n do

for j:=1 to n do

mas[i,j]:=i*j;

for i:=1 to n do begin

for j:=1 to n do

write(mas[i,j]:4:0);

writeln;

end;

readln;

end.

122. Написать программу, которая вычисляет частичную сумму ряда 1-1/3+1/5-1/7+1/9-.

Program m24;

var

i,n,k:integer;

y

writeln('Вычисление суммы ряда 1-1/3+1/5-1/7+1/9.');

writeln('Введите количество суммируемых'); readln(n);

,x,a:real;

begin

writeln('Вычисление суммы ряда 1-1/3+1/5-1/7+1/9.');

writeln('Введите количество суммируемых');

readln(n);y:=1;

k:=-1;

x:=3;

for i:=1 to n do begin

y:= k*1/x;

k:=k*k;

x:=x+2;

end;

writeln('Сумма','=',y:2:2);

readln;

end.

123. Написать программу приближенного вычисление интеграла f(x)=5x²-x+2 методом прямоугольников.

program c25;

uses crt;

var

a,b,dx,x,s,y:real;

n,i:integer;

begin

clrscr;

write('Десятичному числу',' ',k,' ','соответствует двоичное',' ');

for i:=n downto 1 do

write(b[i]:1:0);

Выход

Вход

Выход

Вход

y:=1; k:=-1; x:=3;

for i:=1 to n do

y:= k*1/x; k:=k*k; x:=x+2;

writeln('Сумма','=',y:2:2);

Выход

Вход

writeln('Нижняя граница отрезка');readln(a);

writeln('Верхняя граница отрезка '); readln(b); writeln('Приращение аргумента '); readln(dx);

n:=round((b-a)/dx);

writeln('Нижняя граница отрезка');

readln(a);

writeln('Верхняя граница отрезка ');

readln(b);

writeln('Приращение аргумента ');

readln(dx);

n:=round((b-a)/dx);

x:=a;

s:=0;

for i:=1 to n do

begin

y:=5*sqr(x)-x+2;

s:=s+y*dx;

x:=x+dx;

end;

writeln('Значение интеграла: ',s:4:3);

readln;

end.

123. Написать программу приближенного вычисление интеграла f(x)=5x2-x+2 методом трапеций.

program c26;

uses crt;

var

a,b,dx,x,s,y1,y2:real;

i,n:integer;

begin

clrscr;

writeln('Нижняя граница отрезка ');

readln(a);

writeln('Верхняя граница отрезка');

readln(b);

writeln('приращение интеграла ');

readln(dx);

n:=round((b-a)/dx);

x:=a;

s:=0;

for i:=1 to n do

begin

y1:=5*sqr(x)-x+2;

x:=x+dx;

y2:=5*sqr(x)-x+2;

s:=s+(y1+y2)*dx/2;

end;

writeln('Знаение интеграла: ',s:9:3);

readln;

end.