Các bài tập Pascal cơ bản đến nâng cao
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Các bài tập Pascal cơ bản đến nâng cao

Các bài tập Pascal cơ bản đến nâng cao được đăng ở dây


Bài tập mảng 5

Các bài tập Pascal cơ bản đến nâng cao :: Mảng
Go down
ThienanAdmin
ThienanAdmin
Người điều hành
Người điều hành
Posts : 18
Join date : 30/04/2024
Age : 12
https://pascalbaitap.forumvi.com
+

Bài tập mảng 5 Empty Bài tập mảng 5

Thu Jun 27, 2024 8:55 pm
Bài tập : 1
Code:
uses crt;

var
  n: integer;
  a: array[1..100] of integer;
  i, j: integer;
  temp: integer;

begin
Clrsclr;
  Write('Nhap so phan tu cua mang: ');
  Readln(n);

  for i := 1 to n do
  begin
    Write('Nhap phan tu thu ', i, ': ');
    Readln(a[i]);
  end;

  for i := 1 to n - 1 do
  begin
    for j := i + 1 to n do
    begin
      if a[i] < a[j] then
      begin
        temp := a[i];
        a[i] := a[j];
        a[j] := temp;
      end;
    end;
  end;

  Writeln('Mang sau khi sap xep giam dan: ');
  for i := 1 to n do
  begin
    Write(a[i], ' ');
  end;
end.
Bài tập 2: Cho biết mảng có bao nhiêu số chẵn
Code:
uses crt;
var
  n: integer;
  a: array[1..100] of integer;
  i: integer;
  demSoChan: integer;

begin
Clrscr;
  Write('Nhap so phan tu cua mang: ');
  Readln(n);

  for i := 1 to n do
  begin
    Write('Nhap phan tu thu ', i, ': ');
    Readln(a[i]);
  end;

  demSoChan := 0;
  for i := 1 to n do
  begin
    if a[i] mod 2 = 0 then
    begin
      demSoChan := demSoChan + 1;
    end;
  end;

  Writeln('Mang co ', demSoChan, ' so chan.');
end.
Bài tập 3:Nhập số nguyên k, xóa số hạng thứ k vừa nhập của mảng đã sắp xếp.
Code:
 uses crt;
var
  n: integer;
  a: array[1..100] of integer;
  i: integer;
  k: integer;

begin
Clrscr;
  Write('Nhap so phan tu cua mang: ');
  Readln(n);

  for i := 1 to n do
  begin
    Write('Nhap phan tu thu ', i, ': ');
    Readln(a[i]);
  end;

  for i := 1 to n - 1 do
  begin
    for j := i + 1 to n do
    begin
      if a[i] < a[j] then
      begin
        temp := a[i];
        a[i] := a[j];
        a[j] := temp;
      end;
    end;
  end;

  Write('Nhap k: ');
  Readln(k);

  for i := k to n - 1 do
  begin
    a[i] := a[i + 1];
  end;

  n := n - 1;

  Writeln('Mang sau khi xoa phan tu thu ', k, ': ');
  for i := 1 to n do
  begin
    Write(a[i], ' ');
  end;
end.
Bài tập:4 d) Viết chương trình nhập 1 số nguyên dương n, cho biết n có phải là số chính phương không?
Code:
 uses crt;
var
  n: integer;
  i: integer;
  flag: boolean;

begin
Clrscr;
  Write('Nhap so nguyen dương n: ');
  Readln(n);

  flag := False;
  i := 1;
  while i * i <= n do
  begin
    if n = i * i then
    begin
      flag := True;
      Break;
    end;
    i := i + 1;
  end;

  if flag then
  begin
    Writeln(n, ' la so chinh phuong.');
  end
  else
  begin
    Writeln(n, ' khong phai la so chinh phuong.');
  end;
end.
Shocked Shocked Shocked
Lưu ý code sai tự sửa , lười Cool
ThienanAdmin
ThienanAdmin
Người điều hành
Người điều hành
Posts : 18
Join date : 30/04/2024
Age : 12
https://pascalbaitap.forumvi.com
+

Bài tập mảng 5 Empty Re: Bài tập mảng 5

Thu Jun 27, 2024 8:56 pm
fix: đề bài 1 :Sắp xếp mảng theo thứ tự giảm dần
Về Đầu Trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết