Составить программу для вычисления значений функции f(x) на отрезке [а, ь] с шагом h. результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции. f(x) = 2sin^2(квадрат)x+1;
Var a,b,h,x,y:real; label M; begin Write('Введите a,b,h :'); Read(a,b,h); x:=a; M: if x<=b+h/2 then begin y:=2*Sqr(Sin(x))+1; Writeln(x:12:7,y:18:7); x:=x+h; goto M end end.
Var arr: array[1..27] of integer; summ: integer; begin Randomize; for var i := 1 to 27 do begin arr[i] := random(-5, 5); summ := summ + arr[i]; end; writeln('Массив: ',arr); writeln('Сумма всех элементов массива = ',summ); for var i := 1 to 27 do if arr[i] = 0 then arr[i] := summ; writeln('Массив: ',arr); end.
пример работы: Массив: [5,-1,1,5,4,-2,-3,0,3,5,-3,-4,3,0,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1] Сумма всех элементов массива = 14 Массив: [5,-1,1,5,4,-2,-3,14,3,5,-3,-4,3,14,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1]
var arr: array of integer; n,k,m: integer; begin write('Введи n: '); readln(n); Randomize; arr:= new integer[n]; for var i := 0 to n-1 do arr[i] := random(-5, 5); writeln('Массив: ',arr); for var i := 0 to n-1 do begin if arr[i]<0 then inc(k); if (i>=1) and (i<=6) then inc(m); if (i>=6) and (arr[i]>=0) then arr[i]:=1; end; writeln('Количество отрицательных элементов массива = ',k); writeln('Количество элементов массива в интервале [2..7] = ',m); writeln('Массив: ',arr); end.
Пример работы: Введи n: 5 Массив: [0,1,-4,1,3] Количество отрицательных элементов массива = 1 Количество элементов массива в интервале [2..7] = 4 Массив: [0,1,-4,1,3]
Введи n: 15 Массив: [0,1,4,3,-3,5,-4,-1,1,-2,3,1,-4,1,3] Количество отрицательных элементов массива = 5 Количество элементов массива в интервале [2..7] = 6 Массив: [0,1,4,3,-3,5,-4,-1,1,-2,1,1,-4,1,1]
Var mas:array[1..1000, 1..1000] of integer; N,M,i,j,k:integer;
Begin Writeln('Введите размер матрицы N*M'); Write('N = '); readln(N); Write('M = '); readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1) then Writeln('Ошибка, указанные значения выходят за пределы матрицы') else Begin Writeln('Введите элементы матрицы');
k:=0; for i:=1 to N do for j:=1 to M do Begin readln(mas[i,j]); if (mas[i,j] mod 2 = 0) then k:=k+1; end;
Writeln(); Writeln('Исходная матрица');
for i:=1 to N do Begin for j:=1 to M do Begin Write(mas[i,j], ' ') end; Writeln(); end;
Writeln(); Writeln('Количество четных элементов = ',k); end;
a,b,h,x,y:real;
label M;
begin
Write('Введите a,b,h :');
Read(a,b,h);
x:=a;
M:
if x<=b+h/2 then begin
y:=2*Sqr(Sin(x))+1;
Writeln(x:12:7,y:18:7);
x:=x+h;
goto M
end
end.
Пример
Введите a,b,h :-5 4 0.2
-5.0000000 2.8390715
-4.8000000 2.9846879
-4.6000000 2.9748436
-4.4000000 2.8110930
-4.2000000 2.5192887
-4.0000000 2.1455000
-3.8000000 1.7487402
-3.6000000 1.3916487
-3.4000000 1.1306025
-3.2000000 1.0068151
-3.0000000 1.0398297
-2.8000000 1.2244341
-2.6000000 1.5314833
-2.4000000 1.9125010
-2.2000000 2.3073329
-2.0000000 2.6536436
-1.8000000 2.8967584
-1.6000000 2.9982948
-1.4000000 2.9422223
-1.2000000 2.7373937
-1.0000000 2.4161468
-0.8000000 2.0291995
-0.6000000 1.6376422
-0.4000000 1.3032933
-0.2000000 1.0789390
0.0000000 1.0000000
0.2000000 1.0789390
0.4000000 1.3032933
0.6000000 1.6376422
0.8000000 2.0291995
1.0000000 2.4161468
1.2000000 2.7373937
1.4000000 2.9422223
1.6000000 2.9982948
1.8000000 2.8967584
2.0000000 2.6536436
2.2000000 2.3073329
2.4000000 1.9125010
2.6000000 1.5314833
2.8000000 1.2244341
3.0000000 1.0398297
3.2000000 1.0068151
3.4000000 1.1306025
3.6000000 1.3916487
3.8000000 1.7487402
4.0000000 2.1455000