Cho đoạn chương trình sau:
m:5;
for i:4 to 10m:=m+i;
Sau khi thực hiện xong đoạn chương trình trên giá trị biến m bằng bao nhiêu?
Sửa đề:
m:=5;
for i:=4 to 10 do m:=m+i;
Biến đếm i tăng lên 1 đơn vị bắt đầu từ giá trị đầu là 4 và kết thúc khi i=10.
Vậy giá của của m = 4 + 4 + 5 + 6 +7 + 8 + 9 + 10 = 53
Sửa đề:
m:=5;
for i:=4 to 10 do m:=m+i;
Biến đếm i tăng lên 1 đơn vị bắt đầu từ giá trị đầu là 4 và kết thúc khi i=10.
Vậy giá của của m = 5 + 4 + 5 + 6 +7 + 8 + 9 + 10 = 54
Viết chương trình nhập vào một mảng và in kết quả ra mảng vừa nhập ?
program NhapMang;
var
mang: array of integer;
n, i: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
setlength(mang, n);
writeln('Nhap cac phan tu cua mang:');
for i := 0 to n-1 do
begin
readln(mang[i]);
end;
writeln('Mang vua nhap la:');
for i := 0 to n-1 do
begin
write(mang[i], ' ');
end;
readln;
end.
program NhapMang;
const
MAXSIZE = 100;
var
a: array[1..MAXSIZE] of integer;
n, i: integer;
begin
write('Nhap so luong phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('a[', i, '] = ');
readln(a[i]);
end;
writeln('Mang vua nhap la:');
for i := 1 to n do
write(a[i], ' ');
end.
Chạy chương trình a:=6; b:=10 div 3; While (a>=b) do begin writeln('hello'); b:=7; end. thì từ hello xuất hiện bao nhiêu lần ?
A 1 lần
B 4 lần
C 2 lần
D 6 lần
VCT tính tổng các số ở vị tri lẻ của mảng
Var a:array:[1..1000] of integer;
i,n:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
If i mod 2 <> 0 then s:=s+a[i];
End;
Writeln('Tong la ',s);
Readln
End.
Hãy cho biết chương trình dưới đây sẽ thực hiện bao nhiêu vòng lặp khi thực hiện đoạn chương trình n:=16; T:=T -n; end; A.2 B.3 C.4 D.5
Nhập vào điểm khảo sát chất lượng cuối năm 2022-2023 của các bạn học sinh lớp 9 , trường THCS Diễn Thành . biết rằng , mỗi bạn học sinh đều tham gia khảo sát bà môn Toán , Văn và Anh . In ra màn hình tổng điểm thi , điểm thi Trung bình của mỗi học sinh khối 9 của trường năm đó
var i,n,s:integer;
t,v,a,tb:real;
begin
write('Nhap so luong hoc sinh ');readln(n);
for i:=1 to n do
begin
write('Nhap diem toan ');readln(t);
write('Nhap diem van ');readln(v);
write('Nhap diem anh ');readln(a);
s:=t+v+a;
tb:=s/3;
write('DTB cua ban thu ',i,' = ',tb:10:2);
s:=0;
end;
readln
end.
Cho thuật toán như sau:
Kí hiệu S là tổng cần tìm
Bước 1: S ¬ 0, n ¬ 0.
Bước 2: Nếu S≤1000, thì: n ¬ n+1; S ¬ S + n và quay lại bước 2.
Ngược lại, chuyển tới bước
Bước 3: In kết quả: n là số tự nhiên để tổng S nhỏ nhất sao cho S>1000. Kết thúc thuật toán.
? Em hãy dùng câu lệnh lặp While … do để viết chương trình thể hiện thuật toán trên
Mình đang cần gấp
Var n,s:integer;
Begin
n:=0;
s:=0;
While s<=1000 do
Begin
n:=n+1;
s:=s+n;
End;
Write('Tong la ',s);
Readln
End.
Viết chương trình tính:
- Tổng n số tự nhiên đầu tiên với n nhập từ bàn phím bằng câu lệnh với số lần lặp biết trước. (for… do).
- Tích các số từ 5 đến 30.
- Chu vi, diện tích hình chữ nhật, hình tròn, hình thang với các kích thước được nhập từ bàn phím.
Mình đang cần gấp
Tổng n số tự nhiên đầu tiên:
Var i,n,s:integer;
Begin
Write('n = ');
for i:=1 to n do
s:=s+i;
Write('Tong la ',s);
Readln
End.
Tích các số từ 5 đến 30
Var i,p:longint;
Begin
p:=1;
For i:=5 to 30 do
P:=p*i;
Write('Tich la ',p);
Readln
End.
Chu vi, diện tích hình chữ nhật:
var a,b,p,s:real;
begin
write('Chieu dai hcn = ');readln(a);
write('Chieu rong hcn = ');readln(b);
p:=(a+b)*2;
s:=a*b;
writeln('Chu vi hcn la ',p:10:2);
write('Dien tich hcn la ',s:10:2);
readln
end.
------------------------------------------------------------
Chu vi, diện tích hình tròn:
var r,c,s:real;
begin
write('Ban kinh = ');readln(r);
c:=2*3.14*r;
s:=3.14*r*r;
writeln('Chu vi hinh tron la ',c:10:2);
write('Dien tich hinh tron la ',s:10:2);
readln
end.
---------------------------------------------------
Chu vi, diện tích hình thang:
var dl,dn,cb1,cb2,h,p,s:real;
begin
write('Day lon = ');readln(dl);
write('Day be = ');readln(db);
write('Chieu cao = ');readln(h);
write('Canh ben thu nhat = ');readln(cb1);
write('Canh ben thu hai = ');readln(cb2);
p:=dl+db+cb1+cb2;
s:=(dl+db)*h/2;
writeln('Chu vi hinh thang la ',p:10:2);
write('Dien tich hinh thang la ',s:10:2);
readln
end.
Viết chương trình nhập vào 1 dãy số và kiểm tra số dương và tính tổng các số dương
kiểm tra số dương là sao em? em ghi cụ thể chính xác lại giùm!
Cách khai báo biến mảng sau đây trong Pascal đúng hay sai? Nếu sai hãy sửa lại cho đúng. B:=1; while B=1 do B:=B+5;
