Pr.wap

Não é questão de paciência é que eu não me propus a explicar mesmo, o link que indiquei tinha as informações necessárias. Segundo eu não quis rebaixar os estudantes e sim os professores. Um estudante errar é perfeitamente normal afinal ele esta aprendendo, agora um professor que esta ali para ensinar ai não dá, não concorda? O '\n' que fica no buffer não é um bug é normal o que não é lido deve continuar no buffer, não devemos distorcer os fatos. Quanto ao fflush os autores mesmo falam que o resultado quando usado com buffers de entrada é indefinido quem somos nós para discordar. Realmente utilizar o cin do C++ é o ideal quando se esta programando em C++. Não vale a pena discutir sobre isso, o importante é ajudar quando alguém tem duvidas e corrigir quando alguém erra.

Nem vou me dar ao trabalho de explicar porque não se deve utilizar fflush(stdin); isso é coisa de professores incompetentes que por ignorância ou, por falta de vergonha na cara e ensinam isso aos alunos. Se quiser saber o porque acessem este link.

Existe a versão Express que é gratuita, porem sem alguns recursos que para quem esta começando não são necessários e você pode comercializar seu software sem qualquer restrição. Você pode fazer o download aqui. E para o linux existe o mono então isso não é um problema.

1 km = 0.62 m 31 km * 0.62 m = 199.22 m

Esse ultimo erro é simples :P. if strtoint(floattostr(strtoint(Edit3.Text)-strtoint(Edit2.Text)))<=2147483647 then begin ProgressBar1.MinValue:=strtoint(Edit2.Text); // você esta setando primeiramente o valor minimo, que no momento é superior ao valor maximo que ainda não foi setado. ProgressBar1.MaxValue:=strtoint(Edit3.Text); end else begin while not strtoint(floattostr(strtoint(Edit3.Text)-strtoint(Edit2.Text)))<=2147483647 do begin Edit2.Text:=floattostr(strtoint(Edit2.Text)/100); Edit3.Text:=floattostr(strtoint(Edit3.Text)/100); end; end; --- if strtoint(floattostr(strtoint(Edit3.Text)-strtoint(Edit2.Text)))<=2147483647 then begin ProgressBar1.MaxValue:=strtoint(Edit3.Text); // é só setar o maximo primeiro ProgressBar1.MinValue:=strtoint(Edit2.Text); end else begin while not strtoint(floattostr(strtoint(Edit3.Text)-strtoint(Edit2.Text)))<=2147483647 do begin Edit2.Text:=floattostr(strtoint(Edit2.Text)/100); Edit3.Text:=floattostr(strtoint(Edit3.Text)/100); end; end;