Ver Mensaje Individual
  #1  
Antiguo 27-10-2018
kat kat is offline
Registrado
NULL
 
Registrado: oct 2018
Posts: 1
Reputación: 0
kat Va por buen camino
soy nueva en la pagina

Hola, soy nueva en la pagina, realmente no se como postear algo o si podía hacerlo aquí .-. y, bueno, es solo que tenía una duda, igual soy muuuuuuy nueva usando delphi, estoy en cursos, y estoy elaborando un programa que realice N veces las operaciones aritméticas básicas: suma, resta, multiplicación, división, raíz “n” de “X” y potencia “n” de “X” y debe realizarse una operación a la vez y mandar los mensajes adecuados, el punto es que llevo esto:

Código Delphi [-]

Var

answer, si, no: String[5];
N, Numero, cont, cont2, sumanum: byte;
Suma, resta, Num: Integer;
prom, mul, divi, raiz, pot: Single;
acum: integer;

begin

writeln('PROGRAMA PARA REALIZAR OPERACIONES ARITMETICAS BASICAS "N" VECES');
  writeln;
writeln('Programado por KVSB, oct, 2018');
  writeln;
  writeln;
write('¿Desea realizar una suma?: ');
readln(answer);
writeln;




 if answer=si then
    writeln;
  write('¿Cuantos sumas desea realizar?: ');
  readln(N);
    writeln;
  for cont:=1 to n do

begin
suma:=0;
    writeln;
  Write('¿Cuantos numeros desea sumar?: ');
  Readln(Numero);
    writeln;
  for cont2:=1 to Numero do

  begin
    writeln;
   write('Escriba un numero: ');
   Readln(num);
   acum:= acum + num;
  end;
   suma:= suma + acum;
    writeln;
   writeln('La suma de los numeros es= ', suma);
    writeln;
 end;

 else

  if answer = no then
  writeln('Enter para continuar');
  readln;
  writeln;


  writeln('Enter para finalizar');
  readln;

end.


no se que tan bien vaya, pero me funcionaba hasta la parte del else, de ahí me aparece error, por que dice que espera un end en vez del else, pero realmente no entiendo por qué, e intente otras formas y aun así no puedo lograr que si pongo que no pase a lo siguiente que quiero hacer xc, no se si alguien pueda ayudarme con esta duda, no se casi nada aun de delphi, a por cierto, es delphi 7

Última edición por Neftali [Germán.Estévez] fecha: 29-10-2018 a las 13:27:45. Razón: Añadir TAG's al código
Responder Con Cita