Трансформатор ввікнено в мережу 10000 В. Коефіцієнт трансформації 5.Визначити напругу на затискачах його вториної обмотки якщо первинна обмотка має 4000 витків.
Uses crt; const Q=10000; var a:array [1..Q] of integer; x,k,p,m,n,o:integer; begin write('a='); readln(m); write('b='); readln(n); a[1]:=m; for x:=2 to (n-m+1) do a[x]:=a[x-1]+1; write('Положительные: '); for x:=1 to (n-m+1) do if a[x]>0 then begin inc(p); write(a[x],' '); end; writeln; write('Отрицательные: '); for x:=1 to (n-m+1) do if a[x]<0 then begin inc(o); write(a[x],' '); end; writeln; writeln('Положительных чисел:', p); writeln('Отрицательных чисел:',o); end.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim A() As Integer Dim B() As Integer
Randomize() Dim k As Integer Dim i As Integer i = Rnd() * 100 + 1 ReDim A(i) For k = 0 To i A(k) = Rnd() * -1000 + 500 Next i = Rnd() * 100 + 1 ReDim B(i) For k = 0 To i B(k) = Rnd() * -1000 + 500 Next
Dim countA As Integer Dim countB As Integer
countA = change(A) countB = change(B) Dim msg_A As String For i = 0 To UBound(A) - 1 msg_A = msg_A & A(i) & vbCrLf ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 Next Dim msg_B As String For i = 0 To UBound(B) - 1 msg_B = msg_B & B(i) & vbCrLf Next If countA = countB Then MsgBox("Количество измененных элементов в двух массивах одинаково") MsgBox(msg_A) MsgBox(msg_B) End Sub
Private Function change(ByRef Massiv() As Integer) As Integer Dim count As Integer Dim i As Integer For i = 0 To UBound(Massiv) - 1 If Massiv(i) > 0 Then Massiv(i) = Massiv(i) / i : count = count + 1 Next Return count End Function
const Q=10000;
var a:array [1..Q] of integer;
x,k,p,m,n,o:integer;
begin
write('a='); readln(m);
write('b='); readln(n);
a[1]:=m;
for x:=2 to (n-m+1) do
a[x]:=a[x-1]+1;
write('Положительные: ');
for x:=1 to (n-m+1) do
if a[x]>0 then begin inc(p); write(a[x],' '); end;
writeln;
write('Отрицательные: ');
for x:=1 to (n-m+1) do
if a[x]<0 then begin inc(o); write(a[x],' '); end;
writeln;
writeln('Положительных чисел:', p);
writeln('Отрицательных чисел:',o);
end.