Turbo Pascal Aiuto per problema

[Shuyin]

Ciao ragazzi, a scuola abbiamo iniziato ad usare il turbo pascal e l'insegnante c'ha lasciato questo problema: Realizzare un programma capace di verificare se un triangolo è rettangolo. Ebbene, come si fa? Credo serva a qualcosa il teorema di pitagora, ma come lo applico? Inoltre la variabile per la verifica deve essere di tipo booleana? Se qualcuno è in grado di postare l'intero algoritmo gliene sarei eternamente grato. (

[WarriorXP]

Dipende cosa hai in input

[Mozart489]

Se in input hai due lati, usi pitagora. se in input hai un lato e un angolo, usi sin, cos, sin^-1 e cos^-1 per trovare gli altri lati

[CPT-JHON-MILLER]

program triang;
uses crt;
var c1,c2,i:integer;
begin
clrscr;
writeln('dammi il valore del cateto1 e del cateto2');
readln(c1,c2);
i:=sqrt(c1*c1+c2*c2);
if i>0 then
writeln('il triangolo è rettangolo')else;
writeln('il triangolo non è rettangolo');
readln;
end.

ti va bene??

[WarriorXP]

program triang;
uses crt;
var c1,c2,i:integer;
begin
clrscr;
writeln('dammi il valore del cateto1 e del cateto2');
readln(c1,c2);
i:=sqrt(c1*c1+c2*c2);
if i>0 then
writeln('il triangolo è rettangolo')else;
writeln('il triangolo non è rettangolo');
readln;
end.

ti va bene??

Veramente non funziona 'sto programma

[squall88]

Se non capite un cacchio di programmazione non postate messaggi stupidi!

[WarriorXP]

Mi sa che non hanno capito l'obiettivo del programma ._.
Comunque Shuyin se decidi di aprire una discussione, poi dovresti seguirla...

[Apocalisse]

Ciao ragazzi, a scuola abbiamo iniziato ad usare il turbo pascal e l'insegnante c'ha lasciato questo problema: Realizzare un programma capace di verificare se un triangolo è rettangolo. Ebbene, come si fa? Credo serva a qualcosa il teorema di pitagora, ma come lo applico? Inoltre la variabile per la verifica deve essere di tipo booleana? Se qualcuno è in grado di postare l'intero algoritmo gliene sarei eternamente grato. (

Ciao stavo pensando al tuo problema è mi è venuto in mente ke i triangoli devono avere come somma dei angoli 180° quindi pensando alla differenza il programma può venire più o meno così (NN ne sono propio convinto della esecuzione xke lo sto facendo al volo e a grosse linee, e poi sara un bel po ke nn uso pascal)

Codice:

Program triangolo;
var a1, a2, a3: real;
begin
writeln ('Scrivi il primo angolo');
readln (a1);
writeln ('Scrivi il secondo angolo');
readln (a2);
a3:= 180-a1-a2;
if a3=90 them writeln ('Il triangolo è rettangolo')
else writeln ('il triangolo non è rettangolo');
readln;
end.

Ciao, spero di averti dato una mano

[Lex]

Se si hanno i 3 lati come input basta fare if sqr(ipotenusa)=(sqr(cateto1)+sqr(cateto2) then writeln ('Il triangolo è rettangolo.');
Senza avere altre specifiche sul programma non posso essere più dettagliato.

[Apocalisse]

Se si hanno i 3 lati come input basta fare if sqr(ipotenusa)=(sqr(cateto1)+sqr(cateto2) then writeln ('Il triangolo è rettangolo.');
Senza avere altre specifiche sul programma non posso essere più dettagliato.

Hai ragione

[Shuyin]

Grazie ragazzi, sono riuscito a risolvere.

Effettivamente non era difficilissimo, ma l'inesperienza mi ha giocato un brutto tiro.