| Autor |
Mensagem |
Energy
Veterano |
# abr/07 · Editado por: Energy
ae pessoal o programa abaixo a professora deu na aula, no turbo pascal ele constroi, mas quando mando executar aparece: "Error 200: division by zero."
Mas eu nao estou achando o problema
ai vai o programa:
program trocavalores;
uses crt;
var a,b,c,temp: integer;
begin
clrscr;
writeln('entre a, b, c');
readln(a,b,c);
begin
if (a>b) or (a>c) then
if (b>c) then
begin
temp:=a;
a:=c;
c:=temp;
end
else
begin
temp:=a;
a:=b;
b:=temp;
end;
end;
if (b>c) then
begin
temp:=b;
b:=c;
c:=temp;
end;
writeln('a= ', a, ' b= ', b, ' c=', c);
readln;
end.
|
Rock Charles
Veterano |
# abr/07
· votar
a professora deu na aula
que beleza, hein?
|
Energy
Veterano |
# abr/07
· votar
up
|
izzystradlin
Veterano |
# abr/07
· votar
Energy
Cara esse programa é pra trocar os valores mas naum entendi inteiro..
mas tem umas coisas erradas como você colcar os IF's errados e também se tu for trocar um valor vai ser assim (algoritmo)
X:=a
a:=b
b:=X
onde X é uma variável auxiliar...
|
Energy
Veterano |
# abr/07
· votar
Energy
Cara esse programa é pra trocar os valores mas naum entendi inteiro..
mas tem umas coisas erradas como você colcar os IF's errados e também se tu for trocar um valor vai ser assim (algoritmo)
X:=a
a:=b
b:=X
onde X é uma variável auxiliar...
eu fiz assim, é que seu X é meu temp
abraços
|
izzystradlin
Veterano |
# abr/07
· votar
Energy
if (a>b) or (a>c) then
if (b>c) then
não tem pq colocar 2 IF e vc esqueceu de fechar um deles no final...
begin
temp:=a;
a:=c;
c:=temp;
end
else
begin
temp:=a;
a:=b;
b:=temp;
end;
|
Energy
Veterano |
# abr/07 · Editado por: Energy
· votar
Energy
if (a>b) or (a>c) then
if (b>c) then
não tem pq colocar 2 IF e vc esqueceu de fechar um deles no final...
begin
temp:=a;
a:=c;
c:=temp;
end
else
begin
temp:=a;
a:=b;
b:=temp;
end;
cara, o algoritmo é esse
|
izzystradlin
Veterano |
# abr/07
· votar
pra mim seria assim
If (a>c) and (a>b) then
.......
else
If (b>c)....
End;
End
|
Energy
Veterano |
# abr/07 · Editado por: Energy
· votar
program trocavalores;
uses crt;
var a,b,c,temp: integer;
begin
clrscr;
writeln('entre a, b, c');
readln(a,b,c);
begin
if (a>b) or (a>c) then
if (b>c) then
begin
temp:=a;
a:=c;
c:=temp;
end
else
begin
temp:=a;
a:=b;
b:=temp;
end;
end;
if (b>c) then
begin
temp:=b;
b:=c;
c:=temp;
end;
writeln('a= ', a, ' b= ', b, ' c=', c);
readln;
end.
tá dando o mesmo erro, eu to achando q é problema com o compilador
|
Energy
Veterano |
# abr/07
· votar
fiz o mesmo programa em c++ deu certinho
#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
int a,b,c,temp;
cout << "entre a, b, c" << endl;
cin >> a >> b >> c;
if ((a>b) || (a>c))
{
if (b>c)
{
temp=a;
a=c;
c=temp;
}
else
{
temp=a;
a=b;
b=temp;
}
}
if (b>c)
{
temp=b;
b=c;
c=temp;
}
cout << "a= " << a << " b= " << b << " c=" << c << endl;
getch();
return 0;
}
|
Energy
Veterano |
# abr/07
· votar
ta com pau no compilador mesmo, vou reinstalar, fiz um programa x*x dá o mesmo erro.
valeu
|
izzystradlin
Veterano |
# abr/07
· votar
Energy
;)
|
Energy
Veterano |
# abr/07
· votar
dá erro qdo coloco "uses crt;", mas na facul funciona :(
|
izzystradlin
Veterano |
# abr/07
· votar
Energy
esse pascal aí é o branquinho aquele?
|
Energy
Veterano |
# abr/07
· votar
Energy
esse pascal aí é o branquinho aquele?
se eu entendi bem a pergunta não é , é um azul
abraços
|
izzystradlin
Veterano |
# abr/07
· votar
Energy
tenta usar Uses WINCRT;
mas acho que naum funciona
alguns compiladores do pascal não rodam em WINXP..
é o teu caso talvez...
qualquer coisa eu te mando o meu aqui que roda beleza..só avisar!
|
izzystradlin
Veterano |
# abr/07
· votar
esse Uses Wincrt eu uso no Pascal 1.5 para Windows...aí a biblioteca funciona...
|
CheshireCat
Veterano |
# abr/07
· votar
dá erro qdo coloco "uses crt;", mas na facul funciona :(
que erro?
coisa estranha, aqui em casa funciona direitinho uses crt no turbo pascal 7, e meu windows é xp O_o
que saudades da tela azul...
|
tncv
Veterano |
# abr/07
· votar
a professora deu na aula
OLHAAAAAAAAAAAAAAAAAAAAAAAAA!
|