Câu 1:các câu lệnh sau pascal có đúng không nếu không hãy sửa lại cho đúng:
a, for i:=1 to 10 do writeln (‘A’)
b, var X; array [5…10] of char;
c, X:=10; while X=10 do X:=X+5
d, for i=1.5 to 10.3 do writeln (‘A’);
Câu 2: viết chương trình tính tổng dãy n số nguyên
câu 1:
a) thiếu dấu ; ở cuối
sửa: for i:=1 to 10 do writeln (‘A’);
b) sau X ko phải có; mà có : từ 5.. 10 có 2 dấu chấm dư 1 dấu
sửa: var X: array [5..10] of char;
b) thiếu dấu ; ở cuối câu lệnh
sửa: X:=10; while X=10 do X:=X+5;
d) giá trị đầu và gia trị cuối của câu lệnh phải là só nguyên
sửa: for i:=1 to 10 do writeln(‘A’);
câu 2: thiếu đề á bạn ơi. mình giải theo số nguyên được nhập từ bàn phím nhe
program ct;
uses crt;
var i,n,s:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
s:=0;
for i:=1 to n do s:=s+A[i];
writeln(‘tong la:’,s);
readln
end.
a) for i:=1 to 10 do writeln (‘A’); (Thêm ; sau lệnh writeln)
b) var X: array [5..10] of char; (Sửa dấu ; thành : và 5..10 chỉ 2 dấu . thôi nhé)
C) X:=10; while X=10 do X:=X+5; ( Thêm ; sau 5)
d)for i:=1.5 to 10.3 do writeln (‘A’); (thêm : sau i)
Câu2: viết chương trình tính tổng dãy n số nguyên đầu tiên
uses crt;
var i,n,s: integer;
begin
clrscr;
writeln(‘Nhap n=’); readln(n);
for i:=1 to n do
s:=s+i;
writeln(‘Tong la:’,s);
readln;
end.
viết chương trình tính tổng dãy n số nguyên nhap tu ban phim
uese crt;
var a:array[1..100] of integer
i,n,s: integer
begin
writeln(‘Nhap so n=’); readln(n);
for i:=1 to n do begin
writeln(‘Nhap so nguyen thu’,i,’:’); readln(a[i]);
end;
for i:= 1to n do
s:=s+a[i];
writeln(‘tong la:’,s);
readln;
end.