Bài tập turbo pascal

Program Tam_giac_can; uses crt; var a,b,c: real; begin Assign(f,’bai2_5.inp’); reset(f); Assign(g,’bai2_5.out’); rewrite(g); readln(f,a); readln(f,b); readln(f,c); if (a = b) or (b = c) or (a = c) then writeln('La tam giac can') else writeln(g,'Khong phai la tam giac can'); close(f); close(g); end.

Viết chương trình xét xem một tam giác có là tam giác vuông hay không khi biết ba cạnh của tam giác.

• 
  Nhập ba cạnh của tam giác vào ba biến a,b,c.
  
• 
  Nếu a² = b² + c² hoặc b² = c² + a² hoặc c² = a²+b² thì tam giác là tam giác vuông và ngược lại tam giác không là tam giác vuông.
  

var f,g: text; a,b,c: real; begin Assign(f,’bai2_6.inp’); reset(f); Assign(g,’bai2_6.out’); rewrite(g); readln(f,a); readln(f,b); readln(f,c); if (a*a = b*b+c*c) or (b*b = c*c+a*a) or (c*c= a*a+b*b) then writeln(g,'La tam giac vuong') Else writeln(g,'Khong phai la tam giac vuong'); Close(f); close(g); end.

Viết chương trình giải phương trình ax + b = 0 (Các hệ số a, b được nhập từ file).

• 
  Nếu a  0 thì phương trình có nghiệm x =
  
• 
  Nếu a = 0 và b = 0 thì phương trình có vô số nghiệm
  
• 
  Nếu a = 0 và b  0 thì phương trình vô nghiệm
  

Hoặc:

• 
  Nếu a = 0 thì xét b. Nếu b = 0 thì phương trình có vô số nghiệm ngược lại (b 0) thì phương trình vô nghiệm ngược lại (a 0) phương trình có nghiệm x = .
  

1. 
   Mã chương trình:
   

var f,g: text; a,b:real; begin Assign(f,’bai2_7.inp’); reset(f); Assign(g,’bai2_7.out’); rewrite(g); readln(f,a); readln(f,b); if (a<>0) then writeln(g,'phuong trinh',a:10:2,'x+ ',b:10:2,'= 0',' co nghiem x =;',-b/a:10:2); if (a=0) and (b=0) then writeln(g,'Phuong trinh co vo so nghiem'); if (a=0) and (b<>0) then writeln(g,'Phuong trinh vo nghiem'); close(f); close(g); end.

Hoặc:

var f,g: text; a,b: real; begin Assign(f,’bai2_7c2.inp’); reset(f); Assign(g,’bai2_7c2.out’); rewrite(g); readln(f,a); readln(f,b); if (a<>0) then writeln(g,'phuong trinh',a:10:2,'x + ',b:10:2,'= 0',' co nghiem x =;',-b/a:10:2) else if (b=0) then writeln(g,'Phuong trinh co vo so nghiem') else writeln(g,'Phuong trinh vo nghiem'); close(f); close(g); end.