K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
14 tháng 2 2020
var n,i,j,d:longint;
s,t:double;
a:array[1..1000] of double;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]>=0) then d:=d+1
else s:=s+a[i];
for i:=1 to n do
for j:=i+1 to n do
if (a[i]>a[j]) then begin t:=a[i];
a[i]:=a[j];
a[j]:=t; end;
writeln(d);
for i:=1 to n do
write(a[i]:5:2,' ');
writeln;
write(s:5:2);
end.
14 tháng 2 2020
uses crt;
var a:array[1..50]of real;
i,n,dem,j:integer;
tam,t:real;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------cau-a--------------------------------}
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('so phan tu duong cua day la: ',dem);
{-----------------------------cau-b---------------------------------}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('day tang dan cua mang la: ');
for i:=1 to n do
write(a[i]:4:2,' ');
{-----------------------------cau-c-----------------------------------}
writeln;
t:=0;
for i:=1 to n do
if a[i]<0 then t:=t+a[i];
writeln('tong cac phan tu am trong day la: ',t:4:2);
readln;
end.
ML
13 tháng 5 2020
Program HOC24;
var a: array[1..100] of integer;
i,n,d: integer;
t: longint;
begin
write('Nhap so phan tu n='); readln(n);
d:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i]>0 then
begin
d:=d+1;
t:=t+a[i];
end;
end;
write('Trung binh cong cac so duong trong mang la :',t/d:1:2);
readln
end.
O
13 tháng 12 2017
1/write('So so can nhap: ');
readln(n);
{******Nhap mang a gom cac so nguyen duong < 1000********}
for i:=1 to n do
begin
write('Nhap so thu ', i);
readln(a[i]);
while a[i] > 1001 do
(chỗ này đề bài hơi khó hiểu, nếu nguyên dương thì cần gì trị tuyệt đối, nhưng nếu cả số nguyên âm nữa thì bạn phải dùng đk abs(a[i])>1001)
begin
write('Ban phai nhap lai so nho hon 1001: ');
readln(a[i]);
end;
end;
kt:=true;
{******* In mang cac so da nhap*******}
for i:=1 to n do
begin
write(a[i]: 6);
if i mod 8=0 then writeln;
end;
{***** Kiem tra day co phai la cap so cong ko"*****}
for i:=1 to n-2 do
if a[i]+a[i+2]<> 2* a[i+1] then kt:= false;
if kt then write('Day la cap so cong')
else writeln('Day ko la cap so cong');
readln;
END.
Nếu so sánh hết chiều dài của chuỗi ngắn hơn mà không có cặp nào khác nhau thì chuỗi ngắn hơn sẽ nhỏ hơn, ví dụ:
‘an’ < ‘anh’
‘chu’ < ‘chung’
Hai chuỗi bằng nhau khi chúng cùng độ dài và các ký tự ở các vị trí tương ứng thì bằng nhau.
Chương trình như sau ( mình chạy máy rồi đấy:)
program baitap;
uses crt;
var s1,s2:string;
begin
clrscr;
write('Nhap s1: ');readln(s1);
write('Nhap s2: ');readln(s2);
if s1>s2 then writeln('Hai xau s1,s2 duoc in ra la: '),s1,s2)
else writeln(s2,s1);
readln
end.
13 tháng 4 2018
program bai1;
var a:array[1..100] of longint;
i,n:longint;
begin
wrtie('N= ');readln(n);
for i:=1 to n do
begin
write('A[',i,']= ');
readln(a[i]);
end;
write('Cac phan tu trong day lon hoc 10 la ');
for i:=1 to n do
if a[i]>10 then write(a[i],' ');
readln
end.
2 tháng 5 2020
uses crt;
var a:array[1..250]of real;
i,n,dem: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) and (a[i] mod 5=0) then inc(dem);
writeln('So phan tu chia het cho 3 va chia het cho 5 la: ',dem);
readln;
end.
D
datcoder
CTVVIP
22 tháng 10 2023
a)
import time
def linear_search(arr, x):
"""
Tìm kiếm tuyến tính trong dãy arr để tìm giá trị x.
Trả về vị trí của x trong dãy nếu x được tìm thấy, -1 nếu không tìm thấy.
"""
n = len(arr)
for i in range(n):
if arr[i] == x:
return i
return -1
# Dãy số A
A = [3, 1, 0, 10, 13, 16, 9, 7, 5, 11]
# Phần tử cần tìm kiếm
C = 9
# Bắt đầu đo thời gian
start_time = time.perf_counter()
# Tìm kiếm phần tử C trong dãy A
result = linear_search(A, C)
# Kết thúc đo thời gian
end_time = time.perf_counter()
if result != -1:
print(f"Phần tử {C} được tìm thấy tại vị trí {result} trong dãy A.")
else:
print(f"Phần tử {C} không có trong dãy A.")
print(f"Thời gian thực hiện thuật toán: {end_time - start_time} giây.")
b)
import time
def binary_search(arr, x):
"""
Tìm kiếm nhị phân trong dãy arr để tìm giá trị x.
Trả về vị trí của x trong dãy nếu x được tìm thấy, -1 nếu không tìm thấy.
"""
left, right = 0, len(arr) - 1
while left <= right:
mid = (left + right) // 2
if arr[mid] == x:
return mid
elif arr[mid] < x:
left = mid + 1
else:
right = mid - 1
return -1
# Dãy số A đã được sắp xếp
A = [0, 1, 3, 5, 7, 9, 10, 11, 13, 16]
# Phần tử cần tìm kiếm
C = 9
# Bắt đầu đo thời gian
start_time = time.perf_counter()
# Tìm kiếm phần tử C trong dãy A bằng thuật toán tìm kiếm nhị phân
result = binary_search(A, C)
# Kết thúc đo thời gian
end_time = time.perf_counter()
if result != -1:
print(f"Phần tử {C} được tìm thấy tại vị trí {result} trong dãy A.")
else:
print(f"Phần tử {C} không có trong dãy A.")
print(f"Thời gian thực hiện thuật toán: {end_time - start_time} giây.")
-Thời gian thực hiện ở câu a là 8.99999,thời gian thực hiện ở câu b là 6,49999 giây.
GH
28 tháng 4 2017
1/
program uoc;
uses crt;
var n,i,dem,x:word;
a:array[1..20] of longint;
begin
clrscr;
write('nhap so phan tu cua day:') ;readln(n);
while n>20 do
begin
write('nhap lai so phan tu thoa man toi da la 20 phan tu:');
readln(n);
end;
writeln('nhap cac phan tu cua mang:');
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('nhap so nguyen x:'); readln(x);
dem:=0;
for i:=1 to n do
if x mod a[i] =0 then
begin
dem:=dem+1;
writeln(a[i],' la uoc cua ',x);
end;
if dem=0 then writeln('khong co phan tu la uoc cua ',x)
else write('co ',dem,' phan tu la uoc cua ',x);
readln;
end.
VT
4
17 tháng 10 2021
nhìn mặc áo hình như trò chơi con mực đúng hông đấy là trò giết người hả
17 tháng 10 2021
Tl :
Khong duoc viet lung tung tren dien dang
~ H T ~
- Tham số hình thức: Là tham số được đưa vào khi định nghĩa chương trình con.
- Tham số thực sự: Là tham số được viết trong lời gọi chương trình con.
- Biến toàn cục : là biến được khai báo trong chương trình chính.
- Biến cục bộ: Là các biến được khai báo trong chương trình con.
- Tham số biến: là tham số hình thức được thay bằng tham số thực sự tương ứng là tên các biến và được khai báo sau từ khóa var.
- Tham số giá trị: là tham số hình thức được thay bằng tham số thực sự tương ứng là các giá trị cụ thể và không được khai báo sau từ khóa var.
- Tham số hình thức: Là tham số được đưa vào khi định nghĩa chương trình con.
- Tham số thực sự: Là tham số được viết trong lời gọi chương trình con.
- Biến toàn cục : là biến được khai báo trong chương trình chính.
- Biến cục bộ: Là các biến được khai báo trong chương trình con.
- Tham số biến: là tham số hình thức được thay bằng tham số thực sự tương ứng là tên các biến và được khai báo sau từ khóa var.
- Tham số giá trị: là tham số hình thức được thay bằng tham số thực sự tương ứng là các giá trị cụ thể và không được khai báo sau từ khóa var.