Крокодилакрокодила
Войти

Ниже приведены тексты одной и той же программы, записанные на четырех языках программирования. Что будет напечатано в результате выполнения этой программы? Бейсик | Паскаль Module Task Sub Main() Dim L As Integer = 4 Dim R(4) As Integer Dim N As Integer R.SetValue(6, 1) R.SetValue(10, 2) R.SetValue(7, 3) R.SetValue(3, 4) Pr1(L, R) N = F1(L, R) Console.Write(N) Console.WriteLine() End Sub Sub Pr1(ByVal L As Integer, ByRef R As Array) Dim i, n, t As Integer For i = 1 To L t = (R.GetValue(i) \ 2) * 4 R.SetValue(t Mod 5, i) Next End Sub Function F1(ByVal L As Integer, ByRef R As Array) As Integer Dim N, i, T N = 1 T = 1 For i = 1 To L N = N * R.GetValue(i) + T T = T + 2 Next Return N End Function End Module | Program Task; Uses crt; const L = 4; type atype = array [1..L] of integer; var R : atype; N, p : integer; Procedure Pr1(L : integer; var R : atype ); var i,n,t : integer; begin for i:=1 to L do begin t:=(R[i] div 2)*4; R[i]:=t mod 5; end; end; Function F1 (L : integer; R: atype) : integer; Var N, i, T : integer; begin N:=1; T:=1; for i:=1 to L do begin N:=N*R[i]+T; T:=T+2; end; F1:=N; end; BEGIN R[1]:=6; R[2]:=10; R[3]:=7; R[4]:=3; Pr1(L, R); N:=F1(L,R); write(N); writeln; END. Си | Алгоритмический язык #include <iostream> using namespace std; #include <stdlib.h> void Pr1(int L, int* R) { int i, n, t; for ( i=0; i < L; i++ ) { t = (R[i] / 2) * 4; R[i] = t % 5; } } int F1(int L, int* R) { int N, i, T; N = 1; T = 1; for (i = 0; i < L; i++ ) { N = N * R[i]+T; T = T+2; } return N; } void main() { int L = 4; int* R = (int*)calloc(L, sizeof(int)); int N; R[0] = 6; R[1] = 10; R[2] = 7; R[3] = 3; Pr1(L, R); N = F1(L, R); cout << N; free(R); } | алг Задача нач цел L=4; целтаб R[1:L]; цел N R[1]:=6; R[2]:=10; R[3]:=7; R[4]:=3; Pr1(L, R) N:=F1(L, R) вывод N, нс кон алг Pr1(цел L, аргрез целтаб R[1:L]) нач цел i, n, t нц для i от 1 до L t:=div(R[i],2)*4 R[i]:=mod(t, 5) кц кон алг цел F1(цел L, аргрез целтаб R[1:L]) нач цел N, i, T N:=1 T:=1 нц для i от 1 до L N:=N*R[i]+T T:=T+2 кц знач:= N кон ---------- Задание повышенной сложности.

Средний уровеньЧисло

Ниже приведены тексты одной и той же программы, записанные на четырех языках программирования. Что будет напечатано в результате выполнения этой программы? Бейсик | Паскаль Module Task Sub Main()     Dim L As Integer = 4     Dim R(4) As Integer     Dim N As Integer     R.SetValue(6, 1)     R.SetValue(10, 2)     R.SetValue(7, 3)     R.SetValue(3, 4)     Pr1(L, R)     N = F1(L, R)     Console.Write(N)     Console.WriteLine() End Sub Sub Pr1(ByVal L As Integer, ByRef R As Array)     Dim i, n, t As Integer     For i = 1 To L         t = (R.GetValue(i) \ 2) * 4         R.SetValue(t Mod 5, i)     Next End Sub Function F1(ByVal L As Integer, ByRef R As Array) As Integer     Dim N, i, T     N = 1     T = 1     For i = 1 To L         N = N * R.GetValue(i) + T         T = T + 2     Next     Return N End Function End Module | Program Task; Uses crt; const L = 4; type atype = array [1..L] of integer; var R : atype; N, p : integer; Procedure Pr1(L : integer; var R : atype );     var i,n,t : integer;     begin         for i:=1 to L do             begin                 t:=(R[i] div 2)*4;                 R[i]:=t mod 5;             end;     end; Function F1 (L : integer; R: atype) : integer;     Var N, i, T : integer;     begin         N:=1;         T:=1;         for i:=1 to L do         begin             N:=N*R[i]+T;             T:=T+2;         end;     F1:=N; end; BEGIN     R[1]:=6; R[2]:=10; R[3]:=7; R[4]:=3;     Pr1(L, R);     N:=F1(L,R);     write(N);     writeln; END. Си | Алгоритмический язык #include <iostream> using namespace std; #include <stdlib.h> void Pr1(int L, int* R) {     int i, n, t;     for ( i=0; i < L; i++ ) {         t = (R[i] / 2) * 4;         R[i] = t % 5;     } } int F1(int L, int* R) {     int N, i, T;     N = 1;     T = 1;     for (i = 0; i < L; i++ ) {         N = N * R[i]+T;         T = T+2;     }     return N; } void main() {     int L = 4;     int* R = (int*)calloc(L, sizeof(int));     int N;     R[0] = 6; R[1] = 10; R[2] = 7; R[3] = 3;     Pr1(L, R);     N = F1(L, R);     cout << N;     free(R); } | алг Задача нач цел L=4; целтаб R[1:L]; цел N R[1]:=6; R[2]:=10; R[3]:=7; R[4]:=3; Pr1(L, R) N:=F1(L, R) вывод N, нс кон алг Pr1(цел L, аргрез целтаб R[1:L]) нач цел i, n, t нц для i от 1 до L t:=div(R[i],2)*4 R[i]:=mod(t, 5) кц кон алг цел F1(цел L, аргрез целтаб R[1:L]) нач цел N, i, T N:=1 T:=1 нц для i от 1 до L N:=N*R[i]+T T:=T+2 кц знач:= N кон ---------- Задание повышенной сложности.

Похожие задания