AYUDA: problema de recorrido primer modelo (secuencias) PASCAL
Publicado por Salvador (1 intervención) el 03/01/2017 19:37:24
Hola buenas, tengo una duda de como resolver este problema: Gracias de antemano. Un saludo
Por ahora llevo esto, no se como sumar el anterior con el elemento actual
Queremos construir un programa que dada una secuencia de enteros del primer modelo de acceso secuencial construya otra secuencia de enteros, en la que cada elemento sea la suma de cada par de elementos adyacentes en la primera. Si la secuencia de entrada es S = [s1, s2,...,sn], la secuencia resultado debe ser R = [s1 + s2, s2+s3, s3 + s4,...., sn-1 + sn]. Si la secuencia de entrada está vacía o consta de un unico elemento la secuencia resultado debe estar vacía.
Por ahora llevo esto, no se como sumar el anterior con el elemento actual
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
{*PRIMER MODELO, TERCER ESQUEMA ESQUEMA*}
program problema2_practica6;
uses
unitmse1;
var
S, R: MSE1;
suma: integer;begin
Encender_Maquina_MSE1(S);
Encender_Maquina_MSE1(S);
Cargar_Fichero_MSE1(S, 'enteros.txt');
Crear_MSE1(R);
Comenzar_MSE1(S);
IF EA_MSE1(S) = MSE1_MarcaFin then writeln('Es secuencia vacía')
ELSE
Begin
//tratamiento primer elemento
Repeat
Avanzar_MSE1(S);
IF EA_Mse1(S)= Mse1_MarcaFin THEN BREAK;
suma:= EA_MSE1(S);
suma:= suma + EA_MSE1(S);
registrar_mse1(R, suma);
Avanzar_MSE1(S);
Until EA_MSE1(S) = MSE1_MarcaFin;
end;
Marcar_MSE1(R);
Salvar_Fichero_MSE1(R, 'salidaenteros.txt');
end.Valora esta pregunta
0