Viết chương trình pascal sao cho số nguyên nhập vào có độ lớn tùy ý và lớn hơn cả số thực dù chỉ nhập số nguyên.

0 bình luận về “Viết chương trình pascal sao cho số nguyên nhập vào có độ lớn tùy ý và lớn hơn cả số thực dù chỉ nhập số nguyên.”

1. program nhap;

   uses crt;

   var n: string;

   begin

   clrscr;

   write (‘nhap so: ‘);  readln (n);

   writeln (‘gia tri cua so vua nhap la: ‘,n);

   readln;

   end.

   Bình luận

2. Mình làm 2 cách luôn:

   C1: Sử dụng string, giá trị tối đa là 255 chữ số.

   uses crt;
   var s:string;
   begin
   clrscr;
      write(‘Nhap 1 so=’);readln(s);
      writeln(‘So do la: ‘,s);
   readln
   end.

   C2: Sử dụng array of char, giá trị tối đa là 1000000000 chữ số với Window 32 bit

   và 2000000000 chữ số với Window 64 bit .

   uses crt;
   var a:array[1..1000000000]of char; i,n:longint;
   begin
   clrscr;
      write(‘Nhap so luong chu cua so: ‘);readln(n);
      write(‘Nhap so do: ‘);
      for i:=1 to n do read(a[i]);
      writeln(‘So do la: ‘);
      for i:=1 to n do write(a[i]);
   readln
   end.

   Bình luận