Các câu hỏi tương tự
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.
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.
Program so_ sanh uses crt var A:B= integer; Begin clrscr; writeln ('Nhap 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
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
mọi người giúp mình
Sửa lỗi chương trình sau
Program bang_cuu_chuong
Uses crt;
Var N: read;
i: integer;
Begin
clrscr;
write('Nhap so N=');readln(N);
writeln;
writeln('Bang nhan ',N)
writeln;
for i:=1 to 10 do
writeln(N,' x ',i:2,' = ',N')
readln
end.
2.Cho biết ý nghĩa các câu lệnh trong chương trình sau:
Progam HINH_VUONG;
uses crt;
Var canh:real;
Begin
clrssr;
Write(‘nhap do dai canh:’);readln(canh);
Writeln(‘Chu vi hinh vuong la:’,4*canh:10:2);
Writeln(‘Dien tich hinh vuong la:’canh*canh:10:2);
readln
end.
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.