Ayuda porfavor
Publicado por Rafael (3 intervenciones) el 23/08/2021 20:56:44
Soy nuevo en este lenguaje de programación, quiero hacer un programa que calcule el área de ciertas figuras geométricas (rectángulo, triangulo y circulo), no se si estará bien lo que estoy haciendo pero me sale esto:
Error: Illegal expression
Error: Illegal expression
11/3 Fatal: Syntax error, ; expected but indentifier A found
Alguien me puede ayudar por favor, quiero sorprender a mi profesor XD
Error: Illegal expression
Error: Illegal expression
11/3 Fatal: Syntax error, ; expected but indentifier A found
Alguien me puede ayudar por favor, quiero sorprender a mi profesor XD
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
program areas;
uses crt;
var
F:real;begin
writeln('Este programa calcula areas');
writeln('Seleccione la figura que desea calcular');
writeln('1.-Rectangulo 2.- Triangulo 3.- Circulo');
readln(F);
if(F=1) then
var
a,b,h:REAL;
begin
writeln('Ha seleccionado: Réctángulo');
writeln(' ');
writeln('Inserte un valor para la base');
readln(b);
writeln(' ');
writeln('El valor de la base es ' b:3:0 'cm');
writeln(' ');
writeln('Inserte un valor para la altura');
readln(h);
writeln(' ');
writeln('El valor de la altura es ' h:3:0 'cm');
writeln('Calculando...')
c:=b*h
writeln(' ');
writeln('El area del rectangulo es ' c:2:2 'cm2');
writeln(' ');
writeln('Cierre el programa para reiniciar');
readkey;
end
if(F=2) then
var
a,b,h:REAL;
begin
writeln('Ha seleccionado: Triángulo');
writeln(' ');
writeln('Inserte un valor para la base');
readln(b);
writeln(' ');
writeln('El valor de la base es ' b:3:0 'cm');
writeln(' ');
writeln('Inserte un valor para la altura');
readln(h);
writeln(' ');
writeln('El valor de la altura es ' h:3:0 'cm');
writeln('Calculando...')
a:=(b*h)/2
writeln(' ');
writeln('El area del triángulo es ' a:2:2 'cm2');
writeln(' ');
writeln('Cierre el programa para reiniciar');
readkey;
end
if(F=3) then
var
r:REAL;begin
writeln('Ha seleccionado: Circulo');
writeln(' ');
writeln('Inserte un valor para el radio');
readln(r);
writeln(' ');
writeln('El valor de el radio es ' b:3:0 'cm');
writeln(' ');
writeln('Calculando...')
a:=3.1415*R*R
writeln(' ');
writeln('El area del circulo es ' a:2:2 'cm2');
writeln(' ');
writeln('Cierre el programa para reiniciar');
end.Valora esta pregunta
0