Cho dãy số {an} như sau: a1 = 3 ; an=an-1+3n2+5 với n∈N và n > 1.
a) Tính a5 ;a6 ;a7 ;a8
b) Lập quy trình bấm phím liên tục tính an ( ghi rõ sử dụng loại máy tính nào?)
c) Tính a2012;a2013
Trình bày rõ cách giải cách bấm máy luôn nhá
a)
Input: Dãy n số nguyên
Output: Đếm xem trong dãy đó có bao nhiêu số nguyên dương
b)
Bước 1: Nhập n và nhập dãy số
Bước 2: dem←0; i←1;
Bước 3: Nếu a[i]>0 thì dem←dem+1;
Bước 4: i←i+1;
Bước 5: Nếu i<=n thì quay lại bước 3
Bước 6: Xuất dem
Bước 7: Kết thúc
Input: Số nguyên N và dãy a1,a2,...,aN
Output: Số số nguyên có trong dãy
Thuật toán:
- Bước 1: Nhập N và dãy a1,a2,...,aN
- Bước 2: d←0; i←1;
- Bước 3: Nếu i>N thì in ra có d số dương trong dãy và kết thúc
- Bước 4: Nếu ai > 0 thì d←d+1;
- Bước 5: i←i+1, quay lại bước 3
Cho dãy số a1, a2,a3,......, an xác định như sau : an = 6n-3 với n thuộc N và n>9
a) Tính tổng 17 số đầu tiên của dãy
b) Tích 100 số bất kì của dãy có chia hết cho 399 không ?
Gíup mình với , mình cần gấp lắm
Bài 1. Cho dãy số nguyên N và dãy a1, a2, a3, .., an (0<=N<=10^6; i=0,1,2,…,N – 1; |a(i)|<=10^6.Yêu cầu: Cho N và dãy a1, a2, a3, …, an; xóa phần tử x và xuất mảng sau khi xóa.
Bài 2. Cho dãy số nguyên N và dãy a1, a2, a3, …, an(0<=N<=10^6; i=0,1,2,…,N – 1; |a(i)|<=10^6.Yêu cầu: Cho N và dãy a1, a2, a3, …, an; xóa các phần tử trùng nhau chỉ giữ lại một phần tử và xuất mảng sau khi xóa.
Ai đó giúp mình 2 bài này theo pascal với được ko? Mình thật sự không biết làm :(( Ai đó giúp mình 2 bài này theo pascal với được ko? Mình xin cảm ơn nhiều!!
Bài 1:
uses crt;
var a:array[1..1000000]of longint;
i,n,x:longint;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap x='); readln(x);
for i:=1 to n do
if a[i]<>x then write(a[i]:4);
readln;
end.
Ví dụ 6. Tìm số lớn nhất trong dãy A các số a1, a2, ..., an cho trước.
Ta sẽ dùng biến MAX để lưu số lớn nhất của dãy A. Việc xác định MAX có thể được thực hiện như sau: Đầu tiên gán giá trị a1 cho biến MAX. Tiếp theo, lần lượt so sánh các số a2, ..., an của dãy A với MAX. Nếu ai> MAX, ta gán ai cho MAX.
INPUT: Dãy A các số ai, a¿, ..., a„ (n >]).
OUTPUT: Giá trị MAX = max{ay, 4ạ,..., a„Ì.
Từ đó, ta có thuật toán sau:
Bước 1. MAX← a1; i←1.
Bước 2. Nếu ai> MAX, gán MAX← ai.
Bước 3. i←i+ 1.
Bước 4. Nếu i≤n, quay lại bước 2.
Bước 5. Thông báo giá trị MAX và kết thúc thuật toán.
Dưới đây minh hoạ thuật toán trên với trường hợp chọn thỏ nặng nhất trong bốn chú thỏ có trọng lượng tương ứng là 2, 1, 5, 3 ki-lô-gam.
Ví dụ 6. Tìm số lớn nhất trong dãy A các số a1, a2, ..., an cho trước.
Ta sẽ dùng biến MAX để lưu số lớn nhất của dãy A. Việc xác định MAX có thể được thực hiện như sau: Đầu tiên gán giá trị a1 cho biến MAX. Tiếp theo, lần lượt so sánh các số a2, ..., an của dãy A với MAX. Nếu ai> MAX, ta gán ai cho MAX.
INPUT: Dãy A các số a1, a2, ..., an (n >1).
OUTPUT: Giá trị MAX = max{a1, a2,..., an}.
Từ đó, ta có thuật toán sau:
Bước 1. MAX← a1; i←1.
Bước 2. Nếu ai> MAX, gán MAX← ai.
Bước 3. i←i+ 1.
Bước 4. Nếu i≤n, quay lại bước 2.
Bước 5. Thông báo giá trị MAX và kết thúc thuật toán.
Dưới đây minh hoạ thuật toán trên với trường hợp chọn thỏ nặng nhất trong bốn chú thỏ có trọng lượng tương ứng là 2, 1, 5, 3 ki-lô-gam.
Bài 1: Cho dãy số A1, A2, A3,.., AN và một số K.
Cho biết trong dãy số đó có bao nhiêu số bằng K.
Bài 2: Cho dãy số A1, A2, A3,.., AN. Tìm số nhỏ nhất trong dãy đó.
cho dãy A gồm n số nguyên a1,a2,.......an,cho biết có bao số âm trong dãy
tương tự như câu trên tìm số dương
uses crt;
var a:array[1..1000] of integer;
n,i: integer;
sa,d: integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
sa:=0;
d:=0;
for i:=1 to n do
if a[i] > 0 then d:=d+1 else if a[i] < 0 then sa:=sa+1;
writeln('Trong day co ',d,' so duong');
writeln('Trong day co ',sa,' so am');
readln
end.
1, Cho dãy A gồm N số nguyên a1,a2...aN. Hãy cho biết trong dãy có bao nhiêu số chẵn?
2, Cho N và dãy a1,a2...aN là dãy các số nguyên. Hãy cho biết trong dãy có bao nhiêu số âm
Cho dãy số liệu (1) : a1; a2; a3...an-1; an trong đó a1; a2; ..an là các số cho trước có số trung bình cộng là x1
Và cho dãy số liệu (2): a1 - 1; a2; a3...an-1; an+ 1 có số trung bình cộng là x2
Chọn mệnh đề đúng?
A. x1 = x2
B. x1 > x2
C. x1 < x2
D. Không só sánh được
Chọn A.
Dãy số liệu thứ 2 có 2 số liệu khác với dãy số liệu 1 là số đứng ở vị trí đầu tiên và số đứng ở vị trí cuối cùng. Tuy nhiên tổng của số đứng đầu tiên + số đứng ở vị trí cuối cùng không thay đổi. Do đó; số trung bình không thay đổi.
Xây dựng thuật toán cho bài toán sau: Cho N và dãy số a 1 , . . . . , a n . Tính và hiển thị tổng các số chẵn trong dãy
Bước 1: Nhập N và dãy số a 1 , . . . . , a n
Bước 2: i ←1;S ← 0 (0,5đ)
Bước 3: i > N thì sang bước 6 ngược lại sang bước 4 (0,5đ)
Bước 4: Nếu ai chia hết cho 2 thì S ←S + ai ; (0,5đ)
Bước 5: i ← i+1; quay lại bước 3
Bước 6: dừng và đưa S ra màn hình. (0,5đ)