В
Program Task; uses Crt;
const n=7;n1=31;
VAR Y:ARRAY[1..N] OF REAL;
MAS:ARRAY [1..n1] OF INTEGER;
SUM1, SUM2, SUM3:INTEGER;
SR1,SR2,SR3:REAL;
I:INTEGER;
BEGIN fOR I:=1 TO N DO f:=cos(x*x)*sin(2*x-1)+4.29;
WRITELN('СОДЕРЖИМОЕ
МАССИВА');
FOR
I:=1 TO N DO WRITELN(Y[I]:6:3);
WRITELN('ВВЕДИТЕ
КОЛИЧЕСТВО
ОСАДКОВ');
FOR I:=1 TO N1 DO
READLN(MAS[I]);
WRITELN('СОДЕРЖИМОЕ
МАССИВА
ОСАДКОВ');
FOR I:=1 TO N1 DO
WRITE (MAS[I]:3); SUM1:=0; WRITELN;
FOR I:=1 TO 11 DO
SUM1:=SUM1+MAS[I]; SR1:=SUM1/11; WRITELN('SR1=',SR1:5:2); SUM2:=0;
WRITELN; FOR I:=11 TO 20 DO SUM2:=SUM2+MAS[I]; SR2:=SUM2/11;
WRITELN('SR2=',SR2:5:2);
SUM3:=0; WRITELN; FOR I:=21 TO 31 DO SUM3:=SUM3+MAS[I];
SR3:=SUM3/11; WRITELN('SR3=',SR3:5:2); END.Код программы
массиве хранятся сведения о количестве
осадков, выпадавших за каждый день
сентября. Определить сколько осадков
выпадало в среднем за один день в первую,
вторую и третью декаду этого месяца.
Результат:
содержимое массива
4.813
4.401 4.9385.844 6.055 6.191 5.348 Введите
количество осадков 1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
19 20 21 22 23 24 25 26 27 28 29 30 31 Содержимое
массива осадков
1 2 3 4 5 6 7 8 9 10 11 12 13
14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
31
SR1=6.00 SR2=14.09 SR3=26.00
У
const n=5; m=5;
var max,i,j:integer;
a:array[1..m,1..n] of integer; p,s:integer;
begin
writeln('если
билет продан введите 1, если нет введите
0');
for i:=1 to n do begin
for j:=1 to m do begin
write('ряд',i,'место',j,'=');
readln(a[i,j]); end; end;
writeln('massiv'); for i:=1
to n do begin
for j:=1 to m do
write(a[i,j]:3);writeln; end;
write
('введите
номер
нужного
вам
ряда
'); readln (p); s:=0; for i:=1 to m do begin
if a[p,i]=1 then s:=s+1; end;
writeln('в
',p,'
ряду продано ',s,'
билетов'); end.
Результат программы: ряд1место1=0
ряд1место2=0 ряд1место3=1 ряд1место4=1
ряд1место5=1 ряд2место1=1 ряд2место2=1
ряд2место3=1 ряд2место4=1 ряд2место5=0
ряд3место1=1 ряд3место2=0 ряд3место3=1
ряд3место4=0 ряд3место5=0 ряд4место1=0
ряд4место2=0 ряд4место3=1 ряд4место4=1
ряд4место5=1 ряд5место1=1 ряд5место2=0
ряд5место3=0 ряд5место4=1 ряд5место5=1 введите
номер нужного вам ряда: 1 В
1 ряду
продано
3 билетов
Задание№5. Процедуры и функции.
Условие: Построить таблицу значений заданной функции в интервале от 0 до 5 с шагом 0,5 , используя собственную процедуру и функцию. sin(x*x)*cos(x*x*x)-sin(x)+5.2
Код
программы
1: function
f(x:real):real; begin
f:=cos(x*x)*sin(2*x-1)+4.29;end; var
i,j,k,y:real;
begin writeln('введите
начальное значение'); readln (i); writeln('введите
конечное значение'); readln (j); writeln('введите
шаг изменения аргумента'); readln
(k); writeln ('x':6,'y':6); while
i<=j
do
begin y:=f(i); writeln(i:6:2,y:6:2);
i:=i+k; end;
end.
Результат 1:
введите начальное
значение
0
введите конечное
значение
5
введите шаг
изменения аргумента
0.5
x y
0.00 3.45
0.50 4.29
1.00 4.74
1.50 3.72
2.00 4.20
2.50 3.53
3.00 5.16
3.50 4.02
4.00 3.66
4.50 4.46
5.00 4.70
Код программы 2: var
x0,xk,h,y:real; i,n:integer; procedure
f(x:
real;var
res:real); begin res:=cos(x*x)*sin(2*x-1)+4.29;end; begin x0:=0;xk:=5; h:=0.5;n:=round((xk-x0)/h)+1; writeln('x':6,'f(x)':6); for
i:=1
to
n
do
begin f(x0,y); writeln(x0:6:2,y:6:2); x0:=x0+h;
end; end.
Результат 2:
x
f(x)
0.00
3.45
0.50
4.29
1.00
4.74
1.50
3.72
2.00
4.20
2.50
3.53
3.00
5.16
3.50
4.02
4.00
3.66
4.50
4.46
5.00
4.70