Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
II: Tự luận
Bài 1:
uses crt;
var n,i,a,c,e:integer;
begin
clrscr;
write('nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+i;
writeln('A=',a);
if (n mod 2=0) and (n>=0) then
begin
c:=0;
for i:=2 to n do
if i mod 2=0 then c:=c+i;
writeln('C=',c);
end
else begin
e:=0;
for i:=1 to n do
if i mod 2=1 then e:=e+i;
writeln('E=',e);
end;
readln;
end.
Bài 2:
uses crt;
var n,i:integer;
gt:real;
begin
clrscr;
write('nhap n='); readln(n);
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(n,'!=',gt:0:0);
readln;
end.
Bài 3:
uses crt;
var x,n,i:integer;
lt:real;
begin
clrscr;
write('nhap co so x:'); readln(x);
write('nhap so mu n:'); readln(n);
lt:=1;
for i:=1 to n do
lt:=lt*x;
writeln(x,'^',n,'=',lt:0:0);
readln;
end.
Bài 4:
uses crt;
var a:array[1..100]of integer;
n,i,max,min:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('So lon nhat la: ',max);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('So nho nhat la: ',min);
readln;
end.
Câu 2.
Program HOC24;
var i,n: integer;
a: array[1..32000] of integer;
begin
write('Nhap so ban lam bai thi hoc ki tin : '); readln(n);
for i:=1 to n do
begin
write('Nhap diem kiem tra hoc ki Tin cua ban thu ',i,' :'); readln(a[i]);
end;
writeln(n);
for i:=1 to n do write(a[i],' ');
readln
end.
Câu 1.
* Cú pháp : while <điều kiện> do <câu lệnh>;
* Hoạt động :
- Bước 1: Kiểm tra điều kiện lặp:
+ Nếu điều kiện lặp sai thì thoát khỏi vòng lặp, chuyển sang lệnh tiếp theo.
+ Nếu điều kiện lặp đúng thì chuyển sang bước 2.
- Bước 2: Thực hiện khối các lệnh lặp.
- Bước 3: Quay lại bước 1.
n:=0;
for i:= 1 to 10 do n:=n+i;
Giải thích : n:=n+i nghĩa là giá trị ban đầu cộng lần lượt với i ( dãy số từ 1 đến 10) n sẽ thay đổi giá trị sau mỗi lần cộng
Hoạt động của câu lệnh :
Vòng 1 : n:=n+i; <=> n=0+1=1;
Vòng 2: n:=n+i <=> n=1+2=3 ;
Vòng 3 : n:=n+i <=> n=3+3=6;
Vòng 4: n:=n+i <=> n=6+4=10;
Vòng 5 : n:=n+i <=> n=10+5=15;
Vòng 6 : n:=n+i <=> n=15+6=21;
Vòng 7: n:=n+i <=> n=21+7=28;
Vòng 8 : n:=n+i <=> n=28+8=36;
Vòng 9 : n:=n+i <=> n=36+9=45;
Vòng 10 : n:=n+i <=> n=45+10=55;
Vậy đoạn chương trình trên có giá trị n=55
