Pascal/Turbo Pascal - Ayuda Con pascal

   
Vista:

Ayuda Con pascal

Publicado por Jhorman (1 intervención) el 25/01/2014 06:40:22
Buenas Porfa uien me pueda ayudar a corregir este problemita gracias :)
Realizar un programa que cuente cantidad de mayores y menores Teniendo en cuenta q no sabemos la cantidad de personas..... esto es lo q llevo creo q es un pequeño problema con el contador pero no se :S

Program Contador;
Uses
Crt,dos;
Var
May,Men,Edad,x,num:integer;

Begin
Clrscr;
writeln(´ingrese el numero de personas´);
readln(num);

May:=1;
Men:=1;

For X:=1 to num do

Begin
writeln(´introduzca su edad´);
Readln(Edad);

if(edad>17)then

Begin
writeln(´usted es mayor´);
end

else

begin
writeln(´usted es menor´);
end;

writeln(´el numero de mayores es´,May);
Writeln(´el numero de menores es´,Men);
end;

End.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda Con pascal

Publicado por Rene gar (58 intervenciones) el 27/01/2014 05:47:51
esta hecho en delphi pero te debe funcionar igual
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
var
may,men,p,i,edad:byte;
begin
may:=0;
men:=0;
 
writeln('ingrese el numero de personas');
readln(p);
 
for i := 1 to p do
  begin
    writeln('Ingrese su edad');
    readln(edad);
 
    if edad>17 then
       inc(may)
     else
       inc(men);
  end;
 
 writeln('el numero de mayores es:',may);
 writeln('el numero de menores es:',men);
 
readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar