Ir ao conteúdo

Posts recomendados

Postado

esse algoritmo é pra você escrever algo dai ele inverte e aumenta a letra quando você o executa
 

uses
  SysUtils,Crt,Graph,console;

var
  p,p1 : string;
    i: integer;
  gd, gm, detect, Initgraph:Integer;
    s:String;
begin
   write ('Informe a palavra :');
    readln (p);
    p1 := '';

    for i := length(p) downto 1 do
        p1 := p1 + p;
  gd:=detect;
    s:='';
    Initgraph(gd,gm,s); o erro da nesta linha
  readkey; 

 

  • 2 meses depois...
Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!