program triangulo;
var
a, b, c : real;
begin
write('a :'); read (a);
write('b :'); read (b);
write('c: '); read (c);
writeln('Perimetro: ', a + b + c);
if (a <> b) and (b <> c) and (a <> c) then
writeln('O triângulo é escaleno.')
else
writeln('O triângulo não é escaleno.');
end.
program desenho;
var
i, j: integer;
begin
for i := 1 to 5 do
begin
for j := 1 to i - 1 do
write('+');
for j := 1 to 5 - i do
write('-');
writeln;
end;
end.
---- +--- ++-- +++- ++++
program desenho;
var
i, j: integer;
begin
i := 1;
while i <= 5 do
begin
j := 1;
while j <= i - 1 do
begin
write('+');
j := j + 1;
end;
j := 1;
while (j <= 5 - i) do
begin
write('-');
j := j + 1;
end;
writeln;
i := i + 1;
end;
end.
program serie;
var
x : real;
i,s : integer;
begin
x := 1;
s := -1;
for i := 1 to 20 do
begin
x := x + s/(2*i);
s := -s;
end;
end.
Exemplo:
N: 10
1 6 -5 6 8 -7 0 0 -2 -6
4 valores estritamente negativos.
program negativos;
var
n, i, v, neg : integer;
begin
write('N: ');
read(n);
pos := 0;
for i:=1 to n do
begin
read (v);
if (v < 0) then
neg := neg + 1;
end;
writeln(neg, 'valores estritamente negativos');
end;