Apreciación de los trabajos de programación por parte de los estudiantes de secundaria
Programa a 1;
var i, n, a: longint;
s: true
Inicio p>
readln(n);
a:= 1;
Para i:=1 to n do
Iniciar
s:= s+a *(1/I);
a:=-a;
Fin;
writeln(s: 2: 5);
Fin.
2.
Función gjdadd(x, y: STRING): STRING
Escriba arr = ARRAY[1..integer 127];
p>
Empresa de reventa de valor añadido
a, b, s: arr; z, ZZ: STRING[126]; , l, k, t: integer;
Inicio
Porque i:=1 a 127 comienza
a[I]:= 0[; I]:= 0; s[I]:= 0;
Fin;
lx := longitud (x);
si lx & gtly entonces l := lx en caso contrario l:= ly;
Para i:=1 a lx DO VAL(COPY(x,lx+1-i,1),a[ i],k
Para i:=1 hacer ly DO VAL(COPY(y, ly + 1 - i, 1), b[i], k
s[i] := s[i] + a[i] + b[i].
Si s[I]>= 10 entonces comienza
s[I+1]:= 1; p>
Fin;
Fin;
Si s[l + 1] = 0 entonces t := l en caso contrario t:= l+1; p>z:="";
Porque i:=t comienza desde 1
STR(s[i],ZZ);z:= z+ZZ
End;
gjdadd:= z;
End;
Empresa de reventa de valor añadido
I: Entero
a, b, c: cadena
Inicio
a:= ' 0 '; b:= ' 1 '; ', b, ' ');
Porque i:=3 a 100 comienza
c := gjdadd(a, b);
a:= b; b:= c;
Fin;
Fin.
{Cuando el elemento es 100, excede el rango de qword y solo se puede usar alta precisión. }
3.
Programar exloop 1_1;
Definir variables
x, I: entero;
Inicio
x:= 1;
Para i:= 2 a 10 haz
x:=(x+1)* 2;
p>writeln('Tienen', x, 'Zaoqian');
readln
Fin.
Programa exloop 1_2;
Definir variables
x, I, temp: entero;
Inicio
x:= 1024; // Según el significado de la pregunta, el número original de fechas es definitivamente>= 2 elevado a 10, que es 1024.
y x & lt2048 hacer
iniciar
temp:= x;
para i := 1 a 9 hacer
temp:= temp div 2-1;
Si temp = 1, interrumpe;
x:= x+2;
Fin ;
writeln('Tienen', x, 'Zaoqian');
readln
Fin.
4.
Variables a, b: matriz [1..Longint's 100]
k, temp, I, j, n, t, l; :longint;
Comprobación de función (I:Longint):Boolean;
varj:longint;
Inicio
comprobación:= verdadero ;
Para j:=2 a i-1 DO
Si mod j = 0, comience a verificar:= false
Salir;
p>
Fin;
Fin
Inicio
Para i:=2 a 100 Do
Si comprobar(I ), luego iniciar
Inc(t);
a[t]:= I;
Fin;
Para i: =2 a 100 Hacer
Iniciar
n:= I;
l:= 0;
Y n & lt& gt1 Do
Iniciar
for j:=1 TO t Do
Si n mod a[j] = 0, entonces iniciar
Inc (l);
b[l]:= a[j];
n:= n Div a[j];
Fin ;
p>
Fin;
Para j:=1 a l-1 DO
Para k:=j + 1 a l DOif b [j]& gt;b[ k] y luego iniciar temp:= b[j];
b[j]:= b[k];
b[k] := temp;
Fin;
Escribir(I,' = ',b[1]);
Para j:=2 To l HACER Escribir ('* ',b[j] );
Escribir
Fin;
Fin.
5.
var i, j, sum: integer
Inicio
Para i:=2 a 1000, comience
suma:= 0;
para j:=1 a (i div 2) hacer
Si mod j=0 entonces inc(suma, j );
Si suma=i, escriba ln(I);
Fin
Fin.
7.
Procedimiento T75_026
Empresa de reventa de valor añadido
n: entero;
Iniciar
Repetir
Leer como (n);
Hasta n & gt1;
Repetir
Si Número impar (n)
Empecemos
n:= 3 * n+1;
writeln(n);
Fin
En caso contrario, iniciar
n:= trunc(n/2);
writeln(n);
Fin
Hasta n = 1;
Fin.