Đăng nhập để hỏi chi tiết
- Tin Học
- Lớp 8
- 10 điểm
- nguyenduymax -
FREE PASCAL Bài tập 8: Viết chương trình ghi ra các số chính phương nhỏ hơn hoặc bằng n Dữ liệu vào: Số tự nhiên n từ file sochinhphuong.inp Kết quả: Ghi ra file sochinhphuong.out. để có file sochinhphuong.inp thì viết câu lệnh sau: assign(f1,'sochinhphuong.inp');reset(f1); ' ' ' ' sochinhphuong.out thì ' ' ' ' ' '' ' ' ' ': assign(f2,'sochinhphuong.out');rewrite(f2); VD: bài số lẻ nhỏ hơn hoặc bằng n
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
TRẢ LỜI
var i,n,test : integer;
f1,f2 : text;
function kt(x : integer) : boolean;
var i : integer;
begin
i:=trunc(sqrt(x));
if sqr(i) = x then kt:=true else kt:=false;
end;
begin
assign(f1,'Sole.inp'); reset(f1);
assign(f2,'Kq.out'); rewrite(f2);
read(f1,n);
test:=0;
for i:=1 to n do if kt(i) = true then writeln(f2,i);
close(f1); close(f2);
readln; end.
Hãy giúp mọi người biết câu trả lời này thế nào?
42 vote
uses crt;
var i,n:longint; f1,f2:text;
begin
clrscr;
assign(f1,'sochinhphuong.inp.pas');reset(f1);
readln(f1,n);
close(f1);
assign(f2,'sochinhphuong.out');rewrite(f2);
for i:=1 to n do if sqrt(i)=trunc(sqrt(i)) then write(f2,i,' ');
close(f2);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
3.52 vote
Xin hay nhất ạ
Cả 2 bài đều đúng ạ?
Đăng nhập để hỏi chi tiết
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group Dành Cho 2K11 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí
Free Pascal IDE
File Edit Search
Compile Debug
-.pas
Tools options window Help
Run
var i,n,test:integer;
f1, f2: text;
begin
assign(f1, Sole.: rewrite(f2);
assign(f2,' Kq.out
read(fi,n);
test:=0;
for i:=i to n do if i mod 2=1 then
begin
write(' ');
test:=test+i;
if test mod 15=0 then w ...
Bảng tin
Bạn muốn hỏi điều gì?
Đặt câu hỏi
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
Inbox: m.me/hoidap247online
Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.