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ả

0 bình luận về “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ả”

1. 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.

   Trả lời

2. Tạo file sochinhphuong.inp trước nhé!

   const fi=’sochinhphuong.inp’;
         fo=’sochinhphuong.oup’;
   var i,n:longint;
       f:text;
   function cp(x:longint):boolean;
   begin
   cp:=false;
   if sqr(trunc(sqrt(x)))=x then cp:=true
   else exit;
   end;
   begin
   assign(f,fi);reset(f);readln(f,n);close(f);
   assign(f,fo);rewrite(f);
   for i:=1 to n do
   if cp(i)=true then write(f,i,’  ‘);
   close(f);
   end.

   *Nếu số 0 là số chính phương thì bạn đổi “for i:=1 to n do” thành “for i:=0 to n do” nhé. 

   Trả lời