Ayuda ( Exceptuar cantidades)...
Publicado por Fernando (5 intervenciones) el 24/05/2012 04:32:14
Bueno tengo un programa que he hecho pero se supone que no tiene que aceptar números negativos , pero la variable es de tipo real y he probado con las condiciones and y nada, asi lo tengo hasta ahorita:
En donde esta en negrita es donde he intentado introducir la condicion and pero me rechaza.
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
program juegomartillo;
var
deportista, numclasificados, ordendeportista, m: integer;
promedio, maximo, suma, metros: real;
begin
suma := 0;
numclasificados := 0;
for deportista := 1 to 7 do
begin
begin
write ('Ingrese la distancia alcanzada por el atleta: ');
readln (metros);
if metros>=70 then
numclasificados := numclasificados +1;
suma := suma + metros
end;
begin
if metros >= maximo then
maximo := metros;
end;
end;
writeln;
promedio := suma/7;
writeln ('El promedio de los lanzamientos de los atletas es: ', promedio:4:2,' metros');
writeln ('La cantidad de atletas clasificados para los juegos olimpcos Londres 2012 son: ', numclasificados,' atletas');
writeln ('El lanzamiento mas largo de la serie fue de: ', maximo:4:2,' metros');
readln (m);
end.En donde esta en negrita es donde he intentado introducir la condicion and pero me rechaza.
Valora esta pregunta
0