Cho đoạn chương trình sau :
Var a,b : integer;
Begin
a :=5;
if a>8 then b :=3
else b :=5;
end.
Em hãy cho biết giá trị khi a nhận giá trị là 5 thì b nhận giá trị là mấy
đ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
Cho đoạn chương trình sau, hãy cho biết có bao nhiêu chữ 'A' được in ra màn hình? Giải thích? Var i: integer; Begin i:=5; While i
Chương trình thiếu cậu ơi, thêm vào ạ
Xét chương trình sau:
Var a: integer;
Begin
a:=1;
a:= a+10;
Writeln(a);
Readln;
End.
Kết quả của chương trình trên là:
A. 11
B. 100
C.10
D. Tất cả đều sai.
Xét chương trình sau:
Var a: integer;
Begin
a:=5;
a:= a+10;
Writeln(a);
Readln;
End.
Kết quả của chương trình trên là:
A. 15
B. 10
C.5
D. Tất cả đều sai.
Xét chương trình sau:
Var a: integer;
Begin
a:=10;
a:= a+1;
Writeln(a);
Readln;
End.
Kết quả của chương trình trên là:
A. 100
B. 11
C.10
D. Tất cả đều sai.
Xét chương trình sau:
Var a: integer;
Begin
a:=1;
a:= a+10;
Writeln(a);
Readln;
End.
Kết quả của chương trình trên là:
A. 11
B. 100
C.10
D. Tất cả đều sai.
Cho đoạn chương trình sau, hãy cho biết có bao nhiêu chữ 'A' được in ra màn hình? Giải thích?
Var i: integer;
Begin
i:=5;
while i<10 do
Begin
Writeln('A')
i:=i+1;
End;
Readln;
End.
Đoạn chương trình trên sẽ in ra màn hình chữ 'A' năm lần.
Lý do là vì chương trình bắt đầu bằng việc gán giá trị 5 cho biến i. Sau đó, vòng lặp while được sử dụng để kiểm tra điều kiện i < 10. Vì giá trị ban đầu của i là 5 và không có lệnh nào thay đổi giá trị của i trong phạm vi vòng lặp, nên điều kiện i < 10 vẫn đúng.
Trong thân vòng lặp, câu lệnh Writeln('A') được thực thi, in ra chữ 'A' trên màn hình. Tiếp theo, biến i được tăng lên 1 (i := i + 1). Sau đó, vòng lặp tiếp tục lặp lại và kiểm tra điều kiện. Quá trình này lặp lại cho đến khi giá trị của i đạt đến 10.
Vì vậy, trong quá trình thực thi chương trình, lệnh Writeln('A') được thực hiện 5 lần, và do đó sẽ in ra màn hình 5 chữ 'A'.
Có 2 bài, ai làm được bài nào giúp mình với ạ, tại đang cần gấp. Cảm ơn mọi người nhiều
Bài 1: Cho đoạn chương trình sau:
Program Vidu;
Var
A,B : text;
F : integer;
Begin
Assign ( A,'Songuyen.TXT');
Assign ( B,'Soam.TXT');
reset (A);
rewrite (B);
while not eof (A) do
begin
read ( A, x);
Ifx>= 0 then
Write ( ' can bac hai cua x la ,' sqrt ( X:5:2)
else write ( B,x);
end;
close (A); close (B);
End.
Xác định ý nghĩa của các lệnh và cho biết chương trình trên làm công việc gì?
Bài 2: Cho tệp SONGUYEN.INP gồm các số nguyên (mỗi số cách nhau bởi dấu cách và không kết thúc bởi ký tự xuống dòng). Hãy đọc dữ liệu từ tệp SONGUYEN.INP và ghi vào tệp SONGUYEN.OUT tổng các số nguyên chẵn.
Chương trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ cho các biến trong khai báo sau:
Var M, N, I: INTEGER;
P, A, B: REAL;
X: EXTENDED;
K: WORD;
A. 44;
B. 36;
C. 38;
D. 42.
Chương trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ cho các biến trong khai báo sau:
Var M, N, I, J: INTEGER;
P, A, B: REAL;
X: EXTENDED;
K:WORD;
A. 44
B. 36
C. 38
D. 42