Chào mừng quý vị đến với .

Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.

BÀI TẬP VỀ MẢNG MỘT CHIỀU

Wait
  • Begin_button
  • Prev_button
  • Play_button
  • Stop_button
  • Next_button
  • End_button
  • 0 / 0
  • Loading_status
Nhấn vào đây để tải về
Báo tài liệu có sai sót
Nhắn tin cho tác giả
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Trần Thị Kim Dung (trang riêng)
Ngày gửi: 22h:54' 22-10-2010
Dung lượng: 36.0 KB
Số lượt tải: 150
Số lượt thích: 0 người

  Chủ Đề: Một số bài tập Pascal về mảng một chiều


Đề bài: Nhập vào một mảng gồm n số nguyên và số nguyên k. TÌm và đưa ra màn hình:  
   a.Giá trị lớn nhất của mảng, vị trí lớn nhất đó    b. Gía trị nhỏ nhất của màng, vị trí    c. Tính tổng bình phương các giá trị ở vị trí chẵn    d. Sắp xếp mảng theo thứ tự tăng dần
    e. Đếm xem trong mang có bao nhiêu giá trị bằng k.
var a:array[1..200] of integer;   max,min,m,j,n,imin,imax,d,k,s,tg:integer; Begin   write(`Nhap so phan tu:`);readln(n);   write(`Nhap k:`); readln(k);   for m:=1 to n do     begin      write(`Nhap a[`,m,`]=`);readln(a[m]);     end;   max:=a[1];min:=a[1];d:=0;s:=0;imin:=1;imax:=1;   for m:= 2 to n do     begin      if a[m]>max then         begin          max:=a[m];          imax:=m;         end;       if a[m]a[j] then           begin            tg:=a[m];            a[m]:=a[j];            a[j]:=tg;           end;        Writeln(`Gia tri lon nhat cua day la `, max,` o vi tri`,imax);        Writeln(`Gia tri nho nhat cua day la `, min,` o vi tri`,imin);        Writeln(`Tong binh phuong cac so o vi tri chan `,s);        writeln(`So phan tu co gia tri bang `,k,` la `,d);        Writeln(`Mang sau khi sap xep`);        for m:=1 to n do         write(a[m]);     readln;     End.
{Tim doan dai nhat gom cac so 0 lien tiep} var a:array[1..100] of integer;    n,dem,i,j,tong,max,vt:integer; begin  write(`Nhap so phan tu cua mang:`);readln(n);  for i:=1 to n do    begin     write(`Nhap a[`,i,`]:`);readln(a);     end;      dem:=0;      for i:=1 to n do      begin      if a =0 then dem:=dem+1      else dem:=0;      if dem>max then max:=dem;      end;     write(`Doan dai nhat gom cac so 0 lien tiep la `,max);     readln;     end. {Kiem tra mot day la cap so cong} var a:array[1..100] of integer; d,i,n:integer; kt:boolean; begin write(`Nhap n:`);readln(n); for i:=1 to n do   begin    write(`Nhap a[`,i,`]:`);readln(a);   end; kt:=true;i:=3;  d:=a[2]-a[1]; while (i<=n) do  begin  if a-a[i-1] <>d then kt:=false;  inc(i);  end;  if kt then write(`day la cap so cong`)  else   write(`day khong la csc`);  readln;  end. {Tim day con tang co tong lon nhat, in ra day con do} var a:array[1..100] of integer;    n, i,j,tong,max,vt:integer; begin  write(`Nhap so phan tu cua mang:`);readln(n);  for i:=1 to n do    begin     write(`Nhap a[`,i,`]:`);readln(a
 
Gửi ý kiến