Programação em Pascal

Exemplo de um prova de algoritmos onde a questão exigida corresponde ao nome do program).

Algoritmos implementados no PascalZim!
Esta é uma das forma possíveis de resolução,há muitas outras possíveis.

Questão 1:
program linha_vertical;
 var i,x:integer;
 begin
 for x:=20 to 20 do
 begin
 gotoxy(x,20);
 write(CHR(196));
 end;
 end.
Questão 2:
program linha_horizontal;
var i,y: >integer;
begin
for y:=10 to 40 do
begin
gotoxy(40,y);
writeln(CHR(179));
end;
end.
Questão 3:
program nome_centro;
{a coordenada de x deve ser calculada pela subtração de
80 menos o número de caracteres de seu nome + espaços <br>dividindo o resultado por 2}
begin
gotoxy(x,40);
write('Seu nome aqui');
end.
Questão 4:
program bandeira_franca;
var i,x,y:integer;
begin
for y:=10 to 20 do
begin
for x:=25 to 35 do
begin
gotoxy(x,y);
textcolor(blue);
writeln(CHR(219));
end;
for x:=35 to 45 do
begin
gotoxy(x,y);
textcolor(white);
writeln(CHR(219));
end;
for x:=45 to 55 do
begin
gotoxy(x,y);
textcolor(red);
writeln(CHR(219));
end;
end;
end.
Questão 5:
program bandeira_italia;
var i,x,y:integer;
begin
for y:=10 to 20 do
begin
for x:=25 to 35 do
begin
gotoxy(x,y);
textcolor(green);
writeln(CHR(219));
end;
for x:=35 to 45 do
begin
gotoxy(x,y);
textcolor(white);
writeln(CHR(219));
end;
for x:=45 to 55 do
begin
gotoxy(x,y);
textcolor(red);
writeln(CHR(219));
end;
end;
end.
Questão 6:
program caixa_dentro_outra;
var i,x,y:integer;
begin
for y:=10 to 30 do
begin
for x:=20 to 60 do
begin
gotoxy(x,y);
textcolor(blue);
writeln(CHR(219));
end;
for y:=15 to 25 do
begin
for x:=30 to 50 do
begin
gotoxy(x,y);
textcolor(yellow);
writeln(CHR(219));
end;
end;
end.
Questão 7:
program Caracteres_coluna;
var i,x: integer;
begin
for x:=11 to 40 do
begin
gotoxy(x,30);
textcolor(red);
write('$');
end;
end.
Questão 8:
program hello;
var nome: string;
begin
writeln('Por favor entre como seu nome');
readln(nome);
writeln;
writeln('Seja bem vindo ',nome,', tenha um bom dia!');
end.
Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s