Câu 1: các câu lệnh sau trong pascal có hợp lệ không nếu không hãy sửa lại cho hợp lệ
a, For i:=100 to 1 do writeln(‘A’);
b, For i:=1.5 to 10.5 do writeln(‘A’);
c, x:=10; while x:=10 do x:=x+5;
d, x:=10; while x=10 do x= x+5;
Câu 2: viết chương trình tính tổng 1+2+3+…+t với t là một số tùy ý cho người sử dụng viết vào
MÌNH CẦN GẤP Ạ MAI THI RỒI
câu 1:
a) không hợp lệ
sửa: for i:=1 to 100 do writeln(‘A’);
b) không hợp lệ
sửa: for i:=1 to 10 do writeln(‘A’);
c) không hợp lệ
sửa: x:=10;
while x=10 do x:=x+5;
d) không hợp lệ
sửa: x:=10;
while x=10 do x:=x+5;
câu 2:
program oken;
uses crt;
var s,i,t:longint;
begin
clrscr;
write(‘nhap so T: ‘); readln(t);
for i:=1 to t do
s:=s+i;
writeln(‘Tong cac so tu 1 den ‘,t,’: ‘,s);
readln;
end.
a) For i:=100 to 1 do writeln(‘A’);
=> Câu lệnh trên không hợp lệ vì giá trị đầu < giá trị cuối
=> For i:=1 to 100 do writeln(‘A’);
b) For i:= 1.5 to 10.5 do Writeln(‘A’);
=> Câu lệnh trên không hợp lệ vì giá trị đầu và giá trị cuối là số nguyên
=> For i:= 1 to 10 do Writeln(‘A’);
c) X:= 10; while X:= 10 do X:= X+5;
=> Câu lệnh trên hợp lệ
d) X:=10; while X=10 do X= X+5
=> Câu lệnh trên không hợp lệ
=> X:=10; while X: =10 do X:= X+5
Câu 2
Ta có hai hướng là dùng công thức và dùng lệnh For … do
1.Dùng công thức:
program Tinh;
uses crt;
var n,s: longint;
begin
clrscr; readln(n); s:=n*(n+1)/2;
writeln(‘Tong la : ‘,s);
readln
end.
2.Dùng lệnh For … do :
program Tinh;
uses crt;
var i,n: integer; s: longint;
begin
clrscr; readln(n); s:=0;
for i:=1 to n do s:=s+i;
writeln(‘Tong la : ‘,s); readln