soy nueva en la pagina

[kat]

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:



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

[Casimiro Notevi]

Bienvenida, por favor lee nuestra guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php), gracias.
No repitas mensajes, escoge el foro adecuado a tu consulta, pon títulos descriptivos a tu problema.
Tampoco olvides usar las etiquetas cuando pongas código.
http://www.clubdelphi.com/images/UtilizarTAGs.png
Gracias.

[CarlosReyesg]

buen día kat
recomiendo que busques en google un manual de delphi básico donde puedas leer y entender la sintaxis
y ademas debes de ser ordenada en escribir código.
ejemplo

if answer = si then
begin
///////////////////////////
//escribe codigo
end
else
begin
///////////////////////////
//escribe codigo
end;


http://www.delphibasics.co.uk/RTL.asp?Name=IF
http://www.delphibasics.co.uk/Article.asp?Name=Logic
http://terawiki.clubdelphi.com/Delphi/Manuales/?download=La_Cara_Oculta_De_Delphi_4_pdf_.zip

[Casimiro Notevi]

En este enlace de los foros (http://www.clubdelphi.com/foros/showthread.php?t=85907) también tienes montones de tutoriales, libros y documentación.

[(MAJ)]

Concuerdo con todo lo dicho arriba, debes leer la guiá de estilo para hacer un post correctamente, porque sino "todo se va a la mierda"(me disculpo por la expresión), en cuanto a tu código, el propio compilador te esta dando la respuesta...

...dice que espera un end en vez del else ...
y ademas la forma en que escribiste el if es incorrecta, ya que no tiene la estructura básica que te comentaba CarlosReyesg
buen día kat
recomiendo que busques en google un manual de delphi básico donde puedas leer y entender la sintaxis
y ademas debes de ser ordenada en escribir código.
ejemplo
Código Delphi [-] (http://clubdelphi.com/foros/newreply.php?do=newreply&noquote=1&p=529289#)if answer = si then begin /////////////////////////// //escribe codigo end else begin /////////////////////////// //escribe codigo end;


http://www.delphibasics.co.uk/RTL.asp?Name=IF
http://www.delphibasics.co.uk/Article.asp?Name=Logic
http://terawiki.clubdelphi.com/Delph...phi_4_pdf_.zip (http://terawiki.clubdelphi.com/Delphi/Manuales/?download=La_Cara_Oculta_De_Delphi_4_pdf_.zip)

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 // Comenzás con el if .. then
//begin

writeln; // como aquí no tenes "begin" el if solamente se aplica a esta linea
write('¿Cuantos sumas desea realizar?: '); // las lineas siguientes se ejecutan sin importar el if, porque no estas encerrandolas en un begin
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;
//end
else //te da error en esta linea porque como el codigo anterior no esta encerrado en un begin .. end
if answer = no then //este else no esta relacionado con el if anterior
writeln('Enter para continuar');
readln;
writeln;
writeln('Enter para finalizar');
readln;

end.


espero haberme dado a entender (el fernet me tiene como rehén :p)


P/d: bienvenida al club