Pesquisar na Comunidade
Mostrando resultados para as tags ''procedimento''.
Encontrado 3 registros
-
//fpc 3.0.0 //Thiago André Cardoso Silva //Git Hub: https://github.com/doctorwho1998 program funcionario; uses crt; const COL = 2; LIN = 10; var matricula_nome:array[0..(LIN - 1), 0..(COL - 1)] of String; salario:array[0..9] of Real; jornada:array[0..9] of integer; matricula:String; q_c,i,j,k,aux_alt,aux_exc,aux_mat:integer; cont_cad:boolean; //-----Pesquisar funcionário----- procedure pesquisar(mat:String); begin for i := 0 to 9 do begin if mat = matricula_nome[i,0] then begin writeln; writeln('Resultado da busca:'); writeln('Matricula: Nome: Salário: Jornada:'); write(matricula_nome[i][0],' '); write(matricula_nome[i][1],' '); write(salario[i]:00:02,' '); write(jornada[i]); writeln; writeln; end; end; end; //-----Pesquisar funcionário----- //-----Alterar funcionário----- procedure alterar(mat:String; n:String; sal:real; jor:integer); begin for i := 0 to 9 do begin if mat = matricula_nome[i,0] then begin matricula_nome[i,1] := n; salario[i] := sal; jornada[i] := jor; aux_alt := aux_alt + 1; writeln('Funcionário alterado com sucesso!'); end; end; writeln; if aux_alt = 0 then begin writeln('Matricula ',mat,' não encontrada'); writeln; end; end; //-----Alterar funcionário----- //-----Cadastrar----- procedure cadastrar(mat:String; n:String; sal:real; jor:integer); begin if q_c < 10 then begin for i := 0 to 9 do begin if mat = matricula_nome[i][0] then begin aux_mat := aux_mat + 1; end; end; if aux_mat = 0 then begin matricula_nome[q_c,0] := mat; matricula_nome[q_c,1] := n; salario[q_c] := sal; jornada[q_c] := jor; q_c := q_c + 1; writeln; end else begin writeln('Matricula ',mat,' já cadastrada'); end; end else begin writeln('Limite de cadastro atingido!'); writeln; end; end; //-----Cadastrar----- //-----Excluir----- procedure excluir(mat:String); begin for i := 0 to 9 do begin if mat = matricula_nome[i,0] then begin for j := i to q_c do begin for k := 0 to COL - 1 do begin matricula_nome[j][k] := matricula_nome[j+1][k]; end; salario[j] := salario[j+1]; jornada[j] := jornada[j+1]; end; aux_exc := aux_exc + 1; end; end; if aux_exc = 0 then begin writeln('Matricula ',mat,' não encontrada'); end else begin q_c := q_c - 1; end; end; //-----Excluir----- //-----Listar----- procedure listar; begin writeln('Matricula: Nome: Salário: Jornada:'); for i := 0 to q_c - 1 do // for para listar matricula e nome begin for j := 0 to COL - 1 do begin write(matricula_nome[i][j],' '); end; write(salario[i]:00:02,' '); write(jornada[i]); writeln; end; end; //-----Listar----- //---------------------------------------------INÍCIO--------------------------------------------- begin { writeln('Digite a matricula do funcionário'); writeln('Digite o nome do funcionário'); writeln('Digite o salário'); writeln('Digite a jornada de trabalho'); } cadastrar('1010', 'José Sobrinho', 5500, 40); cadastrar('1011', 'Jovem Célio ', 2500, 40); cadastrar('1011', 'Jovem Thiago ', 2500, 40); listar; pesquisar('1011'); alterar('1011', 'Jovem Cesar ', 2499, 80); listar; excluir('1011'); listar; end.
-
#include <stdio.h> #include <string.h> #define SIZE 100 int main (void) { char str1[SIZE],str2[SIZE]; int tamanhop,tamanho2,i,j; char res[SIZE]; int count=0; fgets(str1,SIZE,stdin); fgets(str2,SIZE,stdin); tamanhop = strlen(str1); while(tamanhop>0){ for(j=0;(str1[j]!='\0')&&(str1[j]!=' ');j++){ if(str1[j]==str2[j]){ res[j] = str2[j]; } } } printf("String menor aparece %d vezes\n", count); } Dado o seguinte código, eis o problema: O programa lerá duas strings. A primeira será uma frase e a segunda uma palavra que se repetirá na primeira string. O exercício pede que eu conte quantas vezes essa palavra (string2) aparecerá na string1.
-
- c
- programacao
-
(e %d mais)
Tags:
-
Olá,meu professor de Estrutura de Dados deu o seguinte trabalho: {- Faça um algoritmo para controlar um campeonato de futebol: - O campeonato é um quadrangular. - Para cada time deverá ser salvo o nome do time, e o nome dos jogadores (sendo que cada time possui um plantel de no máximo 22 jogadores entre titulares e reservas); - Para cada time deverá ser controlada a pontuação total. - Cada jogo possui três resultados possíveis (vitória 3 pontos, empate 1 ponto, derrota 0 pontos). - Mostrar a lista de classificação por pontos informando o time campeão, o time rebaixado e seus respectivos pontos.} O dividi em problemas menores para procedimentos certo,e não estou conseguindo uma etapa da minha lista. Um procedimento que cria jogos aleatórios,sendo que todos os times tem que jogar com todos do campeonato sem repetir. Eu pensei em algo tipo: ex: Time_1=1 Time_2=2 Time_3=3 e embaralhar pelos números , não consegui e se alguém tiver uma opinião melhor sobre como misturar os times manda ai. obs. Em console Application acabamos de iniciar com o orientado a objeto.
- 5 respostas
-
- Console Application
- Delphi
- (e %d mais)