bài tập về tệp
3 posters
Trang 1 trong tổng số 1 trang
bài tập về tệp
viết chương trình :
-Tạo 1 tệp chứa n số nguyên n>0
-Điếm và in các số nguyên tố trên tệp.
thank you! All you!
-Tạo 1 tệp chứa n số nguyên n>0
-Điếm và in các số nguyên tố trên tệp.
thank you! All you!
jetlongk4- Thành viên mới
- Ngày sinh : 04/11/1991
Tuổi : 32
Ngày đăng ký : 14/02/2011
chuong trinh kiem tra day so nguyen to
var f:text;
a:array[1..100] of word;
dem,i,j,n,c:byte;
kt:boolean;
begin
write('nhap so luong phan tu:');
readln(n);
for i:=1 to n do
begin
write('nhap so thu:',i)
readln(a[i]);
end;
assign(f,'E:\tieuquaitu.dat');
rewrite(f);
for i:=1 to n do write(f,a[i],' ');
dem:=0;
for i:=1 to n do
begin
kt:=true;
if a[i]<4 then
begin
dem:=dem+1;
write(a[i],'la so nguyen to');
end
else
begin
c:=round(sqrt(a[i]));
j:=c;
while (kt=true) and (j>1) do
if a[i] mod j=0 then kt:=false else
j:=j-1;
end;
if kt=true then
begin
dem:=dem+1;
write(a[i],'la so nguyen to');
end;
end;
writeln('co:',dem,'so nguyen to');
close(f);
readln
end.
a:array[1..100] of word;
dem,i,j,n,c:byte;
kt:boolean;
begin
write('nhap so luong phan tu:');
readln(n);
for i:=1 to n do
begin
write('nhap so thu:',i)
readln(a[i]);
end;
assign(f,'E:\tieuquaitu.dat');
rewrite(f);
for i:=1 to n do write(f,a[i],' ');
dem:=0;
for i:=1 to n do
begin
kt:=true;
if a[i]<4 then
begin
dem:=dem+1;
write(a[i],'la so nguyen to');
end
else
begin
c:=round(sqrt(a[i]));
j:=c;
while (kt=true) and (j>1) do
if a[i] mod j=0 then kt:=false else
j:=j-1;
end;
if kt=true then
begin
dem:=dem+1;
write(a[i],'la so nguyen to');
end;
end;
writeln('co:',dem,'so nguyen to');
close(f);
readln
end.
Được sửa bởi tieuquaitu ngày 23/2/2011, 8:49 pm; sửa lần 1.
tieuquaitu- Thành viên thường
- Ngày sinh : 08/07/1993
Tuổi : 30
Ngày đăng ký : 09/02/2011
Re: bài tập về tệp
day la chuong trinh kiem tra so nguyen to trong day.ban dua theo do ma lam.
co phan tao tep va lay du lieu xem sach giao khoa di.
neu van khong duoc thi bao lai.minh se co gang giup.
co phan tao tep va lay du lieu xem sach giao khoa di.
neu van khong duoc thi bao lai.minh se co gang giup.
tieuquaitu- Thành viên thường
- Ngày sinh : 08/07/1993
Tuổi : 30
Ngày đăng ký : 09/02/2011
Re: bài tập về tệp
hix. lam ho minh phan ve tep di ban.
thak
thak
jetlongk4- Thành viên mới
- Ngày sinh : 04/11/1991
Tuổi : 32
Ngày đăng ký : 14/02/2011
Re: bài tập về tệp
xong rui day.kiem tra lai di.
tieuquaitu- Thành viên thường
- Ngày sinh : 08/07/1993
Tuổi : 30
Ngày đăng ký : 09/02/2011
Re: bài tập về tệp
sao 1 bai de nhu the nay' ma lam dai vay?
handboyxyz- Thành viên mới
- Ngày sinh : 18/07/1996
Tuổi : 27
Ngày đăng ký : 23/02/2011
Re: bài tập về tệp
de tui lam cho//////
handboyxyz- Thành viên mới
- Ngày sinh : 18/07/1996
Tuổi : 27
Ngày đăng ký : 23/02/2011
Re: bài tập về tệp
program BT;
var F:text;
n:longint;
A:array[1..100] of longint;
procedure nhapDL;
var i:longint;
begin
write('nhap so n:=');readln(n);
for i:=1 to n do
write('nhap A[',i,']:=');readln(A[i]);
writeln('mang vua nhap la:');
for i:=1 to n do
write(A[i],' ');
end;
function NT(x:longint):boolean;
var i:longint;
begin
NT:=true;
if x<2 then NT:=false;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then NT:=false;
end;
procedure xuli;
var d,i:longint;
begin
d:=0;
writeln('cac so nguyen to co trong mang la:');
for i:=1 to n do
if NT(A[i]) then
begin
inc(d);
write(A[i,' ');
end;
writeln('so cac so nguyen to la:',d);
end;
BEGIN
nhapDL;
xuli;
END.
var F:text;
n:longint;
A:array[1..100] of longint;
procedure nhapDL;
var i:longint;
begin
write('nhap so n:=');readln(n);
for i:=1 to n do
write('nhap A[',i,']:=');readln(A[i]);
writeln('mang vua nhap la:');
for i:=1 to n do
write(A[i],' ');
end;
function NT(x:longint):boolean;
var i:longint;
begin
NT:=true;
if x<2 then NT:=false;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then NT:=false;
end;
procedure xuli;
var d,i:longint;
begin
d:=0;
writeln('cac so nguyen to co trong mang la:');
for i:=1 to n do
if NT(A[i]) then
begin
inc(d);
write(A[i,' ');
end;
writeln('so cac so nguyen to la:',d);
end;
BEGIN
nhapDL;
xuli;
END.
handboyxyz- Thành viên mới
- Ngày sinh : 18/07/1996
Tuổi : 27
Ngày đăng ký : 23/02/2011
Re: bài tập về tệp
co de hieu hon ko?
handboyxyz- Thành viên mới
- Ngày sinh : 18/07/1996
Tuổi : 27
Ngày đăng ký : 23/02/2011
Re: bài tập về tệp
minh nghi neu ban hoc tin hoc thi nen lam quen voi thuat toan ''quy hoach dong'' di la vua
handboyxyz- Thành viên mới
- Ngày sinh : 18/07/1996
Tuổi : 27
Ngày đăng ký : 23/02/2011
Re: bài tập về tệp
thuat toan nay de hoc lam'
handboyxyz- Thành viên mới
- Ngày sinh : 18/07/1996
Tuổi : 27
Ngày đăng ký : 23/02/2011
Re: bài tập về tệp
day minh di.bay gio moi duoc nghe noi den
tieuquaitu- Thành viên thường
- Ngày sinh : 08/07/1993
Tuổi : 30
Ngày đăng ký : 09/02/2011
Re: bài tập về tệp
minh hoc pascal co ban nen khong ranh lam.neu co tai lieu gui cho minh
tieuquaitu- Thành viên thường
- Ngày sinh : 08/07/1993
Tuổi : 30
Ngày đăng ký : 09/02/2011
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|
15/4/2011, 10:34 pm by funny
» Mọi người làm giúp tôi bài này với !
13/4/2011, 11:42 am by phonggia
» Giúp mình giải bài này với
12/4/2011, 1:00 pm by ldt
» Chia se 1 bai paccal ve ve do thi
11/4/2011, 1:55 pm by duy_sau_rom
» đồ hoạ trong pascal
9/4/2011, 9:16 pm by jetlongk4
» Giá trị biểu thức bằng kí pháp nghịch đảo
1/4/2011, 8:49 am by kh1132000
» AI GIẢI GIÚP EM BÀI NÀY VỚi , ĐANG CẦN GẤP GẤP LẮM :(
31/3/2011, 11:47 pm by jancancook
» dòng thời gian
31/3/2011, 11:31 am by gianggiangonline
» anh nào giúp em với
30/3/2011, 11:00 pm by sieuhoatinh
» VTC trả lương 10 triệu cho SV tốt nghiệp ĐH Văn Hiến - khoa CNTT - ĐTVT tại Hà Nội
29/3/2011, 2:48 pm by SV_tuonglai
» Download cẩm nang mùa thi 2011 tại đây
29/3/2011, 2:47 pm by SV_tuonglai
» Check giúp mình lỗi trong code này với !
27/3/2011, 10:07 pm by mamap0511
» Tai nghe sony dr 370 ve hang moi
25/3/2011, 8:42 pm by hs_bin
» giúp em với
25/3/2011, 12:11 pm by nbni
» Headphone sony dr 370 moi ve hang
24/3/2011, 9:13 pm by hs_bin
» GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
24/3/2011, 9:11 pm by tuan045610
» Headphone sony DR 370 moi ve hang
21/3/2011, 8:11 pm by hs_bin
» Sony DR 310 moi ve hang
20/3/2011, 9:34 pm by hs_bin
» Mọi người giúp dùm em!!^^
20/3/2011, 9:53 am by trangbui_thcstanhiep
» bài tập về hàm trog pascal
18/3/2011, 10:34 pm by sieuhoatinh