1
.doc1. Решить задачу в программе Pascal: Найти среднее арифметическое элементов вектора Z(10).
program primer;
type T=array[1..10] of real;
var A:T; S,SA:real;
i,k:integer;
begin
for i:=1 to 10 do
read(a[i]);
S:=0; k:=0;
for i:=1 to 10 do
if(a[i])>0 then begin
S:=S+a[i]; k:=k+1
end;
SA:=S/k;
writeln('SA=',SA:10:2)
end.
2. Решить задачу в программе Pascal: Составить блок-схему и программу вычисления значений функции при заданных значениях аргумента.
program primer;
var x,c,y:real;
begin
write('vvedite x');
read(x);
c:=5*x+2;
y:=(sqr(sin(c))/5.3*x+9)+(7*x-exp(2*x)/sqrt(abs(c)));
write('y=',y:10:3)
end.
vvedite x 5
y= -4194.132
3. Решить задачу в программе Pascal: Составить блок-схему и программу вычисления значений функции при заданных значениях аргумента. program primer;
var x,c,y:real;
begin
write('vvedi x');
read(x);
c:=abs(5*x-45);
y:=(sqrt(c)/sin(sqr(x))/cos(sqr(x))+sqr(sin(x))/sqr(cos(x)))+sqrt(2*sqr(x)+6)/ln(c);
write('y=',y:10:3)
end.
vvedi x 5
y= -20.164vvedi x
4. Решить задачу в программе Pascal с использованием оператора For-To: Дано целое число N. Вычислить P=N!=123…N.
program primer;
var i,n:integer; F:real;
begin
write('vvedite n');
readln(n);
F:=1;
for i:=1 to n do
F:=F*i;
write('F=',F:0:0)
end.
5. Решить задачу в программе Pascal: Составить блок-схему и программу разветвляющейся структуры для вычисления заданной функции.
program primer;
label m1;
var i,n:integer; x,y:real;
begin
write('vvedite n');
read(n);
i:=1;
m1: write('vvedite x');
read(x);
if x<=0 then y:=cos(x*sqrt(abs(x+2)))
else
if(x>0)and(x<1)
then y:=sin(x)/cos(x)- sqr(sin(x))
else y:=3*x*sqrt(x);
write('y=',y:10:3);
i:=i+1;
if i<=n then goto m1
end.
vvedite n 3
vvedite x 5
y= 33.541vvedite x 2
y= 8.485vvedite x 6
y= 44.091vvedite n
6. Решить задачу в программе Pascal: Найти количество положительных элементов каждой строки матрицы А(3,4).
program primer;
type T=array[1..3,1..4] of real;
var A:t;i,j,K:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
read(a[i,j]);
for i:=1 to 3 do
begin
K:=0;
for j:=1 to 4 do
if a[i,j]>0 then
K:=K+1;
writeln('v',i,'stroke K=',K)
end
end.
7. Решить задачу в программе Pascal: Вычислить сумму положительных элементов массива Z(15).
program primer;
type Z=array[1..15] of real;
var A:Z;S:real;
i:integer;
begin
for i:=1 to 15 do
read(a[i]);
S:=0;
for i:=1 to 15 do
if a[i]>0 then begin
S:=S+a[i];
end;
writeln('S=',S:10:2)
end.
8. Решить задачу в программе Pascal: Составить блок-схему и программу разветвляющейся структуры для вычисления заданной функции. program primer;
label m1;
var x,y:real;i,n:integer;
begin
write('vvedite n');
read(n);
i:=1;
m1: write('vvedi x');
read(x);
if x>=1 then y:=sqr(x)*x+5*x+3
else if (x>=0)and(x<=1)
then y:=abs(12*x-2*sqr(x))+sqrt(4*x)*sqrt(4*x)
else y:=sqrt(4*sqr(x)+5);
write('y=',y:10:3);
i:=i+1;
if i<=n then goto m1
end.
vvedite n 2
vvedi x 5
y= 153.000vvedi x 9
y= 777.000vvedite n
11. Решить задачу в программе Pascal: Составить блок-схему и программу разветвляющейся структуры для вычисления заданной функции.
PROGRAM PRIMER;
LABEL M1;
var i,n:integer; x,y:real;
begin
write('vvedite n');
read(n);
i:=1;
m1: write('vvedite x');
read(x);
if x>7 then y:=abs(1-x) else
if x<=7 then y:=cos(x)/sin(x)-sin(x)/cos(x);
write('y=',y:10:3);
i:=i+1;
if i<=n then goto m1
end.
vvedite n 3
vvedite x 5
y= 3.085vvedite x 6
y= -3.145vvedite x 8
y= 7.000vvedite n
20. Решить задачу в программе Pascal: Составить блок-схему и программу разветвляющейся структуры для вычисления заданной функции.
program primer;
label m1;
var i,n:integer; x,c,y:real;
begin
write('vvedite n');
read(n);
i:=1;
m1: write('vvedite x');
read(x);
c:=7*sqr(x)+6*x-1;
if x<3 then y:=sqr(c)
else if x>=3 then y:=exp(ln(c)/3);
write('y=',y:10:3);
i:=i+1;
if i<=n then goto m1
end.
vvedite n 2
vvedite x 9
y= 8.527vvedite x 8
y= 7.910vvedite n
22. Решить задачу в программе Pascal: Составить блок-схему и программу вычисления значений функции при заданных значениях аргумента.
program primer;
var a,x,c,Y:real;
begin
write('vvedite a i x');
read(a,x);
c:=a+x;
Y:=sqrt(sqr(a)+sqr(x))+(sin(c)/cos(c)-ln(c)/sin(x)+ sqr(cos(a)));
write('Y=',Y:10:3)
end.
vvedite a i x 5 6
Y= -209.478vvedite a i x
24. Решить задачу в программе Pascal: Составить блок-схему и программу разветвляющейся структуры для вычисления заданной функции.
program primer;
label m1;
var i,n:integer; x,a,b:real;
begin
write('vvedite n');
read(n);
i:=1;
m1: write('vvedite x');
read(x);
if a>b then x:=sqr(x)*x-sqr(b)
else if a<b then x:=abs(a+b);
write('x',x:10:3);
i:=i+1;
if i<=n then goto m1
end.
26. Решить задачу в программе Pascal: Составить блок-схему и программу разветвляющейся структуры для вычисления заданной функции.
program primer;
label m1;
var i,n:integer; x,y:real;
begin
write('vvedite n');
read(n);
i:=1;
m1: write('vvedite x');
read(x);
if x>5 then y:=sqr(2*x+5)+exp(ln(x)/3)
else if x<=5 then y:=5*sqr(x)-7/sqr(x)*x+2*sqr(x)+1;
write('y=',y:10:3);
i:=i+1;
if i<=n then goto m1
end.
vvedite n 2
vvedite x 5
y= 174.600vvedite x 9
y= 531.080vvedite n
23. Решить задачу в программе Pascal: Составить блок-схему и программу вычисления значений функции при заданных значениях аргумента.
program primer;
var x,c,y,T:real;
begin
write('vvedite x i y');
read(x,y);
c:=exp(y*ln(sin(x)));
T:=(x*c/cos(x)+exp(x)) - sqrt(abs(c+sqr(cos(x))));
write('T=',T:10:3)
end.
vvedite x i y 8 9
T= 2930.058vvedite x i y
14. . Решить задачу в программе Pascal с использованием оператора FOR-DOWNTO: Дано целое число n. Вычислить program primer;
var i,n:integer; P:real;
begin
write('vvedite n');
readln(n);
P:=sqrt(3);
for i:=1 downto n do
begin
P:=sqrt(P+3*i);
end;
write('P=',P:15:8)
end.
P= 1.73205081vvedite n
19. Решить задачу в программе Pascal: Найти среднее арифметическое элементов вектора В(15).
program primer;
type T=array[1..15] of real;
var A:T;S,SA:real;
i,K:integer;
begin
for i:=1 to 15 do
read(a[i]);
S:=02; K:=0;
for i:=1 to 15 do
if a[i]>0 then
begin
S:=S+a[i]; K:=K+1
end;
SA:=S/K;
writeln('SA=',SA:10:2)
end.
21. Решить задачу в программе Pascal с использованием оператора For-to: Дано целое число n. Вычислить .
program primer;
var i,n:integer;S:real;
begin
write('vvedite n');
readln(n);
S:=0;
for i:=1 to n do
S:=S+1/i;
writeln('summa',n,'elementov=',S:10:5)
end.
25. Решить задачу в программе Pascal с использованием оператора For-to:
Даны вещественное число Y и натуральное число N. Вычислить произведение первых N сомножителей S = sinY sinY2 sinY3 … sinYn.
17. Решить задачу в программе Pascal с использованием оператора While-Do: Дано целое число n. Вычислить .
27. Решить задачу в программе Pascal: Среди элементов массива Y(15) найти наименьший.
program primer;
var Y:array[1..15] of real;
i,n:integer; min:real;
begin
for i:=1 to 15 do
begin
write('vvedite y (',i:2,')');
readln(y[i]);
end;
min:=y[1]; n:=1;
for i:=2 to 15 do
if y[i]<min then begin
min:=y[i]; n:=i
end;
writeln('naimen6ii element=',min)
end.
13. Решить задачу в программе Pascal с использованием оператора Repeat-Until: Дано целое число n. Вычислить.
program primer;
var i,n:integer; S:real;
begin
write('vvedite n');
read(n);
S:=0; i:=1;
repeat
S:=S+1/i;
i:=i+1;
until i>n;
writeln('summa',n,'elementov=',S:10:2);
end.