Đây là chương trình tính chu vi và diện tích của hình vuông
Đúng 0
Bình luận (0)
Các câu hỏi tương tự
program Nguyen_Dang_Khoa; uses crt; var a,b,c:real; begin clrscr; writeln(KIEM TRA TAM GIAC); writeln(nhap 3 canh a,b,c:); readln(a,b,c); if (a+bc) and (a+cb) and (b+ca)then begin writeln(day la 3 canh cua tam giac); if(a*ab*b+c*c) or(b*ba*a+c*c)or(c*ca*a+b*b)then writeln(TAM GIAC VUONG)else if(ab)and(bc)then writeln(TAM GIAC DEU) else if(ab)or(ac)or(bc)then writeln(TAM GIAC CAN)else writeln(TAM GIAC THUONG); end else writeln(khong phai ba canh tam giac); readln; end.
Đọc tiếp
program Nguyen_Dang_Khoa; uses crt; var a,b,c:real; begin clrscr; writeln('KIEM TRA TAM GIAC'); writeln('nhap 3 canh a,b,c:'); readln(a,b,c); if (a+b>c) and (a+c>b) and (b+c>a)then begin writeln('day la 3 canh cua tam giac'); if(a*a=b*b+c*c) or(b*b=a*a+c*c)or(c*c=a*a+b*b)then writeln('TAM GIAC VUONG')else if(a=b)and(b=c)then writeln('TAM GIAC DEU') else if(a=b)or(a=c)or(b=c)then writeln('TAM GIAC CAN')else writeln('TAM GIAC THUONG'); end else writeln('khong phai ba canh tam giac'); readln; end.
Có một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
Program Soam Soduong;
uses crt
var A, B: integer;
Begin
clrscr;
writeln(Nhap so A: );
readln(A);
if A > 0 then writeln(A,’ la so duong ‘);
else writeln(A,‘ la so am ’);
readln;
End.
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
program So_Sanh
uses crt;
var A B: integer;
begin
clrscr;
writeln(‘Nhap so A: ’) readln(A);
writeln(‘Nhap so B, khac so A: ‘); readln(B);
if A :> B then writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);
readln;
end.
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
Program So_Sanh;
uses crt
var A: B= integer;
Begin
clrscr;
writeln(‘Nhap so A: ’);
readln(B);
writeln(‘Nhap so B, khac so A: ‘);
readln(B);
if A > B then; writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);
readln;
End.
Tìm lỗi sai trong các câu lệnh sau và chữa lại cho đúng ( viết lại chương trình đúng )
Var cv, dt : integer
r : real;
Const pi = 3.14;
Begin
r = 5.5;
dt := pi*r*r;
writeln(‘Dien tich hinh tron la:,dt:8:2’);
readln
End.
Cho chương trình sauProgram KTGKI;Uses crt;Var dt, bankinh: read;Const pi=3,14;BeginClrscr;bankinh:=4,5; dt:=bankinh*bankinh*pi;Writeln(‘ Dien tich hinh tron ban kinh 4,5 la:’,dt:4:1);
Readln;End.a)(1.0 đ) Phần khai báo biến người lập trình đã sai về khai báogì ?Em sửa lại cho đúng.b)(2.0đ) Chỉ ra tên do người lập trình đặt ra trong chương trình trên
Cho chương trình sauProgram KTGKI;Uses crt;Var dt, bankinh: read;Const pi=3,14;BeginClrscr;bankinh:=4,5; dt:=bankinh*bankinh*pi;Writeln(‘ Dien tich hinh tron ban kinh 4,5 la:’,dt:4:1);
Readln;End.a)(1.0 đ) Phần khai báo biến người lập trình đã sai về khai báogì ?Em sửa lại cho đúng.b)(2.0đ) Chỉ ra tên do người lập trình đặt ra trong chương trình trên
uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).
Hãy tìm lỗi của chương trình và sửa lại cho đúng program Chuong_trinh uses crt; var a,b,c:=integer begin writeln('Nhap vao so a va b') readln(a,b) c:=a+b writeln('Ket qua :',c end