Pascal - Comandos Básicos e Comandos Condicionais

Neste post, citaremos alguns comandos básicos que encontra-se no pascal.

declarar variável (simples):

primeiramente, você deverá colocar depois da linha "program" a palavra "var" e enfim declarar as variáveis do programa.

Program pascal
var
idade:integer
num:real;
nome:string;
Begin

End.

neste exemplo, eu declarei as variaveis idade (como numero inteiro(integer)), num (como numero real(real)) e nome (como tipo de "palavra"(string))

posteriormente mostraremos mais tipos de variáveis, mas neste post só utilizaremos estes tipos de variáveis.

comandos(básicos):

:=

Esse sinal significa "recebe", por exemplo:
idade := 5
isso significa que a variavel "idade" receberá o valor 5

Write();

Serve para você mostrar/imprimir na tela o que tiver dentro do parênteses, por exemplo:
Write('você tem ',idade,' anos');
nesse exemplo, aparecerá exatamente "você tem 5 anos"
outro exemplo:
Write('escreva seu nome ');
obs.: existe o comando Writeln(); que tem o mesmo fundamento do Write(); porem quando o Writeln(); é usado, a barra de escrita estará na linha de baixo, não do lado

Read();

Read(); serve para você atraibuir um valor, que o usuário digitará, à uma variável. exemplo:
Writeln('Qual seu nome?');
Read(nome);
Writeln('Seu nome é ',nome);

neste exemplo aparecerá:

Qual seu nome?
[aqui o usuário digitará algo e apertará enter]
Seu nome é [o nome que o usuário digitou]

osb.: existe tbm o readln(); que tem o mesmo propósito do writeln(); pular uma linha.

por enquanto nosso programa está assim:

Program Pzim ;
var
idade:integer;
num:real;
nome:string;
Begin
writeln('Qual seu nome?');
readln(nome);
write('Seu nome é ',nome,);
End.

Condicionais

condicionais são os comandos que nos criam possibilidades.

if (condição) then
begin
comando1
comando2
.
.
.
end;

essa condicional funciona assim: Se tal_coisa então fazer_coisa fim
lembram do "Se sede então beber_agua"?
então, essa linha de programação encaixa-se aqui

if (sede = true) then
begin
beber_agua();
end;

dica: SEMPRE que existir um "begin" deverá existir um "end" não pode existir mais "begin" que "end" e vice-versa

if ... then begin
...
end
else begin
comando
end;

else significa se não ... ou seja se a resposta do "se" voltar negativa (false), o programa pulará todo a parte do "se" e irá direto para o "Se não" e executará os comandos. por exemplo:

if (idade > 18) then
begin
write('você é adulto');
end
else begin
clrscr;
writeln('você não é adulto');
end;

no nosso caso, idade é 5, então o programa perguntará: idade > 18? a resposta é negativa, logo pulará direto para o else e imprimirá na tela a frase "você não é adulto"

if ... then begin
...
end
else if (outra condição) then begin
comando;
end;
(e se quiser colocar outro else aqui pode colocar ...)

else if sinifica "Se não se" ou seja se sua idade não for maior que 18 ela pula pro "se não se" e novamente fará outra pergunta:


if (idade > 18) then
begin
write('você é adulto');
end
else if (idade > 13) then
begin
clrscr;
writeln('você é adolescente');
end
else begin
clrscr;
writeln('Você é criança')
end;

primeira pergunta: idade > 18? não?
se não se: idade > 13 e idade <= 18? (como a idade não é maior que 18, ela só pode ser menor ou igual, então a segunda parte entra automaticamente no "se não se") não?
se não: Você é criança

Operadores matemáticos

Essa parte é uma parte fácil, mas que pode-se tornar muito complicado!

+
símbolo de adição. exemplo: 5 + 9 = 14
-
símbolo de subitração. exemplo: 7 - 3 = 4
*
símbolo de multiplicação. exemplo: 2 * 8 = 16

/
símbolo de divisão (restorna valores com vírgula). exemplo: 6 / 3 = 2

primeiro programa: IMC - índice de massa corporal
Faça um programa que leia a altura e peso da pessoa, e imprima a massa corporal

fórmula para massa corporal: peso/altura² (altura em metros)

resposta:

Program Pzim ;
var
peso:integer; // peso inteiro, mas pode ser real também
altura,imc:real; // altura e imc deve ser real, ja que será colocado número com vírgula
Begin
writeln('Insira seu peso'); //imprime na tela a frase "insira seu peso" para que o usuário possa entender o que é para fazer
readln(peso); //armazena na variável peso o número que o usuário colocou
writeln('Insira sua altura em metros'); //o mesmo do peso
readln(altura); //o mesmo do peso
imc := peso/(altura*altura); // insiro a fórmula do IMC
write(imc); //imprime o IMC na tela
End.


Aqui vai um desafio:

quero que o programa diga ao usuário se ele tem massa corporal em excesso (acima de 24,5), se precisa engordar (abaixo de 17,5) ou se esta no ideal