[Help] Bài tập dạng tệp.

[vip-yte]

program phantichso;
var n:longint;
procedure phantich(var n1:longint);
var u,dem:longint;
begin
u:=2; dem:=0;
if(n1>1)then begin
while(n>1)do
if(n1 mod u=0)then
begin
dem:=dem+1;
n1:=n1 div u;
write(u:4);
end
else
u:=u+1;
end
else
write('ko phan tich dc thanh so nguyen to');
end;
begin
writeln('nhap n');readln(n);
if sqrt(sqrt(N))=trunc(sqrt(sqrt(N)))then
writeln('N co the bieu dien duoc duoi dang luy thua bac 4 cua mot so')
else writeln('Khong bieu dien duoc');
phantich(n);
readln
end.

[longnt]

lehang ban giup mình làm này ở dạng tệp với mình đang cần gấp cảm on bạn trước nhé

program phantichso;
var n:longint;
procedure phantich(var n1:longint);
var u,dem:longint;
begin
u:=2; dem:=0;
if(n1>1)then begin
while(n>1)do
if(n1 mod u=0)then
begin
dem:=dem+1;
n1:=n1 div u;
write(u:4);
end
else
u:=u+1;
end
else
write('ko phan tich dc thanh so nguyen to');
end;
begin
writeln('nhap n');readln(n);
if sqrt(sqrt(N))=trunc(sqrt(sqrt(N)))then
writeln('N co the bieu dien duoc duoi dang luy thua bac 4 cua mot so')
else writeln('Khong bieu dien duoc');
phantich(n);
readln
end.[/QUOTE]

[vipkongtu]

Lehang hot nhỉ [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]). Đc chỉ đích danh nhá =))
Hehe, đùa tí.

const       fi='thu_van.inp';
            fo='thu_van.out';
var         n:longint;
            f:text;
procedure   phantich(var n1:longint);
var         u,dem:longint;
begin
        u:=2; dem:=0;
        if(n1>1)then begin
        if(n1 mod u=0)then
        begin
                dem:=dem+1;
                n1:=n1 div u;
                write(f,u, ' ');
        end
        else
                u:=u+1;
        end
        else write(f,'ko phan tich dc thanh so nguyen to');
end;
begin
        assign(f,fi);
        reset(f);
        readln(f,n);
        close(f);
        assign(f,fo);
        rewrite(f);
        if sqrt(sqrt(N))=trunc(sqrt(sqrt(N)))then
        writeln(f,'N co the bieu dien duoc duoi dang luy thua bac 4 cua mot so')
        else writeln(f,'Khong bieu dien duoc');
        phantich(n);
        close(f);
end.

Chúc bạn học tốt!
Thân!

[wapa]

cam on bạn nha bạn co thể xem giúp lai hộ mình với mình chạy code cua bạn rồi nhung ko ra kq

const fi='thu_van.inp';
fo='thu_van.out';
var n:longint;
f:text;
procedure phantich(var n1:longint);
var u,dem:longint;
begin
u:=2; dem:=0;
if(n1>1)then begin
if(n1 mod u=0)then
begin
dem:=dem+1;
n1:=n1 div u;
write(f,u, ' ');
end
else
u:=u+1;
end
else write(f,'ko phan tich dc thanh so nguyen to');
end;
begin
assign(f,fi);
reset(f);
readln(f,n);
close(f);
assign(f,fo);
rewrite(f);
if sqrt(sqrt(N))=trunc(sqrt(sqrt(N)))then
writeln(f,'N co the bieu dien duoc duoi dang luy thua bac 4 cua mot so')
else writeln(f,'Khong bieu dien duoc');
phantich(n);
close(f);
end.

[ngovanquang12c3]

Ko phải code của mình. Mình chỉ thêm phần đọc/ghi tệp thôi chứ đâu có can thiệp vào thuật toán của bạn đâu.

Mình có sửa chút từ code của bạn. Bạn tham khảo nhé!

const       fi='thu_van.inp';
            fo='thu_van.out';
var         n:longint;
            f:text;
procedure   phantich(var n1:longint);
var         dem,u:longint;
begin
        u:=trunc(sqrt(sqrt(n1)));
        while (n1 div u) <>0 do
        begin
                write(f,u,' ');
                n1:=n1 div u;
        end;
end;
begin
        assign(f,fi);
        reset(f);
        readln(f,n);
        close(f);
        assign(f,fo);
        rewrite(f);
        if sqrt(sqrt(N))=trunc(sqrt(sqrt(N)))then
        begin
                writeln(f,'N co the bieu dien duoc duoi dang luy thua bac 4 cua mot so');
                phantich(n);
        end
        else writeln(f,'Khong bieu dien duoc');
        close(f);
end.

P.s: Lần sau nhớ cho code vào thẻ

 thu van nhé!
Chúc bạn học tốt!
Thân!

[thuytrang128]

lehang đâu rùi, có bạn nhờ kìa. [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG])