PROGRAMAÇÃO
O que é a programação?
Uma linguagem de programação é um método padronizado para comunicar instruções a um computador. É um conjunto de regras sintáticas e semânticas usadas para definir um programa de computador. Para realizar programas básicos utilizamos o Pascalzim e o VisualBasic.
Pascal é uma linguagem de programação estruturada, de fácil utilização, sendo por isso muito utilizada para aprendermos as bases de programação. Por sua vez o VisualBasic é um programa desenvolvido pela Microsoft e é composto por uma parte visual completamente gáfica que serve para realizar o design do programa e uma parte de código onde atribuimos as funções ao programa.
Qual o maior?
Código
Program HA ;
var W:array[1..15]of integer;
pos,maior,i:integer;
Begin
Writeln('Escreve 15 numeros...');
For i:=1 to 15 do
readln(W[i]);
Writeln('........................');
For i:=1 to 15 do
begin
if W[i]>maior then
begin
maior:=W[i];
pos:=i;
end;
end;
Writeln('O maior é: ',maior);
Writeln('Na posição ',pos);
for i:=1 to 15 do
if (W[i]=maior) and (i<>pos) then
Writeln('e tbm na Position ', i)
End.
Intervalos
var i,a,cont1,cont2,cont3,cont4:integer;
Begin
cont1:=0;
cont2:=0;
cont3:=0;
cont4:=0;
for i:=0 to 10 do
begin
writeln('Digite 1 valor: ');
readln(a);
if (a>=0) and (a<25) then cont1:=cont1+1;
if (a>=25) and (a<50) then cont2:=cont2+1;
if (a>=50) and (a<75) then cont3:=cont3+1;
if (a>=75) and (a<100) then cont4:=cont4+1;
end;
writeln('No intervalo de 0-25 estão ',cont1, ' numeros');
writeln('No intervalo de 25-50 estão ',cont2, ' numeros');
writeln('No intervalo de 50-75 estão ',cont3, ' numeros');
writeln('No intervalo de 75-100 estão ',cont4, ' numeros');
End.
Soma
Program Adios ;
var vet:array[1..5] of integer;
i,soma:integer;
Begin
clrscr;
textbackground(blue);
soma:=0;
write('escreve os valores');
for i:=1 to 5 do
begin
read(vet[i]);
soma:=soma+vet[i]
end;
for i:=1 to 5 do
begin
writeln(vet[i],' ');
end;
Textcolor(red);
writeln(soma,' ');
End.
Matriz
Program Matriz_tres ;
var m3:array[1..4,1..3] of integer;
i,j,n:integer;
Begin
n:=2;
for i:=1 to 4 do
for j:=1 to 3 do
begin
m3[i,j]:=n;
n:=n+2;
end;
for j:=1 to 3 do
begin
for i:=1 to 4 do
write (m3[i,j],' ');
writeln;
end;
End.