1. Cho biết đoạn chương trình sau làm công việc gì?
Writeln('nhap so hoc sinh trong lop=');readln(x);
While(x<1) or (x>50) do
begin
write('nhap lai');readln(x);
end;
Những câu hỏi liên quan
Em hãy hoàn thành đoạn chương trình nhập chiều cao của N bạn trong lớp bằng cách sắp xếp các câu lệnh sau theo đúng thứ tự (1) readln(N); (2)write('nhap chieu cao cua tung ban tinh theo m'); (3)write('hay nhap so hoc sinh trong lop :'); (4)begin (5)end; (6)for i:=1 to N do (7)read (a[i]); (8)write (a'[',i,']=') Giúp tôi với
(2) write(‘hay nhap so hoc sinh trong lop :’);
(1) readln(N);
(3) write(‘nhap chieu cao cua tung ban tinh theo m’);
(6) for i:=1 to N do
(4) begin
(7) read (a[I]);
(8) write (a’[‘,i,’]=')
(5) end;
Đúng 0
Bình luận (0)
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(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.
Cho đoạn chương trình, tìm lỗi sai sửa lại cho đúng:
1) program : bai1;
var x,y:= interger;
x=7; n=2.68;
begin
writeln(nhap so x); realn(x);
writeln(nhap so y); realn(y);
if x mod 2 = 0 then y=y x ; else
y:=y n;
write (‘ket qua phep tinh la’ , y);
r...
Xem chi tiết
program bai1;
uses crt;
var x,y,n:integer;
begin
clrscr;
x:=7;
n:=2.68;
write('nhap so x:'); readln(x);
write('nhap so y:');readln(y);
if x mod 2 =0 then y:=y*x
else y:=y*n;
write('ket qua phep tinh la:', y);
readln
end.
Đúng 1
Bình luận (0)
program bai1;
uses crt;
var x,y,n:integer;
begin
clrscr;
x:=7;
n:=2.68;
write('nhap so x:'); readln(x);
write('nhap so y:');readln(y);
if x mod 2 =0 then y:=y*x
else y:=y*n;
write('ket qua phep tinh la:', y);
readln
end.
Đúng 1
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.
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)
Sửa lỗi cú pháp cho chương trình sau nếu có Program KT HK1 Const g:= 9.8; Var h, v:read; Begin Writeln('Nhap h=) Readln(N); V= sqrt(2*g* h); Writeln( V = ', v); End. b. Cho biết giá trị của v sau khi thực hiện chương trình đã sửa với h = 20.
Cho đoạn chương trình dưới đây. Hãy chỉ ra những lỗi sai và sửa lại cho đúng.
Program tinhtong.
Var N, i:=integer
Begin
Write(‘nhap so N =’)
Readln(N)
S=0
For i= 1 to N do S= S+i
Writeln(‘Tong cua ‘,N,’ so tu nhien dau tien S=’,S)
Readln
End
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)