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.
sawpsxeeps tăng dần
program bai1;
var a:array[1..5] of longint;
i,z,q,n:longint;
begin
repeat
write('N= ');
readln(n);
end;
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
for i:=1 to n-1 do
for q:=i+1 to n do
if a[i]>a[q] then
begin
z:=a[i];
a[i]:=a[q];
a[q]:=z;
for i:=1 to n do write(a[i],' ');
readln
end.
Sx tăng dần:
Var i,S,i,j :integer;
A:array[1..10] of integer;
Begin
For i:= 1 to 5 do Begin
Writeln('A[',i,']=');
Readln(A[i]);
end;
For i:= 1 to n-1 do
For j:= i+1 to n do If A[i]>A[j] then
Begin
S:=A[i];
A[i]:=A[j];
A[j]:=S;
End;
Writeln (' day sau sx :');
For i:= 1 to 5 do Write (A[i]:5);
Readln;
end.
Sx giảm dần :
Var i,S,i,j :integer;
A:array[1..10] of integer;
Begin
For i:= 1 to 5 do Begin
Writeln('A[',i,']=');
Readln(A[i]);
end;
For i:= 1 to n-1 do
For j:= i+1 to n do If A[i]<A[j] then
Begin
S:=A[i];
A[i]:=A[j];
A[j]:=S;
End;
Writeln (' day sau sx :');
For i:= 1 to 5 do Write (A[i]:5);
Readln;
end.
b1: Nhập n.
b2:Nếu n chia hết cho 1 và n chia hết cho n thì n là số nguyên tố, ngược lại n không phải là số nguyên tố.
b3: Thông báo kết quả và kết thúc thuật toán.
- Thay đổi thứ tự các bước trong thuật toán mô tả kịch bản ở Hình 1 để tạo ra một thuật toán khác.
Bước 1. Đặt nhân vật Mèo đứng bên trái căn phòng
Bước 2. Nhân vật Mèo kêu: “Lò sưởi ở đâu nhỉ?”
Bước 3. Nhân vật Mèo chạy một đoạn (10 bước)
Bước 4. Nhân vật Mèo kêu: “Không có cái nào!”
Bước 5. Nhân vật Mèo kêu: “Grừ, Grừ… lạnh quá!”
Câu 1 :
Tham khảo
Y tưởng : xét từng số hạng trong dãy nếu số hạng > 0 thì xếp vào một biến tổng rồi chia cho số hàng đã xếp được
Input : Dãy A gồm N số nguyên a1....aN;
Output : Trung bình cộng của các số dương;
B1 : Nhập N số nguyên a1.... aN;
B2 : TB <--- 0, dem <---- 0, i <---- 1, Tong <--- 0;
B3 : Nếu a[i] > 0 thì Tong <--- TB + a[i];
B4 : dem <--- dem + 1;
B5 : Nếu i > N thì đưa ra màn hình kết quả TB = Tong/Dem rồi kết thúc chương trình;
B 6 : i <--- i + 1 rồi quay lại B3;
Câu 2 :
Tham khảo
Ta nhận thấy rằng, bội số chung nhỏ nhất của hai số nguyên dương a, b có thể được tính theo công thức:
ab/d
trong đó d là ước chung lớn nhất của a và b.
Bởi vậy:
Nên viết hàm để tính bội chung nhỏ nhất của hai số nguyên dương vì chương trình con cần trả ra một giá trị;
- Hàm tính bội chung nhỏ nhất của hai số nguyên dương a, b cần sử dụng hàm tính ước chung lớn nhất của a và b.
- Hàm tính ước chung lớn nhất của hai số nguyên dương a, b:
function ucln (a, b: integer): integer;
var r: integer;
begin
while b>0 do begin
r: = a mod b ,a : = b ; b:= r; end; ucln:= a; and;
- Hàm tính bội chung nhỏ nhất của hai số nguyên dương a, b:
ADVERTISING Video Player is loading.This is a modal window.
The media could not be loaded, either because the server or network failed or because the format is not supported.
lunction bcnn(a, b: integer): integer;
begin
bcnn:= a*b div ucln(a, b);
end;
Khi đó, chương trình con tính bội số chung nhỏ nhất của hai số nguyên dương a, b như sau:
program bai4_chuong6;
use crt ;
vai
X y: integer;
function ucln(a, b: integer): integer;
var r: integer;
begin
while b>0 do begin
r:= a mod b; a: = b ,b:= r;
end; ucln:= a;
end;
txnction bcnn(a, b: integer): integer;
begin
bcnn:= a*b div ucln(a, b);
end;
Begin
clrscr;
writeln('Nhap vao hai so can tim BCNN');
write ('x=') , readln(x); write ('y=') , readln(y);
writeln('bcnn cua hai so',x:4,'va',y:4,'la',bcnn(a,b)
readln
End.
Câu 3 : chịu
I. Làm quen với chương trình Pascal – Khai báo, sử dụng biến – Các thủ tục vào ra.
Bài tập 1.1:
Viết chương trình tính chu vi và diện tích của hình chữ nhật có chiều dài hai cạnh
là a, b (được nhập từ bàn phím).
a. Hướng dẫn:
- Nhập hai cạnh vào hai biến a, b.
- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.
b. Mã chương trình:
Program Chu_nhat;
uses crt;
Var a, b, S, CV: real;
Begin
Write('Nhap chieu dai:'); readln(a);
Write('Nhap chieu rong:'); readln(b);
S := a*b;
CV := (a+b)*2;
Writeln('Dien tich hinh chu nhat la:',S);
Writeln('Chu vi hinh chu nhat la:',CV:10:2);
readln
end.
c. Nhận xét: Lệnh write cho phép in ra màn hình một hoặc nhiều mục. Có thể định
dạng được số in ra bằng cách qui định khoảng dành cho phần nguyên, khoảng dành
cho phần thập phân.
Bài tập 1.2:
Viết chương trình tính chu vi, diện tích hình vuông có cạnh a (được nhập từ bàn
phím).
a. Hướng dẫn:
- Nhập cạnh vào biến canh.
- Chu vi hình vuông bằng 4*canh; Diện tích hình vuông bằng canh*canh.
b. Mã chương trình:
Program HINH_VUONG;
uses crt;
Var canh: real;
Begin
clrscr;
Write('Nhap do dai canh:');readln(canh);
Writeln('Chu vi hinh vuong la:',4*canh:10:2);
Writeln('Dien tich hinh vuong la:',canh*canh:10:2);
readln
end.