Разработать программу табулирования функции для произвольного диапазона изменения аргумента с использованием оператора repeat. y=(x*(2,7*x^(1,35)+1*((1/3), лямбда=tg^2((x*a)/2*pi) , x€[1,2; 2], дельта х=0,2, а=1,44
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var x,a,x1,x2,delta,lambda,y:real; Write('Введите границы изменения аргумента и шаг: '); Read(x1,x2,delta); a:=1.44; x:=x1; repeat lambda:=Sqr(Tan(x*a/2*pi)); y:=Power(x*(2.7*Power(x,1.35)+lambda),1/3); Writeln('x=',x,' y=',y); x+=delta until x>x2 end.
Тестовое решение Введите границы изменения аргумента и шаг: 1.2 2.0 0.2 x=1.2 y=1.63776729113963 x=1.4 y=1.81249323168809 x=1.6 y=2.04691849426225 x=1.8 y=2.40906764678559 x=2 y=4.09613421404126
program r; var a:array[0..8] of integer=(-6,7,45,-12,2,7,-15,0,64); l,i,sum:integer;
begin; for i:=0 to 8 do if a[i]>0 then begin; sum:=sum+a[i]; l:=l+1; end; for i:=0 to 8 do writeln('A[',i,'] = ', a[i]); write('Сумма положительных элементов равна ',sum,', а из количество ',l); end.
Второе:
program t; var d:array [0..40] of integer; l,x:integer;
begin; for x:=0 to 40 do begin; d[x]:=45*x+15; if d[x] mod 2 = 1 then l:=l+1; end; write('Кол-во нечётных элементов ',l); end.
Третье:
program y; var p:array [0..25] of real; k:integer; avg:real; begin; for k:=0 to 25 do begin; p[k]:=7*k+3*k/15; avg:=avg+p[k]; end; avg:=avg/26; write('Среднее значение элементов массива ', avg); end.
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=Arr(-6,7,45,-12,2,7,-15,0,64); var kp:=0; var sp:=0; for var i:=0 to a.Length-1 do begin WritelnFormat('A[{0}]={1}',i,a[i]); if a[i]>0 then begin kp+=1; sp+=a[i] end end; Writeln('Сумма ',kp,' положительных элементов равна ',sp) end.
Результат A[0]=-6 A[1]=7 A[2]=45 A[3]=-12 A[4]=2 A[5]=7 A[6]=-15 A[7]=0 A[8]=64 Сумма 5 положительных элементов равна 125
Задание 2 begin Writeln(SeqGen(40,x->45*x+15,1).Where(x->x.IsOdd).Count); end.
Результат 20
Задание 3 begin Writeln(SeqGen(25,k->7*k+3*k/15,1).Average); end.
begin
var x,a,x1,x2,delta,lambda,y:real;
Write('Введите границы изменения аргумента и шаг: ');
Read(x1,x2,delta);
a:=1.44;
x:=x1;
repeat
lambda:=Sqr(Tan(x*a/2*pi));
y:=Power(x*(2.7*Power(x,1.35)+lambda),1/3);
Writeln('x=',x,' y=',y);
x+=delta
until x>x2
end.
Тестовое решение
Введите границы изменения аргумента и шаг: 1.2 2.0 0.2
x=1.2 y=1.63776729113963
x=1.4 y=1.81249323168809
x=1.6 y=2.04691849426225
x=1.8 y=2.40906764678559
x=2 y=4.09613421404126