Cho dãy số nguyên a1,a2,...an gồm n phần tử (n<=300) a, Khai báo và đoạn chương trình để nhập số lượng phần tửN các giá trị cho dãy a1,a2,..an?
b,Đếm các phần tử là bội của 3 trong dãy và đưa ra màn hình?
kiểm tra xem dãy trên có phải là cấp số cộng không?
uses crt;
var a:array[1..300]of integer;
i,n,dem,kt,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
t:=abs(a[2]-a[1]);
kt:=0;
for i:=1 to n do
if t<>abs(a[i]-a[i-1]) then
begin
kt:=1;
break;
end;
if kt=0 then writeln('Day la cap so cong')
else writeln('Day khong la cap so cong');
readln;
end.
Câu 1: Tìm và sửa lỗi(nếu có) trong đoạn chương trình sau:
Var a, b: real
Begin
Clrscr;
Write(‘nhap a=’), read(a);
Write(‘nhap b=’); read(b);
If (a+b) := 120 then a =120-b;
Readln
End;
Câu 2: Cho biết kết quả của biến s sau đoạn chương trình sau:
a:=5;
s:=58;
If s>=70 then s:=s+2 else s:=s+a;
câu 1:
Var a, b: real;
Begin
Clrscr;
Write(‘nhap a=’), read(a);
Write(‘nhap b=’); read(b);
If a+b = 120 then a:=120-b;
Readln
End.
câu 2:
s = 63
Giả sử trong các ô A1, B1 lần lượt chứa các số -4,3. Em hãy cho biết kết quả các công thức tính sau:
a) =SUM(A1, B1); b) =SUM(A1,B1,B1); c) =SUM(A1,B1,-5);b) =SUM(A1, B1, 2); e) =AVERAGE(A1,B1,4); f) =AVERAGE(A1,B1,5,0);
Theo giả thiết: A1 = -4; B1 = 3, ta có:
a) = A1+ B1 = -1;
b) = A1+ B1+ B1 =2;
c) = A1+ B1+ (-5) = -6;
d) = A1+ B1+ 2 = 1;
e) = (A1+ B1+ 4)/3 = 1;
f) = (A1+B1+ 5+0)/4 = 1;
Thế thui nha :)?
Câu 1 : Viết chương trình nhập vào 1 số nguyên dương c từ bàn phím. Hãy viết chương trình pascal xác định số a chia hết cho 2 hay không? In kết quả ra màn hình.
Câu 2: Viết chương trình lập 3 số nguyên a,b,c từ bàn phím. Em hãy viết chương trình pascal tính tổng 3 số trên. In kết quả ra màn hình.
Câu 3: viết chương trình pascal nhập 3 số nguyên từ bàn phím. Em hãy viết chương trình pascal kiểm tra xem số vừa nhập là chẵn hay lẻ và in kết quả ra màn hình.
Câu 1:
Var a:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
If (a mod 2)=0 then writeln(a,'chia het cho 2') else (a,' khong chia het cho 2');
Readln;
End.
Câu 2:
Var S,a,b,c:Integer;
Begin
Writeln('Nhap a: '); readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
S:=a+b+c;
Writeln('Tong cua ba so la: ',S);
Readln;
End.
Câu 3:
Var a,b,c:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
If (a mod 2)=0 then writeln(a,' la so chan') else (a,' la so le');
If (b mod 2)=0 then writeln(b,' la so chan') else (b,' la so le');
If (c mod 2)=0 then writeln(c,' la so chan') else (c,' la so le');
Readln;
End.
giúp mình với
câu 1
cho biết dấu * được in ra màn hình mây lân qua dòng lệnh sau
for i := 3 to 9 do writeln(*)
câu 2
2 số a và b được gọi là ước cuả nhau khi a chia hết cho b ( hoặc b chia hết cho a ) viết chương trình nhập 2 số nguyên a và b cho biết chúng có là ước của nhau hay không
Câu 1:
Số lần dấu '*' được in ra màn hình là:
(9-3)+1=6+1=7(lần)
Vậy: 7 là số lần dấu '*' được in ra màn hình
Câu 2:
uses crt;
var a,b,kt:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
kt:=0;
if a mod b=0 then kt:=1;
if b mod a=0 then kt:=1;
if kt=0 then writeln(a,' va ',b,' khong la uoc cua nhau')
else writeln(a,' va ',b,' la uoc cua nhau');
readln;
end.
Copy nó phải khác hihi!!!
≠Khác:
Câu 1: Số lần dấu '*' được in ra màn hình là:
(9-3)+1=6+1=7(lần)
Vậy: 7 là số lần dấu '*' được in ra màn hình
Câu 2:
uses crt;
var a,b,kt:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
kt:=0;
if a mod b=0 then kt:=1;
if b mod a=0 then kt:=1;
if kt=0 then writeln(a,' va ',b,' khong la uoc cua nhau')
else writeln(a,' va ',b,' la uoc cua nhau');
readln;
end.
Câu 1: Viết chương trình tính CV, S hình vuông có cạnh a được nhập từ bàn phím bằng ngôn ngữ lập trình Pascal
Câu2: Viết chương trình tính tổng 2 số nguyên dương nhập từ bàn phím
Câu 3: Viết chương trình tính S của tam giác với độ dài 1 cạnh a và chiều cao tương ứng ( a,h là các số tự nhiên được nhập từ bàn phím)
Mọi người giúp mk vs, mai mk ktra r. Cảm ơn trc ạ ^^
uses crt;
var
a,b: integer;
begin
clrscr;
write('Nhap so thu nhat: ');readln(a);
write('Nhap so thu hai: ');readln(b);
writeln('Tong ',a,' va ',b,' la: ',a+b);
readln
end.
Câu 1:
Var
cv,s,a:integer;
begin
write('nhap vao canh hinh vuong:');readln(a);
s:=a*a;
cv:=a*4;
Writeln('chu vi hinh vuong la:',cv);
WRiteln('dien tich hinh vuong la:',s);
readln
end.
câu 3:
Var
s,h,a:integer;
begin
write('nhap vao canh hinh vuong:');readln(a);
write('nhap vao chieu cao tuong ung:');readln(h);
s:=(a*h) mod 2;
WRiteln('dien tich hinh vuong la:',s);
readln
end.
Giả sử trong các ô A1, B1,C1 lần lượt chứa các số 15,10 và 5. Khi nhập hàm =AVERAGE(A1,B1,C1) ta được kết quả là:
A,10 B,9 C,11 D,7
Giả sử trong các ô A1, B1,C1 lần lượt chứa các số 15,10 và 5. Khi nhập hàm =AVERAGE(A1,B1,C1) ta được kết quả là:
A,10 B,9 C,11 D,7
Viết chương trình nhập vào 1 dãy số từ a1, a2, …, an. In dãy số vừa nhập ra màn hình theo nguyên tắc 1 dòng gồm 10 phần tử, dòng cuối có thể có ít hơn 10 phần tử.
Để giải quyết bài toán này, chúng ta cần nhập vào một dãy số và in ra dãy số đó theo nguyên tắc 1 dòng gồm 10 phần tử, dòng cuối có thể có ít hơn 10 phần tử. Sau đây là mã nguồn Python để thực hiện việc này:
```python
n = int(input("Nhập số phần tử của dãy: "))
a = []
for i in range(n):
a.append(int(input("Nhập phần tử thứ {}: ".format(i+1))))
count = 0
for i in range(n):
print(a[i], end=" ")
count += 1
if count == 10:
print()
count = 0
if count != 0:
print()
```
Giải thích:
Dòng 1: Nhập số phần tử của dãy.Dòng 2: Khởi tạo một danh sách rỗng để lưu trữ các phần tử của dãy.Dòng 4-5: Sử dụng vòng lặp for để nhập các phần tử của dãy từ bàn phím và thêm chúng vào danh sách a.Dòng 7: Khởi tạo biến count với giá trị ban đầu là 0, biến này sẽ được sử dụng để đếm số phần tử đã in ra trên mỗi dòng.Dòng 9-13: Sử dụng vòng lặp for để duyệt qua các phần tử của dãy a, in ra từng phần tử và tăng biến count lên 1. Nếu count đạt giá trị 10, in ra ký tự xuống dòng và reset lại biến count về 0.Dòng 15-16: Kiểm tra xem dòng cuối cùng có đủ 10 phần tử hay không, nếu không thì in ra ký tự xuống dòng để kết thúc dòng cuối cùng.Ví dụ:
```
Nhập số phần tử của dãy: 15
Nhập phần tử thứ 1: 1
Nhập phần tử thứ 2: 2
Nhập phần tử thứ 3: 3
Nhập phần tử thứ 4: 4
Nhập phần tử thứ 5: 5
Nhập phần tử thứ 6: 6
Nhập phần tử thứ 7: 7
Nhập phần tử thứ 8: 8
Nhập phần tử thứ 9: 9
Nhập phần tử thứ 10: 10
Nhập phần tử thứ 11: 11
Nhập phần tử thứ 12: 12
```
Viết chương trình nhập vào 1 dãy số từ a1, a2, …, an. Thông báo ra màn hình số nhỏ nhất trong dãy số
Để giải quyết bài toán này, chúng ta cần nhập vào một dãy số và tìm số nhỏ nhất trong dãy đó. Sau đây là mã nguồn Python để thực hiện việc này:
```python
n = int(input("Nhập số phần tử của dãy: "))
a = []
for i in range(n):
a.append(int(input("Nhập phần tử thứ {}: ".format(i+1))))
min_num = a[0]
for i in range(1, n):
if a[i] < min_num:
min_num = a[i]
print("Số nhỏ nhất trong dãy là:", min_num)
```
Giải thích:
Dòng 1: Nhập số phần tử của dãy.Dòng 2: Khởi tạo một danh sách rỗng để lưu trữ các phần tử của dãy.Dòng 4-5: Sử dụng vòng lặp for để nhập các phần tử của dãy từ bàn phím và thêm chúng vào danh sách a.Dòng 7: Khởi tạo biến min_num với giá trị là phần tử đầu tiên của dãy a.Dòng 9-12: Sử dụng vòng lặp for để duyệt qua các phần tử của dãy a, so sánh chúng với giá trị hiện tại của biến min_num và cập nhật giá trị của min_num nếu phần tử đang xét nhỏ hơn giá trị hiện tại của min_num.Dòng 14: In ra số nhỏ nhất trong dãy.Ví dụ:
```
Nhập số phần tử của dãy: 5
Nhập phần tử thứ 1: 3
Nhập phần tử thứ 2: 6
Nhập phần tử thứ 3: 2
Nhập phần tử thứ 4: 8
Nhập phần tử thứ 5: 1
Số nhỏ nhất trong dãy là: 1
```
Program HOC24;
var i,n,min: integer;
a: array[1..1000] of integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=2 to n do if a[i]<min then min:=a[i];
write('So nho nhat la: ',min);
readln
end.
Câu 1: Viết chương trình nhập vào một sô nguyên dương y từ bàn phím. Hãy viết chương trình pascal số y có chia hết cho 5 hay không và in kết quả ra màn hình.
Câu 2: Viết chương trình nhập vào 3 số thực m,n,h. Hãy viết trương trình pascal tìm điểm lớn nhất trong 3 số đó và in kết quả ra màn hình.
Câu 3: Viết chương trình nhập vào 2 số nguyên x,y từ bàn phím. Em hãy viết chương trình pascal sắp xếp 2 biến trên theo giá trị tăng dần và in ra màn hình kết quả đã sắp xếp.
1)Program songuyenduong;
Uses crt;
Var y: integer;
Begin
clrscr;
writeln('nhap so y'); readln(y);
if (y mode 5)=0 then writeln(y,'chia het cho 5')else write(y,' khong chia het cho 5');
readln;
End.
2)
Program solonnhat;
uses crt;
var m,n,h,max: real;
Begin
clrscr;
writeln('nhap so m'); readln(m);
writeln('nhap so n'); readln(n);
writeln('nhap so h'); readln(h);
max:=m;
if m < n then max:=n;
if max < h then max=h then write('so lon nhat',max);
readln;
End.
3)
Progam sapxep;
uses crt;
var x,y: integer;
begin
clrscr;
write('nhap so x'); readln(x);
write('nhap so y'); readln(y);
if x<y then write(x,' ',y);
if x>y then write(y,' ',x) else write(x,' ',y);
end.
