Câu 6:Cho đoạn chương trình:
Var a,b: integer;
Begin
Writeln(‘Nhap a va b: ’); readln(a, b); a:= sqr(b); b:=sqrt(a);
Writeln(‘Gia tri moi cua a= ’,a,‘ cua b= ’,b);
Readln; End.
Chạy chương trình trên giá trị của a và b sẽ:
A. a = b 2 , b : giữ nguyên; B. a : giữ nguyên, b = a 2 ;
C. a = b; D. Không tính được.
Những câu hỏi liên quan
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;
usescrt;
var A, B= integer;
Begin
clrscr;
writeln(‘Nhap so A: ’); readln(A);
writeln(‘Nhap so B: ‘); readln(A);
if A <> B then writeln(A,’ khac ‘,B) else writeln(B,’ = ‘,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.
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.
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
program chuong_trinh thiếu chấm phẩy
Sửa lại: program chuong_trinh;
Đúng 0
Bình luận (0)
Câu 2. Hãy liệt kê các lỗi nếu có trong chương trình dưới đây và sửa lại cho đúng.
program tinh tong ;
uses crt ;
var a, b, tong := integer ;
begin
clrscr ;
writeln ( ‘ Nhap so a = ’ );
readln (a) ;
writeln ( ‘ Nhap so b = ’ ) ;
readln (b) ;
tong = a + b ;
writeln ( ‘ Tong cua hai so a va b la: ’ , tong ) ;
readln ;
end
Tên chương trình: có dấu cách, sửa: tinh_tong;
Khai báo biến sai cấu trúc, sửa : thay := thành :
Lệnh gán biến tong sai, sửa : tong:=a+b;
End thiếu chấm, sửa : end.
Đúng 0
Bình luận (0)
- program: có dấu cách
sửa: program tinh_tong;
- var: a, b, tong là các số khai báo kiểu nên không được dùng dấu gán
sửa: var a, b, tong : integer;
- phần begin: sai phần "tong = a+b", tổng phải được gán giá trị
sửa: tong := a+b;
- kết thúc chương trình: end viết thiếu
sửa: end.
Đúng 0
Bình luận (0)
Sửa lỗi sai và viết lại thành một chương trình hoàn chỉnh
program Tich;
uses crt;
var a:b,Tich; integer;
begin
clrscr;
Write('nhap a='); readln(a)
Write('nhap b='); readln(b);
Tich:a*b
Writeln('tich cua a va b la:, Tich: 8:20);
Readln;
end;
nhap a,b gop lam 1 dc nhe
program Tich;
uses crt;
var a:b,Tich; integer;
begin
clrscr;
Write('nhap a va b='); readln(a,b);
Tich:a*b;
Writeln('tich cua a va b la:', Tich:1:0);
Readln;
end.
Đúng 0
Bình luận (0)
program Tich;
uses crt;
var a,b,Tich : integer;
begin
clrscr;
Write('Nhap a ='); readln(a);
Write('Nhap b='); readln(b);
Tich := a*b;
Writeln('Tich cua a va b la: ',Tich:8:20);
Readln;
end.
Đúng 0
Bình luận (0)
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.
đoạn chương trình sau có mấy chỗ sai
Const c:= 3;
Var a, b:= integer;
Begin
Readln(a)
…….b= a/c;
…….Writeln(b);
Readln;
End
giúp em với
hãy cho biết chương trình pascal sau đây có đúng hay không ?vì sao?a) Program Hieu_hai_so; Begin Writeln(‘Hay nhap hai so’); Readln(a,b); Write(‘Hieu cua hai so la:‘,a-b); Var a,b: Integer; Endb) Program Tong_hai_so; Begin Writeln(‘Hay nhap hai so’); Readln(a,b); Write(‘Tong cua hai so la:‘,a-b); Var a,b: In...
Đọc tiếp
hãy cho biết chương trình pascal sau đây có đúng hay không ?vì sao?
a) Program Hieu_hai_so;
Begin
Writeln(‘Hay nhap hai so’);
Readln(a,b);
Write(‘Hieu cua hai so la:‘,a-b);
Var a,b: Integer;
End
b) Program Tong_hai_so;
Begin
Writeln(‘Hay nhap hai so’);
Readln(a,b);
Write(‘Tong cua hai so la:‘,a-b);
Var a,b: Integer;
End
t hong bt cái này ă, mà chỗ m lớp 8 đc hc tin học vui quá ha, t ko bt ba cái vụ này lun:<
Đúng 0
Bình luận (1)
Cho chương trình sau :( Tính chu vi và diện tích tam giác biết 3 cạnh a,b,c với chiều cao h ứng với cạnh a nhập từ bàn phím )Uses crt;Var a,b,c,h,chuvi,dientich : integer;Beginclrscr;Writeln(Nhap canh a ); Readln(a);Writeln(Nhap canh b ); Readln(b);Writeln(Nhap canh c ); Readln(c);chuvi : a+b+c;dientich : a*h/2Writeln(Chu vi hinh tam giac la , chuvi);Write(Dien tich hinh tam giac la , dientich);Readln;End.Giải thích lý do vì sao chương trình không chạy được.
Đọc tiếp
Cho chương trình sau :
( Tính chu vi và diện tích tam giác biết 3 cạnh a,b,c với chiều cao h ứng với cạnh a nhập từ bàn phím )
Uses crt;
Var a,b,c,h,chuvi,dientich : integer;
Begin
clrscr;
Writeln('Nhap canh a= '); Readln(a);
Writeln('Nhap canh b= '); Readln(b);
Writeln('Nhap canh c= '); Readln(c);
chuvi := a+b+c;
dientich := a*h/2
Writeln('Chu vi hinh tam giac la = ', chuvi);
Write('Dien tich hinh tam giac la = ', dientich);
Readln;
End.
Giải thích lý do vì sao chương trình không chạy được.
var a,b,c,P,S:real;
begin
write('nhap a: ');readln(a);
write('nhap b: ');readln(b);
write('nhap c: ');readln(c);
P:=a+b+c;
S:=a*a/2;
writeln('chu vi: ',P);
write('dien tich: ',S);
readln
end.
Vì là số đo cạnh tam giác nên bạn nên khai báo bằng kiểu dữ liệu real (số thực) thay vì integer (số nguyên).Phần giá trị biến S, vì a ứng với h nên \(\frac{ah}{2}=\frac{aa}{2}\)Xét tổng quan về nội dung cả hai chương trình này đều chưa đủ. Vì a=h => tam giác cần tìm diện tích và chu vi là tam giác vuông => phải thỏa mãn aa = bb + cc hoặc bb=aa+cc hoặc cc=aa+bb (định lí pitago)Nhưng trước hết, phải thỏa mãn bất đẳng thức tam giác: (dài lắm........ko viết đâu). Nếu bạn chưa học câu lệnh điều kiện thì chắc là 2 chương trình này đã đủ nội dung.
Đúng 0
Bình luận (1)
Xem thêm câu trả lời