Questões de Vestibular de Programação - Pascal
Foram encontradas 32 questões
Q1268864
Programação
O comando while, da linguagem Pascal, é de repetição e permite que a execução de um bloco de
comandos seja repetida quando uma condição for verdadeira; quando a condição se torna falsa, o bloco
de comando não é mais executado.
Q1268862
Programação
O programa em Pascal Exemplo1 pede ao usuário para digitar um número e mostra, na tela, o reverso
desse número, isto é, se o usuário digitar o número 75, por exemplo, o programa mostrará, na tela, o
número 57.
program Exemplo1; var num1, num2, x, y: integer; begin writeln(‘Digite um inteiro com obrigatoriamente com dois algarismos’); readln(num1); x := num1 mod 10; y := num1 div 10; num2 := x * 10 + y; writeln(num2); end.
program Exemplo1; var num1, num2, x, y: integer; begin writeln(‘Digite um inteiro com obrigatoriamente com dois algarismos’); readln(num1); x := num1 mod 10; y := num1 div 10; num2 := x * 10 + y; writeln(num2); end.
Q1268861
Programação
Texto associado
O programa DivisorProprio recebe da entrada de dados um número inteiro fornecido pelo usuário
e mostra, na tela, um dos divisores próprios desse número. Os divisores próprios de um número são
aqueles diferentes de 1 e do próprio número. Por exemplo, os divisores próprios de 6 são 2 e 3.
program DivisorProprio;
var
num, i, divisor: integer;
begin
writeln(‘Digite um número inteiro maior que zero’);
readln(num);
divisor := 0;
for i := 2 to (num-1) do
if (num mod i = 0) then
divisor := i;
if divisor <> 0 then
writeln(divisor, ‘é um divisor próprio de’, num)
else
writeln(num, ‘não tem divisor próprio’);
end.
Se o usuário fornecer um número que tenha mais de um divisor próprio, o programa irá mostrar, na tela,
o menor divisor próprio desse número.
Q1268860
Programação
Texto associado
O programa DivisorProprio recebe da entrada de dados um número inteiro fornecido pelo usuário
e mostra, na tela, um dos divisores próprios desse número. Os divisores próprios de um número são
aqueles diferentes de 1 e do próprio número. Por exemplo, os divisores próprios de 6 são 2 e 3.
program DivisorProprio;
var
num, i, divisor: integer;
begin
writeln(‘Digite um número inteiro maior que zero’);
readln(num);
divisor := 0;
for i := 2 to (num-1) do
if (num mod i = 0) then
divisor := i;
if divisor <> 0 then
writeln(divisor, ‘é um divisor próprio de’, num)
else
writeln(num, ‘não tem divisor próprio’);
end.
O laço constituído pelo comando for será executado tantas vezes quanto for o valor da variável num, de
modo que, por exemplo, se o valor colocado na variável num for 20, o laço será executado vinte vezes.
Q1268859
Programação
Variáveis do tipo de dado char, em Pascal, podem armazenar cadeias de caracteres com até, no máximo,
255 caracteres.