• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

mykos

duvidas!!

3 mensagens neste tópico

Boas ppl!!

As minhas dúvidas sao as seguintes:

1.O que sao parametros?

2.Para que servem?

3.Como se usam?

estas sao as minhas duvidas..

4** estava a pensar em fazer um programa no kual introduzimos 15 letras e o programa faz todas as combinaçoes possiveis d 5 letras a partir dessas 15..mas n sei como começar.. alguem tem uma ideia?? ou sabe como s faz??

Obrigado a tds..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Isto vai te ajudar decerteza

(*
Author : DarkCoderSc
Function To randomise any string =)
*)

Function RandomName : String;
const  Chars = '0123456789ABCDEFGHJKLMNPQRSTUVWXYZ';
var
S: string;
i, N: integer;
begin
Randomize;
S := '';
for i := 1 to 8 do begin
    N := Random(Length(Chars)) + 1;
    S := S + Chars[N];
Result := S;
End;
End;

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Está aki o código do programa k fiz!!

comentem!!

Program Criar_palavras;
uses crt;
const nmr_letras=15 ;
var
Tabela_letras:array[1..5,1..nmr_letras]of string;
letras:array[1..nmr_letras] of string;
op:char;
ficheiro: text;

procedure letras_const;
var i,j:integer;
begin
     for i:=1 to 5 do
     begin
          for j:=1 to nmr_letras do
          begin
               tabela_letras[i,j]:=letras[j];
          end;
     end;

end;


procedure inserir;
var i:integer;
begin
     for i:=1 to nmr_letras do
     begin
         clrscr;
         Write('Introduza a letra ',i,': ');
         readln(letras[i]);
     end;
clrscr;
writeln('As letras inseridas foram:');
for i:=1 to nmr_letras do
begin
write(letras[i],' | ');
end;
letras_const;
readkey;
end;

procedure criar;
var i,j,k,l,m:integer;
linha:string;
begin
clrscr;
     for i:=1 to 15 do
     begin
          for j:=1 to 15 do
          begin
               for k:=1 to 15 do
               begin
                    for l:=1 to 15 do
                    begin
                         for m:=1 to 15 do
                         begin
                              linha:=(Tabela_letras[1,i]+Tabela_letras[2,j]+Tabela_letras[3,k]+Tabela_letras[4,l]+Tabela_letras[5,m]);
                              writeln(ficheiro,linha);
                         end;
                    end;
               end;
          end;
     end;
writeln('Todas as palavras possiveis foram criadas');
readkey;
close(ficheiro);
end;


Function menu:char;
var
opc:char;
begin
     clrscr;
     writeln('1 - Inserir letras');
     writeln('2 - Criar todas as combinacoes possiveis');
     writeln('0 - Sair');
     Write('Opcao pretendida: '); readln(opc);
     menu:=opc;
end;


begin
assign(ficheiro,'palavras.txt');
{$I-}
reset(ficheiro);
{$I+}
if IOResult<>0 then
   begin
   rewrite(ficheiro);
   end;
erase(ficheiro);
rewrite(ficheiro);
repeat
     op:=menu;
     case op of
     '1': inserir;
     '2': criar;
     '3': ;
     end;
     until op='0';

end.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora