-
Lenguaje
Pascal
-
Descripción
Determine el grado de un acero bajo las siguientes condiciones de temperatura (T): el acero se considera de grado 1 si T1 excede a 0.95 y T2 excede a 0.75; de grado 2 si T1 excede a 0.95 pero T2 no excede a 0.75; y de grado 3 si T1 no es mayor que 0.95.
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
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
program GradoDeUnAcero;
uses crt;
var T1, T2, grado : real;
begin
write ('Ingresa el valor de T1: ');
readln (T1);
write ('Ingresa el valor de T2: ');
readln (T2);
grado := 0;
if (T1>0.95) and (T2>0.75) then
begin
grado := 1;
end;
if (T1>0.95) and (T2<=0.75) then
begin
grado := 2;
end;
if T1<=0.95 then
begin
grado := 3;
end;
writeln ('Valor de grado: ', grado:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var T1, T2, grado : real;
begin
write ('Ingresa el valor de T1: ');
readln (T1);
write ('Ingresa el valor de T2: ');
readln (T2);
grado := 0;
if (T1>0.95) and (T2>0.75) then
begin
grado := 1;
end;
if (T1>0.95) and (T2<=0.75) then
begin
grado := 2;
end;
if T1<=0.95 then
begin
grado := 3;
end;
writeln ('Valor de grado: ', grado:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.