a. Hướng dẫn:
b. Mã chương trình:
var n, i: integer;
Function kiem_tra(n:integer):boolean;
var i: integer;
begin
kiem_tra:=true;
for i:=2 to n-1 do if (n mod i) = 0 then kiem_tra:=false;
end;
begin
assign(f,’bai6_8.inp’); reset(f);
assign(g,’bai6_8.out’); rewrite(g);
readln(f,n);
for i:=2 to n do if kiem_tra(i) then
write(g,i:3, ', ');
close(f);close(g);
end.
|
Bài tập 6.9:
Viết chương trình cho phép sắp xếp một dãy số với yêu cầu sử dụng các chương trình con: Nhập mảng, in mảng, đổi giá trị của hai số.
a. Hướng dẫn:
b. Mã chương trình:
type kieu_mang= array[1..100] of integer;
Var A: kieu_mang;
n,i,j:byte;
f,g:text;
Procedure Nhap_mang(var M:Kieu_Mang;n:byte);
Var i:byte;
Begin
for i:=1 to n do readln(f,M[i]);
end;
Procedure In_mang(var M:Kieu_Mang;n:byte);
Var i:byte;
begin
for i:=1 to n do write(g,M[i]:3,', ')
end;
Procedure swap(var a,b:integer);
var tam:integer;
begin
tam:=b;
b:=a;
a:=tam;
end;
Begin
Assign(f,’bai6_9.inp’); reset(f);
Assign(g,’bai6_9.out’); rewrite(g);
readln(f,n);
Nhap_mang(f,A,n);
for i:=1 to n-1 do
for j:= i to n do if A[i]>A[j] then swap(A[i],A[j]);
In_mang(f,A,n);
Close(f); close(g);
end.
|
Chia sẻ với bạn bè của bạn: |