New Nerd

Olha aí fiz um exemplo pra você, ainda deve ter algo a fazer com a informação "peso"...
Com certeza a muitas maneiras de fazer o exercício, meu código ficou simples mas com certeza a maneiras melhores de escreve-lo.
 
Dica: é uma boa prática de programação iniciar as variáveis declaradas, mesmo que com valor nulo.
 
Obs: deixei a média do grupo para você resolver.
#include <stdio.h> #include <stdlib.h> #include <locale.h> int main () { setlocale(LC_ALL, "Portuguese"); int f = 0, sexo = 0, masculino = 0, feminino = 0; float altura = 0.0f, peso = 0.0f, alturaF = 0.0f, alturaM = 0.0f, pesoF = 0.0f; float menor = 100.0f, maior = 0.0f; for (int i=0; i < 4; i++) { printf("1. Masculino\n2. Feminino\n"); scanf("%d",&sexo); printf("Digite a sua altura: "); scanf("%f",&altura); printf("Digite o seu peso: "); scanf("%f",&peso); if (altura <= menor) menor = altura; if (altura >= maior) maior = altura; if (sexo==1) { masculino++; alturaM += altura; } else { feminino++; alturaF += altura; } } printf("A maior altura é: %f\n", maior); printf("A menor altura é: %f\n\n", menor); printf("A média de altura das mulheres é: %f\n\n", alturaF / feminino); printf("A média de altura dos homens é: %f\n\n", alturaM / masculino); printf("O número de pessoas do sexo masculino é: %d\n",masculino); printf("O número de pessoas do sexo femino é: %d\n", feminino); return 0; } Bons estudos!
adicionado 1 minuto depois Mais uma coisa, ficou configurado para 4 pessoas, só aumentar lá no loop.

É uma placa de drive de DVD de XBOX. É como disse o @Elder Nauvirth; é possível que sejam placas destravadas para serem instaladas (substituindo a original) em aparelhos que se deseja destravar, ou podem ser peças de reposição genuínas também (improvável).

O código que havia feito inicialmente acabei apagando e infelizmente não terei como mostrá-lo.
Por fim o que fiz foi passar a utilizar o mikroC, refiz o código do zero e setei adequadamente através do Edit Project do mikroC a opção para oscilador interno, também desabilitei o master clear só pra garantir e setei a opção de frequência pra 4Mhz...
O código (pisca led) que funcionou:
void main() { TRISB = 0; PORTB = 0; while(1) { PORTB = 0x01; delay_ms(300); PORTB = 0x0; delay_ms(300); } } Depois de compilar testei no Proteus, estava OK então gravei o PIC e fiz o teste com a montagem mais simples possível, liguei o 5V em VDD e VSS, coloquei um capacitor cerâmico de 100nF entre VDD e VSS, liguei um resistor de 220R de RB0 até o LED e o LED no GND, aí funcionou perfeitamente e sem sacanagem.

Veja este manual da UNIPOWER:
https://www.robocore.net/upload/ManualTecnicoBateriaUnipower.pdf
 
Tem muita informação útil ai, vai tirar suas dúvidas e te ensinar a cuidar das suas baterias adequadamente.
 

Parece que você esqueceu de ligar R2 com R3 no Proteus.
 

Achei e anexei o Datasheet que precisa aqui.
Espero que resolva, boa sorte!
 
BT137S-800G.pdf

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...