New Nerd

Boa noite! Já tentou acrescentar #include <string.h> ??? Boa Sorte...

Esses cursos de youtube são bons, ao menos para começar, dá aprender bastante. Falando nisso tem esses aqui também: https://www.youtube.com/playlist?list=PL8eBmR3QtPL13Dkn5eEfmG9TmzPpTp0cV https://www.youtube.com/playlist?list=PL06F01D9BD7A4ADF3 Falou

Concordo que não é um livro para se ler do início ao fim e que é bem desatualizado, mas achei que para quem está começando seria útil. E por ser um livro antigo é fácil de achar para baixar e em português. Este livro já me ajudou, mas sim, tem coisas do tipo void main nele, mas dá aprender alguma coisa.

Boa Noite! Procure pelo livro Programando-Em-C--A-Biblia, é bem completo! Boa sorte!

Boa tarde! Após criar o segundo Form acrescente o nome da unit dentro da Uses do form principal, depois é só chamar a janela usando. Form2.Show; //Exibe o form. Form2.ShowModal; //Exibe o form exclusivamente, só é possível mexer nele até que seja fechado. Form2.Close; //Fecha a janela. Exemplo, Uses do form principal: uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, unit2; //unit2 pertencente ao segundo form. Espero que isto ajude! Flws

Olá Rogério! O negócio é o seguinte está faltando um end; e um end. no fim do código, coloquei abaixo o código corrigido. program Family;uses Crt; varsurvey,ne,op:integer;dig,p1,pe1,p2,pe2,p3,pe3,p4,pe4,p5,pe5:string;beginwriteln; writeln('digite 1 para começar ou esc para sair'); readln(op); case (op) of 1 : begin ClrScr; p1:= 'preto'; pe1:='1-XXXXXXXXX'; p2:= 'roxo'; pe2:='2-XXXXXXXXX'; p3:= 'laranja'; pe3:='3-XXXXXXXXX'; p4:= 'marrom'; pe4:='4-XXXXXXXXX'; p5:= 'amarelo'; pe5:='5-XXXXXXXXX'; writeln(' FAMILY FEUD'); writeln; writeln('Qual a pior cor para se pintar uma casa?'); writeln('/======================================/'); writeln(pe1); writeln(pe2); writeln(pe3); writeln(pe4); writeln(pe5); writeln('/======================================/'); write('Qual sua resposta: '); readln(dig); if(p1=dig) and (pe1 ='1-XXXXXXXXX') then begin pe1 :=p1; end else begin if(p2=dig) and (pe2 ='2-XXXXXXXXX') then begin pe2 :=p2; end else begin if(p3=dig) and (pe3 ='3-XXXXXXXXX') then begin pe3 :=p3; end else begin if(p4=dig) and (pe4 ='4-XXXXXXXXX') then begin pe4 :=p4; end else begin if(p5=dig) and (pe5 ='5-XXXXXXXXX') then begin pe5:=p5; end else begin ne:=ne+1; end; end; end; end; end; if(ne=1) then begin writeln('X'); end else begin if(ne=2) then begin writeln('XX'); end else begin if(ne>=3) then begin writeln('XXX'); writeln('OBRIGADO POR JOGAR FAMILY FEUD'); writeln('ATÈ A PRÓXIMA VEZ'); end; end; end; end; end; end. Falou cara, boa sorte!

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Math; //<< Acrescente Math ao Uses!type TForm1 = class(TForm) Button1: TButton; edtResultado: TEdit; Edtvalora: TEdit; edtvalorc: TEdit; Edt_b: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);varb,a,c,process:real;beginb:= strtofloat(Edt_b.Text);a:= strtofloat(EdtValora.Text);c:= strtofloat(EdtValorC.Text);process := Power(b,2)-4*a*c; //Use power(b,2) e não b^2EdtResultado.text:=floattostr(process);end;end. Fiz umas mudanças no código que devem ser suficientes para você prosseguir. Até + Boa Sorte!

Olá novamente! Faça assim: varA, B : AnsiString;beginA := 'P:';B := 'cmd.exe /c FORMAT ' + A;WinExec(PAnsiChar(, sw_normal);end; Pode parecer estranho mas tentei outras formas e não obtive sucesso, do jeito que está funcionou legal aqui. Agora basta alterar a variável A... Até mais...

Oi, Acredito que a forma mais fácil será passando comandos para o CMD usando o Delphi. Exemplo: WinExec('cmd.exe /c FORMAT E:', SW_SHOW); Para ver os parâmetros e opções do comando FORMAT do CMD digite no CMD FORMAT/? são variadas as opções e usos. Falou boa sorte!

Oi, tudo bem? O que você quer fazer é bem complicado e ainda mais para quem esta começando a aprender, talvez o mais fácil a se fazer por enquanto é pegar o resultado do outro programa. Boa Sorte!