O Algoritmo e Logica
Por: GUSTAVO REZENDE COUTO • 12/11/2021 • Projeto de pesquisa • 590 Palavras (3 Páginas) • 113 Visualizações
Gustavo rezende couto
1-------------
#include <stdio.h>
int main()
{
int i=0;
int vetor[50];
for(i = 0; i <= 50;i++){
vetor[i];
}
for(i = 0; i <= 50;i++){
printf("%d \n",(i));
}
return 0;
}
2-------------------
3-------------------
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
int main() {
int i, contador = 0, troca, copia, vetor[100];
srand(time(NULL));
for(i = 0; i < 100; i++){
vetor[i] = rand() % 1000;
}
// imprime o vetor antes da ordenação
printf("Antes da ordenacao:\n");
for(i = 0; i < 100; i++){
printf("%3d ", vetor[i]);
}
do{
troca = 0;
contador++;
for(i = 0; i < 99; i++){
if(vetor[i] > vetor[i+1])
copia = vetor[i];
vetor[i] = vetor[i+1];
vetor[i+1] = copia;
troca = 1;
}
}
}while(troca);
printf("\nApos a ordenacao: Contador: %d\n", contador);
for(i = 0; i < 100; i++){
printf("%3d ", vetor[i]);
}
return 0;
}
4--------------
algoritmo "2"
var
a,b: vetor[1..50] de inteiro
c: vetor[1..100] de inteiro
i,x: inteiro
inicio
para i de 50 ate 100 faca
escreva ("Entre com o", i,"º valor para o vetor A: ")
leia (a[i])
c[i] := a[i]
fimpara
x := 0
para i de 100 ate 50 faca
x := x + 1
escreva ("Entre com o", i,"º valor para o vetor B: ")
leia (b[x])
c[i] := b[x]
fimpara
para i de 1 ate 100 passo 1 faca
escreva (c[i])
fimpara
fimalgoritmo
5--------------------------
var
realB:vetor[1..10] de realn : inteiro
inicio
A[1] <- 6.0A[2] <- 1.5A[3] <- 3.0A[4] <- 2.6A[5] <- 12.0A[6] <- 3.7A[7] <- 4.5A[8] <- 4.5A[9] <- 15.0A[10] <- 10.0
para n de 1 ate 10 faca
se (n mod 2 = 0) entao
B[n] <- A[n] / 2
senao
B[n] <- A[n] / 3
fimse
escreval("B[", n, "] = ", B[n])
fimpara
fimalgoritmo
6-----------
#include <Stdio.h>
int x[20],i;
for(i=0;i<20;i++){
printf("\n Insira um valor [%d]", i);
scanf("%d",x[i]);}
i--;
for(;i>=0;i--)
printf ("%d ",x[i]);
7--------------------
Var
vet:vetor[1..6] de inteiro
i,qtdpar,qtdimpar:inteiro
Inicio
PARA I:=1 ATE 6 FACA
ESCREVAL("DIGITE O ",I,"º NÚMERO..")
LEIA(VET[I])
FIMPARA
ESCREVAL
ESCREVAL("-----------------------------------")
ESCREVAL("NUMEROS PARES--")
PARA I:=1 ATE 6 FACA
SE (VET[I] MOD 2 = 0) ENTAO
QTDPAR:=QTDPAR+1
ESCREVA(VET[I]:4)
FIMSE
FIMPARA
ESCREVAL
ESCREVAL("A QUANTIDADE DE NÚMEROS PARES É: ",QTDPAR)
ESCREVAL
ESCREVAL("-----------------------------------")
ESCREVAL("NUMEROS IMPARES--")
PARA I:=1 ATE 6 FACA
SE (VET[I] MOD 2 <> 0) ENTAO
QTDIMPAR:=QTDIMPAR+1
ESCREVA(VET[I]:4)
FIMSE
FIMPARA
ESCREVAL
ESCREVAL("A QUANTIDADE DE NÚMEROS IMPARES É: ",QTDIMPAR)
...