Pascal

8
A Linguagem Pascal _____________________________________________________________ ____________ Programando em Pascal Download do arquivo tp.zip (Turbo Pascal para Windows): http://www.inf.aedb.br/modules.php? name=Downloads&d_op=MostPopular Instalando o Turbo Pascal para WINDOWS Para instalar o o turbo pascal para windows em sua máquina, siga os seguintes passos: 1)Descompacte o arquivo tp.zip (com winzip ou outro programa descompactador) para uma pasta qualquer em seu computador. 2) Dentro da pasta criada, crie mais 9 pastas com os nomes (disc1, disc2 disc3,.... disc9) . 3) Descompacte cada arquivo (disc1.zip, disc2.zip, disc3.zip...disc9.zip) para dentro das pastas criadas no item anterior, respectivamente. 4) Entre na pasta disc1 e clique em INSTALL.EXE. 5) Ao ser solicitado o DISCO 2 (INSERT DISK2), informe onde estão gravados os arquivos do disco 2. Por exemplo : D:\ MARCIA\PASCAL\DISC2 . A primeira parte do endereço já aparece. Modifique apenas o número do disco. Faça o mesmo quando for solicitado a inserção dos outros discos. 6) Se houver problemas para instalar o winhelp, click em RETRY para repetir. Dê OK nos demais passos. Utilizando o Pascal para Windows O Turbo Pascal para Windows é um ambiente que utilizamos para compilar , depurar e executar programas escritos na Linguagem de Programação Pascal. _________________________________________________________________________ _______________ Professora M@rcia

Transcript of Pascal

Page 1: Pascal

A Linguagem Pascal_________________________________________________________________________

Programando em Pascal

Download do arquivo tp.zip (Turbo Pascal para Windows): http://www.inf.aedb.br/modules.php?name=Downloads&d_op=MostPopular

Instalando o Turbo Pascal para WINDOWS

Para instalar o o turbo pascal para windows em sua máquina, siga os seguintes passos:

1)Descompacte o arquivo tp.zip (com winzip ou outro programa descompactador) para uma pasta qualquer em seu computador.2) Dentro da pasta criada, crie mais 9 pastas com os nomes (disc1, disc2 disc3,.... disc9) . 3) Descompacte cada arquivo (disc1.zip, disc2.zip, disc3.zip...disc9.zip) para dentro das pastas criadas no item anterior, respectivamente. 4) Entre na pasta disc1 e clique em INSTALL.EXE.5) Ao ser solicitado o DISCO 2 (INSERT DISK2), informe onde estão gravados os arquivos do disco 2. Por exemplo : D:\MARCIA\PASCAL\DISC2 . A primeira parte do endereço já aparece. Modifique apenas o número do disco. Faça o mesmo quando for solicitado a inserção dos outros discos.6) Se houver problemas para instalar o winhelp, click em RETRY para repetir. Dê OK nos demais passos.

Utilizando o Pascal para Windows

O Turbo Pascal para Windows é um ambiente que utilizamos para compilar , depurar e executar programas escritos na Linguagem de Programação Pascal.

A Linguagem Pascal é uma linguagem simples que foi criada com o objetivo de ensinar a programação de computadores.

Os programas escritos em Pascal são bem parecidos com os programas escritos em Portugol. Mas agora, você estará utilizando o Pascal não apenas para desenvolver a lógica de um programa, mas também para executá-lo.

Operações essenciais (Novo, Abrir , Salvar, Copiar, Recortar, Colar, Desfazer, Refazer)

Para criar um novo arquivo pascal, acesse File > New. Para abrir um arquivo pascal já gravado, acesse File > Open. Para salvar um arquivo escrito em Pascal, acesse File> Save as . Dê um nome ao

arquivo que guardará o seu programa programa. Sugerimos que , a princípio, os

________________________________________________________________________________________Professora M@rcia

Page 2: Pascal

A Linguagem Pascal_________________________________________________________________________

arquivos sejam gravados na pasta padrão do pascal (TPW). Depois você poderá realizar uma cópia para outro local.

Para copiar trechos de um programa pascal para outro lugar, selecione esses trechos, e acesse Edit >Copy ou pressione CTRL-INS.

Para colar trechos de programas ou de textos de outros ambientes (WORD, Bloco de Notas,Wordpad, etc.) use EDIT > Paste ou SHIFT-INS.

Para recortar trechos do programas para movê-los para outro lugar, utilize Edit > Cut ou SHIFT-DEL.

Para desfazer as últimas ações realizadas use Edit >Undo ou ALT-BackSpace uma ou mais vezes. Para refazê-las, acesse Edit>Redo.

Escrevendo o primeiro programa

A seguir um programa que exibe a frase Olá, mundo!! .

program Iniciando;

uses WinCrt;

begin Writeln('Olá, Mundo!!!');end.

program - Utilizado no início do programa seguido por um nome dado pelo programador, serve para identificar um programa escrito em Pascal.

uses - Expressão que permite importar instruções de outras bibliotecas de instruções. Por exemplo, quando usamos uses WinCrt, podemos utilizar em nosso programa as instruções de entrada e saída de dados como o Write, Writeln, Read e Readln , que veremos mais adiante o que significam.

Begin - Inicia uma seqüência de instruções de um programa Pascal. Writeln - Exibe informações contidas dentro de variáveis ou textos delimitados por

aspas simples (' ' ). End - Finaliza um conjunto de instruções.

Compilando e Executando um programa Pascal

Compilar um programa significa convertê-lo em um programa objeto, isto é, em um programa escrito em linguagem de máquina para que possa ser executado. O programa

________________________________________________________________________________________Professora M@rcia

Page 3: Pascal

A Linguagem Pascal_________________________________________________________________________

que compila um programa escrito em uma linguagem como o Pascal é chamado de Compilador.

Ligar (fazer um link) um programa é juntar os módulos desse programa já escritos em linguagem de máquina (programa objeto) para torná-lo um programa executável.

Agora, que escrevemos o nosso primeiro programa em pascal, devemos compilá-lo para , em seguida, executá-lo. Um programa sempre deverá ser compilado antes de ser executado.

Para compilar um programa Pascal, entre em Compile > Compile ou apenas pressione ALT-F9.

Após compilar um programa , devemos executá-lo. Para isso, entre em Run > Run ou pressione CTRL-F9.

Migrando do Portugol para o Pascal

Nas aulas de Portugol , aprendemos algumas instruções como o Leia , o Exiba , a atribuição (<--). Em Pascal essas instruções seriam escritas da seguinte forma:

Readln( ) ou Read ( ) são equivalentes ao Leia( ), com a diferença que o Read ( ) lê uma entrada e o cursor permanece à direita do que foi lido.Já o Readln ( ), lê uma entrada e o cursor vai automaticamente para a próxima linha.

Write( ) e Writeln() são equivalentes ao Exiba( ), com a diferença que o write( ) escreve e o cursor fica posicionado ao lado do que foi exibido. Usando o writeln,o texto é exibido e o cursor vai automaticamente para a próxima linha.

Quando escrevemos apenas Writeln , queremos dizer, que desejamos exibir uma linha em branco.

A combinação := é equivalente à atribuição .

Comentários, Declaração de Variáveis, o operador "+" e os operadores lógicos

Para comentar fazer comentários em um programa, escrevemos entre chaves ({ }). Quando queremos ligar dois textos, usamos o sinal + (mais) entre os dois textos (ou

strings).

Exemplo : writeln (' Logica' + ' de ' + ' programação');

Será exibido : Lógica de programação

Para declararmos variáveis, usamos a palavra Var também. No Pascal, variáveis numéricas são declaradas como INTEGER, variáveis reais são declaradas como

________________________________________________________________________________________Professora M@rcia

Page 4: Pascal

A Linguagem Pascal_________________________________________________________________________

REAL, variáveis do tipo caracter são declaradas como CHAR , variáveis lógicas como BOOLEAN e variáveis alfabéticas e alfanuméricas como STRING[n], onde n é o número máximo de caracteres do texto (ou cadeia de caracteres).

Os operadores lógicos escritos em pascal são : AND ( e), OR (ou) e NOT (não).

Em Pascal , Falso e Verdadeiro são escritos, respectivamente, como FALSE e TRUE.

Exemplo 1: Faça um programa que leia dois números e realize a soma entre eles.

Program Testando_instrucoes;

{autor(a) : M@rcia. Escrito em : 27/09/2004 Este programa lê dois numeros e exibe a soma deles.}

uses wincrt;var a, b , soma : INTEGER;begin Write (' Digite o valor de a: ' ); Readln (a); Write ('Digite o valor de b : '); Readln(b); soma:= a + b; Writeln; Writeln (' O resultado da soma é :', soma );end.

Exemplo 2 : Faça um programa que calcule o produto de dois números A e B e some o resultado com uma variável M que possui valor inicial 3.

Program Testando_instrucoes2;

{autor(a) : M@rcia. Escrito em : 27/09/2004 Este programa lê dois numeros e exibe o produto entre eles e a soma com um terceiro número.}

uses wincrt;var a, b ,c, prod soma : INTEGER;begin Write (' Digite o valor de a: ' ); Readln (a);

________________________________________________________________________________________Professora M@rcia

Page 5: Pascal

A Linguagem Pascal_________________________________________________________________________

Write ('Digite o valor de b : '); Readln(b); M<--3; prod:= a * b; soma:= prod + M; Writeln; Writeln (' O resultado da soma é :', soma );end.

Exercício 1 : O que será exibido nos programas a seguir?

Program Testando_instrucoes2;

{autor(a) : M@rcia. Escrito em : 27/09/2004 Este é um programa útil.}

uses wincrt;var nome , sobrenome: string[30]; idade : integer; e_mail : string[20];begin Write (' Digite o seu nome: ' ); Readln (nome); Write ('Digite seu sobrenome: '); Readln(sobrenome); Write ('Digite a sua idade: '); Readln(idade); Write ('Digite seu e_mail: '); Readln(e_mail); writeln; writeln; Writeln (nome + ' ' + sobrenome); writeln('Idade : ', idade); writeln('E-mail: ', e_mail); writeln; writeln; writeln ('O pascal é uma linguagem didática.' + 'Acho que estou aprendendo bem!');

end.

Exercício 2 : O que será exibido no programa a seguir?

________________________________________________________________________________________Professora M@rcia

Page 6: Pascal

A Linguagem Pascal_________________________________________________________________________

Program Brincando_logica;var K,L,M,N : boolean;begin K := true; L := NOT(K) OR True; M := (K and L) OR L N := False; Exiba( 'Resultado :' , NOT (L and N) OR M);end.

________________________________________________________________________________________Professora M@rcia