MOJAB 24

الگوریتم را پیاده سازی کنید و برنامه را در پاسکال ایجاد کنید. یک آرایه از رکوردهایی با ساختار مشابه با ورودی 11 ایجاد کنید. با توجه به تاریخ و عمق نمونه ها، شماره و محتوای معدن مفید را تعیین کنید و نتایج جستجو را در صفحه نمایش نشان دهید. اگر داده هایی که شرایط جستجو را برآورده می کنند پیدا نشدند، پیام "داده های مورد نظر یافت نشد" را نمایش دهید.

program SearchMines;

type
  MineRecord = record
    date: string;
    depth: integer;
    content: string;
  end;

var
  mines: array[1..11] of MineRecord;
  searchDepth: integer;
  i: integer;
  found: boolean;

begin
  // Fill the array with sample data
  mines[1].date := '2022-01-01';
  mines[1].depth := 100;
  mines[1].content := 'Gold';

  mines[2].date := '2022-01-02';
  mines[2].depth := 200;
  mines[2].content := 'Silver';

  // Add more sample data here

  // Search for mines based on depth
  searchDepth := 200;

  found := false;
  for i := 1 to 11 do
  begin
    if mines[i].depth = searchDepth then
    begin
      writeln('Mine found at depth ', searchDepth, ' with content: ', mines[i].content);
      found := true;
    end;
  end;

  if not found then
    writeln('Data not found');
end.

این برنامه یک آرایه از رکوردهای معدن ایجاد می کند و سپس بر اساس عمق معدن ها جستجو می کند. اگر معدنی با عمق مورد نظر پیدا شود، اطلاعات آن نمایش داده می شود. در غیر این صورت، پیام "داده های مورد نظر یافت نشد" نمایش داده می شود. این برنامه به صورت ساده ای پیاده سازی شده است و می توانید آن را با اضافه کردن بیشتر داده ها و شرایط جستجو بهبود دهید.