viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím n số nguyên của một dãy số n cũng được nhập từ bàn phím sau đó tính giá trị của các phầ

0 bình luận về “viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím n số nguyên của một dãy số n cũng được nhập từ bàn phím sau đó tính giá trị của các phầ”

1. program oken;

   uses crt;

   var i,n,tich,tong,hieu:longint;

         thuong:real;

         a: array [1..100] of integer;

   begin

   clrscr;

   write(‘nhap so phan tu cua mang: ‘); readln(n);

   tich:=1; thuong:=1; hieu:=0; tong:=0;

   for i:=1 to n do

     begin

       write(‘a[‘,i,’]: ‘); readln(a[i]);

        tong:=tong+a[i];

        hieu:=hieu-a[i];

        thuong:=thuong/a[i];

        tich:=tich*a[i];

      end;

   writeln(‘tong: ‘,tong);

   writeln(‘hieu: ‘,hieu);

   writeln(‘tich: ‘.tich);

   writeln(‘thuong: ‘,thuong:0:3);

   readln;

   end.

   Bình luận

2. Program BTH;
   uses crt;
   var i,n,tich,tong,hieu:longint;
   thuong:real;
   a: array [1..10000] of longint;
   Begin
           clrscr;
           write(‘Nhap n: ‘); readln(n);
           tich:=1;
           thuong:=1;
           hieu:=0;
           tong:=0;
           write(‘a[1]: ‘); readln(a[1]);
           tong:=tong+a[1];
           hieu:=hieu-a[1];
           thuong:=a[1];
           tich:=tich*a[1];
           for i:=2 to n do
           begin
                   write(‘a[‘,i,’]: ‘); readln(a[i]);
                   tong:=tong+a[i];
                   hieu:=hieu-a[i];
                   thuong:=thuong/a[i];
                   tich:=tich*a[i];
           end;
           writeln(‘Tong day so tren la: ‘,tong);
           writeln(‘hieu day so tren la: ‘,hieu);
           writeln(‘tich day so tren la: ‘,tich);
           writeln(‘thuong day so tren la: ‘,thuong:4:2);
           readln;
   end.

   Bình luận