Question

* Viết chương trình nhập chiều cao của 2 bạn in ra kết quả so sánh chiều cao 2 bạn đó.
* Viết chương trình kiểm tra 3 số a, b, c có phải 3 cạnh của tam giác hay không ( từ ''và'' trong Pascal ghi là ''and'')

Comments

ở bài thực hành 4 có bài 2 và bài 3 là bài này rồi SGK họ soạn ra chương trình luôn rồi mà bạn

 

Answer 1

* Viết chương trình nhập chiều cao của 2 bạn in ra kết quả so sánh chiều cao 2 bạn đó.

program aicaohon;

uses crt;

var Nhi, Tram:real;

begin

clrscr;

write('nhap chieu cao cua Nhi=');readln(Nhi);

write('nhap chieu cao cua Tram='); readln(Tram);

if Nhi>Tram then writeln('Ban Nhi cao hon');

if Tram>Nhi then writeln('Ban Tram cao hon')

else writeln('hai ban cao bang nhau');

readln

end.

* Viết chương trình kiểm tra 3 số a, b, c có phải 3 cạnh của tam giác hay không

program ktdodaitamgiac;

uses crt;

var a,b,c:real;

begin

clrscr;

write(' nhap gia tri cua a,b,c='); readln(a,b,c);

if (a+b>c) and (b+c>a) and (c+a>b) then

writeln('a,b va c la 3 canh cua mot tam giac!')

else writeln('a,b,c khong la 3 canh cua mot tam giac!');

readln

end.

 

Comments

chương trình có lỗi rồi

---

ngố ngây ngô

chỗ nào vậy? tui kt trên máy tính rồi mà đâu có lỗi gì đâu?

---

if Tram>Nhi then writrln('Ban Tram cao hon')

---

ngố ngây ngô writeln mà gõ nhầm để sửa lại

---

có dấu ; không?

---

ngố ngây ngô chỗ nào vậy?

 

---

chỗ đấy đấy kìa

---

không có (;) nhé! vì ở sau có else nữa

Answer 2

* Viết chương trình kiểm tra 3 số a, b, c có phải 3 cạnh của tam giác hay không ( từ ''và'' trong Pascal ghi là ''and'')

 

uses crt; 
var a,b,c: real;
begin
 clrscr; 
 write('Nhap 3 so a, b, c: ');readln(a,b,c);
 if (a+b>c)and(a+c>b)and(b+c>a) then
 begin
  write('3 canh vua nhap la tam giac');
  if (a=b)or(b=c)or(a=c) then
  begin
   if(a=b)and(b=c) then
    write(' deu')
   else
    write(' can');
  end;
  if (a*a=b*b+c*c)or(b*b=a*a+c*c)or(c*c=a*a+b*b) then
   write(' vuong');
 end
 else
  write('3 canh vua nhap ko phai la tam giac');
 readln;
end.