Anónimo
Programa
Hola
Estoy aprendiendo a uzar pascal pero aun estoy en mis primeras lecciones y la verdad me ha quedado mucha duda un programa que literalmente dice así " Escribe un programa que pregunte cuantos números vas a introducir, pida esos números y calcule su suma " me imagino que ha de ser muy simple pero tuve un accidente de transito y me ausente de la clase un mes por lo que no logro entender este programa en la hoja del proyecto ademas tiene un ejemplo que dice
Dime cuantos números vas a escribir: 5
Dime el numero 1: 25
Dime el numero 2: 30 dime el numero 3: 10 dime el numero 4: 14 dime el numero 5: 23
la suma de los números que has escrito es 102
espero puedas ayudarme.
Estoy aprendiendo a uzar pascal pero aun estoy en mis primeras lecciones y la verdad me ha quedado mucha duda un programa que literalmente dice así " Escribe un programa que pregunte cuantos números vas a introducir, pida esos números y calcule su suma " me imagino que ha de ser muy simple pero tuve un accidente de transito y me ausente de la clase un mes por lo que no logro entender este programa en la hoja del proyecto ademas tiene un ejemplo que dice
Dime cuantos números vas a escribir: 5
Dime el numero 1: 25
Dime el numero 2: 30 dime el numero 3: 10 dime el numero 4: 14 dime el numero 5: 23
la suma de los números que has escrito es 102
espero puedas ayudarme.
1 respuesta
Respuesta
1
Pues algo así:
PROGRAM SumaNumeros;
VAR cantidad,i:BYTE;
numeros:ARRAY[LOW(BYTE)..HIGH(BYTE)] OF INTEGER;
suma:LONGINT;
BEGIN
suma:=0;
WRITE('Dime cuántos números vas a escribir: ');
READLN(cantidad);
FOR i:=1 TO cantidad DO
BEGIN
WRITE('Dime el número ',i,': ');
READLN(numeros);
suma:=suma+numeros;
END;
WRITELN('La suma de los números que has escrito es ',suma);
WRITELN;
WRITELN('Pulse una tecla para finalizar...');
REPEAT UNTIL KeyPressed;
END;
Algo así ;)
Utilizamos 1 array de Enteros. EN el temario que os haber´n dado os lo explicarán. Es como una "tira" de cajoncidos del tipo que sea, en este caso enteros.
PROGRAM SumaNumeros;
VAR cantidad,i:BYTE;
numeros:ARRAY[LOW(BYTE)..HIGH(BYTE)] OF INTEGER;
suma:LONGINT;
BEGIN
suma:=0;
WRITE('Dime cuántos números vas a escribir: ');
READLN(cantidad);
FOR i:=1 TO cantidad DO
BEGIN
WRITE('Dime el número ',i,': ');
READLN(numeros);
suma:=suma+numeros;
END;
WRITELN('La suma de los números que has escrito es ',suma);
WRITELN;
WRITELN('Pulse una tecla para finalizar...');
REPEAT UNTIL KeyPressed;
END;
Algo así ;)
Utilizamos 1 array de Enteros. EN el temario que os haber´n dado os lo explicarán. Es como una "tira" de cajoncidos del tipo que sea, en este caso enteros.