Câu 1: Viết chương trình bằng ngôn ngữ lập trình Pascal thực hiện các yêu cầu sau a) Nhập vào một dãy gồm N số thực (0<N<=100). Biết N được nhập từ bàn phím b) Ghi dãy số đã nhập ra màn hình (mỗi số cách nhau bởi một dấu chấm phẩy) c) Tìm và ghi ra màn hình số nhỏ nhất có t

hoanghuudat184

2 năm trước

Câu 1: Viết chương trình bằng ngôn ngữ lập trình Pascal thực hiện các yêu cầu sau a) Nhập vào một dãy gồm N số thực (0<N<=100). Biết N được nhập từ bàn phím b) Ghi dãy số đã nhập ra màn hình (mỗi số cách nhau bởi một dấu chấm phẩy) c) Tìm và ghi ra màn hình số nhỏ nhất có trong dãy số đã nhập, ghi ra màn hình các vị trí xuất hiện của số nhỏ nhất (mỗi vị trí cách nhau bởi một dấu chấm phẩy) **d) Tính TBC các số lẽ có trong dãy và ghi kết quả tính được ra màn hình (kết quả làm tròn đến số thập phân thứ 2)

Loga Sinh Học lớp 12

0 lượt thích 22 xem

1 trả lời

Thích Trả lời

tao20031002

uses crt;
var a:array[1..1000] of real;
n,i,j,t,s,nho:integer;
nho1,min:real;
begin
clrscr;
write('n= ');readln(n);
writeln('Nhap day so');
for i:=1 to n do
begin
write('a[',i,']= ');readln(a[i]);
end;
t:=0;s:=0;
writeln('Day da nhap la');
for i:=1 to n do
begin
j:=0;
nho1:=a[i];
while trunc(nho1)<>nho1 do
begin
nho1:=nho1*10;
inc(j);
end;
writeln('a[',i,']= ',a[i]:0:j);
if (a[i]=trunc(a[i])) and (trunc(a[i]) mod 2 <> 0) then
begin
t:=t+trunc(a[i]);
inc(s);
end;
end;
min:=a[i];
for i:=1 to n do
begin
if a[i]<min then
begin
min:=a[i];
nho:=i;
end;
if a[i]=min then nho:=i;
end;
j:=0;
nho1:=min;
while trunc(nho1)<>nho1 do
begin
nho1:=nho1*10;
inc(j);
end;
writeln('So nho nhat trong day la: ',min:0:j);
write(' Vi tri: ');
for i:=1 to n do
if a[i]=min then
begin
if i=nho then write(i) else write(i,';');
end;
writeln;
if s<>0 then
writeln('Tbc cac so le co trong day la ',t/s:0:2)
else writeln('0.00');
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

honneybunny28

Uses Crt;
Var a:array[1..10000] of real;
i,n,S,dem:integer; min,TBC:real;
Begin
Clrscr;
{a} Write('Nhap N = '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap a[',i,'] = ' ); Readln(a[i]);
End;
WRITELN;
{b} Write(' Day so da nhap tren la: ');
For i:= 1 to n do Write(a[i]:3:2,' ; ');
min:=a[1];
For i:=1 to n do If min>a[i] then min:=a[i];
WRITELN;
Writeln(' So be nhat do la: ',min:2:2);
Write(' So be nhat do nam o vi tri thu: ');
For i:= 1 to n do
Begin
If min=a[i] then write(i:4);
If (a[i]=trunc(a[i])) and (trunc(a[i]) mod 2<> 0) then
Begin
S:=S+trunc(a[i]);
Dem:=dem+1;
End;
Writeln;
End;
If S <> 0 then Write('TBC cac so le co trong day la: ',s/dem:2:2) else
Write('Bao loi ket qua! Vay nen ket qua= ',0.00);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé!! ~~: 33

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Giải thích từng ý hộ em với anh chị Có các phát biểu sau: 1. Ankin C4H6 có 2 đồng phân mạch cacbon 2. Các ankin có nhiệt độ sôi thấp hơn các anken tương ứng 3. Các ankin không tan trong nước và nhẹ hơn nước 4. Trong công nghiệp, axetilen được sản xuất chủ yếu từ CaC2 5. Anken X trong phân tử có 8 liên kết xích ma thì CTPT của X là C3H6 6. Ankin có số đồng phân ít hơn anken tương ứng Số phát biểu đúng là: A. 1 B. 2 C. 3 D. 4

Bài tập 4: Cho hệ phương trình mx-2y=-1 và 2x +3y=1 (1) 1. Giải hệ phương trình (1) khi m = 3 . 2. Tìm m để hệ phương trình có nghiệm x = -1/2 và y = 2/3 . 3. tìm nghiệm của hệ phương trình (1) theo m

Các idol vẽ đậu mầm buồn hộ tui nhé Nl: Con bff tui có ny rồi mà còn vào fb của tui nhắn tin với trai ,xong còn khia mãi ko có ny ,tui đâu có dễ dãi như nó xong còn khía nick chính dc 2500 đ khi nào mà dc vô bđhh nữa chứ

Giúp mình trả lời những câu hỏi mà bạn biết với ạ

Vẽ sơ đồ nguyên lí mạch điện gồm: 1 cầu chì, 1 ổ cắm, 2 công tắc 2 cực( Mỗi công tắc 2 cực 1 đèn sợi đốt)

Hệ hai thấu kính hội tụ O1 và O2 có cùng trục chính, được đặt cách nhau một khoảng L. Đặt vật AB vuông góc với trục chính, trước thấu kính O1 ta thu được ảnh A2B2 của hệ trên màn. Giữ nguyên vật AB và thấu kính O1, bỏ thấu kính O2 đi, đẩy lùi màn ra xa thấu kính O1 thêm 192 cm thì thu được ảnh A1B1 trên màn với A1B1=5A2B2. Nếu giữ nguyên vật AB và thấu kính O2, bỏ thấu kính O1 đi, đẩy lùi màn ra xa thấu kính O2 thêm 72 cm thì thu được ảnh A’B’ trên màn với A’B’=A2B2. Xác định vị trí của vật AB, tiêu cự của hai thấu kính và khoảng cách L giữa hai thấu kính.

Giả sử xăng là hỗn hợp hidrocacbon pentan (C5H12) va hexan (C6h14) trong đó pentan chiếm 60% số mol a. tính khối lượng mol của xăng b.cần bao nhiêu lít không khí (ở Đktc)để đốt cháy hết 1 g xăng? c. tính lượng nhiệt tỏa ra khi đốt cháy hoàn toàn 100 gam xăng, biết rằng 1 mol pentan cháy tỏa ra 3534 kJ và 1 mol hexan cháy tỏa ra 4196 kJ

vì sao hươu lại di chuyển nhanh?

6. “ Do you sometimes go to this English Speaking Club?” Mrs.Brown asked. -> Mrs.Brown asked me…………………………………………………………….. 7. I can’t sing beautifully, so I can’t join them now. -> I wish ……………………………………………………………………………. 8. Mr.Pike played soccer after school everyday when he was a school boy. -> Mr.Pike used to…………………………………………………………………… 9. The children are very happy. Their team won the match. - > The children whose ……………………………………………………………… 10. He is a more persuasive speaker than his brother. -> He speaks……………………………………………………………

WRITE SENTENCES USING CONDITIONAL TYPE 3 1.I didn't pass the exam because i studied lazily 2.i didn't visit her because i don't know her adress 3.she didn't buy a nemcar because she didn't have enough money 4.Chung was very busy yesterday,so he didn't go to the meeting 5.Minh didn't study hard,so he didn't get good marks

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến