Ước lượng số phép toán sơ cấp cần thực hiện để tìm số lớn nhất trong dãy số:
a) Đâu vào là dãy ngẫu nhiên.
b) Đầu vào là dãy giảm dần.
Những câu hỏi liên quan
Dãy số A1, A2,...,AN được gọi là dãy số đặc biệt nếu nó thỏa mãn các điều kiện sau:
- Là dãy số giảm dần
- Với mỗi Ai thì Ai hoặc là số nguyên tố hoặc là ước của một trong các số từ A1 đến Ai-1.
Hãy tìm dãy số đặc biệt dài nhất bắt đầu từ N
Cho dãy số: a1,a2. Biểu diễn bằng sơ đồ khối thuật toán tìm số lớn nhất trong hai số đã cho. Hãy tạo bảng liệt kê các bước thực hiện thuật toán tìm kiếm tuần tự để tìm số lớn nhất?
Đọc tiếp
Cho dãy số: a1,a2. Biểu diễn bằng sơ đồ khối thuật toán tìm số lớn nhất trong hai số đã cho. Hãy tạo bảng liệt kê các bước thực hiện thuật toán tìm kiếm tuần tự để tìm số lớn nhất?
Câu 26. Thuật toán tìm kiếm nhị phân là tìm kiếm bằng cách:
A. Chia dãy làm hai nửa, loại bỏ nửa dãy chắc chắn không chứa phần tử cần tìm, chỉ tìm kiếm trong nửa dãy còn lại.
B. Chọn phần tử lớn nhất trong dãy chưa sắp xếp còn lại và xếp vào đầu dãy đó
C. Tìm kiếm tuần tự đảm bảo không bỏ sót, cho đến khi tìm thấy hoặc hết dãy và không tìm thấy.
Đọc tiếp
Câu 26. Thuật toán tìm kiếm nhị phân là tìm kiếm bằng cách:
A. Chia dãy làm hai nửa, loại bỏ nửa dãy chắc chắn không chứa phần tử cần tìm, chỉ tìm kiếm trong nửa dãy còn lại.
B. Chọn phần tử lớn nhất trong dãy chưa sắp xếp còn lại và xếp vào đầu dãy đó
C. Tìm kiếm tuần tự đảm bảo không bỏ sót, cho đến khi tìm thấy hoặc hết dãy và không tìm thấy.
Viết chương trình Pascal thực hiện các yêu cầu sau:
- Nhập vào một dãy số gồm N số nguyên
- Hiển thị dãy số vừa nhập
- Tìm giá trị lớn nhất, nhỏ nhất trong dãy số trên
program max_min;
uses crt;
var i,n,max,min:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
writeln('day vua nhap la:');
for i:=1 to n do
write(a[i]:3);
writeln;
max:=a[1];min:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('gia tri lon nhat: ',max,' gia tri nho nhat: ',min);
readln;
end.
Đúng 1
Bình luận (0)
uses crt;
var a:array[1..1000000] of longint;
n,i,max,min:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap: ');
for i:=1 to n do write(a[i],' '); writeln;
max:=a[1];min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('GTLN: ',max);
writeln('GTNN: ',min);
readln;
end.
Đúng 0
Bình luận (0)
Hãy viết chương trình pascal thực hiện các công việc sau a ) Nhập vào 1 dãy số nguyên b ) Hiện thị dãy số vừa nhập c ) Tính trung bình công của dãy số đó d ) Hiện thị các số là bội của 3 e ) Hiện thị các số lẻ là bội của 5 f ) Tìm số lớn nhất có trong dãy g ) Đưa số lớn nhất lên đầu dãy nhưng không làm mất các giá trị có trong dãy h ) Tính trung bình cộng số thứ 8 và số thứ 10 ở trong dãy Mai mình thi rồi , mong mọi người giúp e vs ạ
Đọc tiếp
Hãy viết chương trình pascal thực hiện các công việc sau
a ) Nhập vào 1 dãy số nguyên
b ) Hiện thị dãy số vừa nhập
c ) Tính trung bình công của dãy số đó
d ) Hiện thị các số là bội của 3
e ) Hiện thị các số lẻ là bội của 5
f ) Tìm số lớn nhất có trong dãy
g ) Đưa số lớn nhất lên đầu dãy nhưng không làm mất các giá trị có trong dãy
h ) Tính trung bình cộng số thứ 8 và số thứ 10 ở trong dãy
Mai mình thi rồi , mong mọi người giúp e vs ạ
Var a:array:[1..1000] of integer;
i,n,max,t,d:integer;
s:longint;
tb:real;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
tb:=s/n;
Write('Cac so vua nhap la: ');
For i:=1 to n do
Write(a[i]:8);
writeln;
writeln('Trung binh cong cua day la ',tb:10:2);
Write('Cac so la boi cua 3 la ');
For i:=1 to n do
if a[i] mod 3 = 0 then write(a[i]:8);
writeln;
write('Cac so le la boi cua 5 la ');
for i:=1 to n do
if (a[i] mod 2 <> 0) and (a[i] mod 5 = 0) then
write(a[i]:8);
Writeln;
max:=a[1];
for i:=1 to n do
if a[i] > max then
begin
max:=a[i];
d:=i;
End;
Writeln('So lon nhat la ',max);
t:=a[1];
a[1]:=max;
a[d]:=t;
Write('Day sau khi dem so lon nhat ra truoc ');
For i:=1 to n do
write(a[i]:8)
writeln;
tb:=(a[8] + a[10])/2);
Write(Trung binh cong cua so thu 8 va thu 10 la ',tb:10:2);
Readln
End.
Đúng 2
Bình luận (0)
viết chương trình sử dụng biến mảng để nhập một dãy số gồm N số nguyên từ bàn phím và thực hiện: +tính tổng các số trong dãy đó. +in ra màn hình các số lớn hơn 50 trong dãy số đó. +tìm số nhỏ nhất trong dãy đó Cần gấp ạ
var a:array[1..1000] of integer;
i,n,min:integer;
s:longint;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
s:=s+a[i];
end;
writeln('Tong la ',s);
min:=a[1];
for i:=2 to n do
if a[i] < min then min:=a[i];
write('Cac so chan la ');
for i:=1 to n do
if a[i] mod 2 = 0 then write(a[i]:8);
writeln;
write('so nho nhat la ',min);
readln
end.
Đúng 0
Bình luận (0)
3 tháng 5 2022 lúc 8:19
xác định đầu vào và đầu ra của bài toán ''Tìm số lớn nhất trong dãy n số tự nhiên cho trước''?
Dãy số A1, A2,...,AN được gọi là dãy số đặc biệt nếu nó thỏa mãn các điều kiện sau:- Là dãy số giảm- Với mỗi Ai thì Ai hoặc là số nguyên tố hoặc là ước của một trong các số từ A1 đến Ai+1.Hãy tìm dãy số đặc biệt dài nhất với phần tử đầu tiên bằng N ( 0 N ≤100)Mong mn giúp đỡ! c biệt nếu nó thỏa mãn các điều kiện sau:
Đọc tiếp
Dãy số A1, A2,...,AN được gọi là dãy số đặc biệt nếu nó thỏa mãn các điều kiện sau:
- Là dãy số giảm
- Với mỗi Ai thì Ai hoặc là số nguyên tố hoặc là ước của một trong các số từ A1 đến Ai+1.
Hãy tìm dãy số đặc biệt dài nhất với phần tử đầu tiên bằng N ( 0 < N ≤100)
Mong mn giúp đỡ!
Toán hỏi nhà Thơ ở đâu? Thơ hóm hỉnh trả lời: "Nhà tớ ở dãy nhà chẵn. Để ghi từ đầu dãy đến nhà tớ cần 364 chữ số. Toán đã tìm thấy ngay nhà Thơ. Vậy số nhà Thơ là bao nhiêu?
Giải :Từ 2 đến 8 có 4 số chẵn có 1 chữ số.
Từ 10 đến 98 có 45 số chẵn có 2 chữ số.
Các số chẵn có 3 chữ số còn lại là: (364 - 4 + 45 x 2) :3 = 90 (số).
Với 364 chữ số thì viết được số số chẵn là: 4 +45 + 90 = 139 (số).
Số nhà của nhà Thơ là: 138 x 2 + 2= 278
Đáp số:278 số
Đúng 0
Bình luận (0)
Xem thêm câu trả lời