Delphi 實現劉謙春晚魔術

来源:https://www.cnblogs.com/homejun/p/18018009
-Advertisement-
Play Games

本文分享自華為雲社區《Go併發範式 流水線和優雅退出 Pipeline 與 Cancellation》,作者:張儉。 介紹 Go 的併發原語可以輕鬆構建流數據管道,從而高效利用 I/O 和多個 CPU。 本文展示了此類pipelines的示例,強調了操作失敗時出現的細微之處,並介紹了乾凈地處理失敗的 ...


看了博友的C# 實現劉謙春晚魔術很好,改成了delphi版的。 

  1 program Project1;
  2 
  3 {$APPTYPE CONSOLE}
  4 {$R *.res}
  5 
  6 uses
  7   System.SysUtils,
  8   System.Classes;
  9 
 10 var
 11   list, removeElement: TStringList;
 12   i, NameCount, insertIndex, directCount, sexCount: Integer;
 13   tmp, element, hiddenEle1, hiddenEle2: String;
 14 
 15 procedure Fun1(NameCount: Integer);
 16 begin
 17   if NameCount < list.Count then
 18   begin
 19     for i := 0 to NameCount - 1 do
 20     begin
 21       element := list[0]; // 獲取第0個元素
 22       list.Delete(0); // 移除第0個元素
 23       list.Add(element); // 將第0個元素添加到最後
 24     end;
 25 
 26   end;
 27 end;
 28 
 29 procedure Fun2(forCount: Integer);
 30 begin
 31   // 被刪除掉的三張牌
 32   removeElement := TStringList.Create;
 33   for i := 0 to forCount - 1 do
 34   begin
 35     removeElement.Add(list[0]);
 36     list.Delete(0);
 37   end;
 38   Writeln(Format('被刪除掉的%D張牌:%s', [forCount, removeElement.CommaText]));
 39   Writeln('刪除之後:' + list.CommaText);
 40 
 41   // 把拿到的三張牌插到中間
 42   Randomize;
 43   insertIndex := Random(list.Count - 1) + 1; // 生成一個介於第一個和倒數第二個位置之間的隨機插入位置
 44   Writeln('插入位置:' + insertIndex.ToString);
 45   for i := removeElement.Count - 1 downto 0 do
 46   begin
 47     list.Insert(insertIndex, removeElement[i]);
 48   end;
 49 
 50 end;
 51 
 52 procedure Fun3();
 53 begin
 54   // 藏起來第一張牌
 55   hiddenEle1 := list.Strings[0];
 56   list.Delete(0);
 57 end;
 58 
 59 procedure Fun4(Count: Integer);
 60 begin
 61   for i := 0 to Count - 1 do
 62   begin
 63     list.Delete(0);
 64   end
 65 end;
 66 
 67 procedure Fun5();
 68 begin
 69   for i := 0 to 6 do
 70   begin
 71     element := list[0];
 72     list.Delete(0);
 73     list.Add(element);
 74   end;
 75 end;
 76 
 77 function Fun6(sexCount: Integer): string;
 78 var
 79   forCount: Integer;
 80 begin
 81   forCount := 0;
 82   if sexCount = 1 then
 83     forCount := 5 // 男生要5次
 84   else
 85     forCount := 4;
 86   for i := 0 to forCount - 1 do
 87   begin
 88     // 把第一張牌放到數組最後面 (好運留下來)
 89     element := list[0];
 90     list.Delete(0);
 91     list.Add(element);
 92 
 93     // 煩惱丟出去
 94     list.Delete(0);
 95   end;
 96   result := list[0];
 97 end;
 98 
 99 begin
100   try
101     try
102       list := TStringList.Create;
103       list.CommaText := 'A,B,C,D,A,B,C,D';
104       Writeln('初始牌組:' + list.CommaText);
105       Writeln('請輸入你的名字有幾個字:');
106       ReadLn(tmp);
107       NameCount := tmp.ToInteger;
108 
109       Fun1(NameCount);
110       Writeln('變化之後:' + list.CommaText);
111 
112       Fun2(3);
113       Writeln('插入三張牌後:' + list.CommaText);
114       Fun3();
115       Writeln('藏起來第一張牌後:' + list.CommaText);
116 
117       Writeln('北方-1 南方-2 不南不北-3,請輸入對應數字:');
118       ReadLn(tmp);
119       directCount := tmp.ToInteger;
120       Fun2(directCount);
121       Writeln('南北方人後:' + list.CommaText);
122 
123       Writeln('男-1 女-2,請輸入對應數字:');
124       ReadLn(tmp);
125       sexCount := tmp.ToInteger;
126       Fun4(sexCount);
127       Writeln('男女生後:' + list.CommaText);
128 
129       Fun5();
130 
131       Writeln('見證奇跡後:' + list.CommaText);
132 
133       Writeln('開始好運留下了 煩惱丟出去');
134       hiddenEle2 := Fun6(sexCount);
135       Writeln(Format('牌1:%s  牌2:%s', [hiddenEle1, hiddenEle2]));
136 
137       ReadLn;
138     except
139       on E: Exception do
140         Writeln(E.ClassName, ': ', E.Message);
141     end;
142 
143   finally
144     removeElement.Free;
145     list.Free;
146 
147   end;
148 
149 end.

 


您的分享是我們最大的動力!

-Advertisement-
Play Games
更多相關文章
  • Solana 開發學習之Solana 基礎知識 Install the Solana CLI 相關鏈接 https://docs.solanalabs.com/cli/install https://solanacookbook.com/zh/getting-started/installation ...
  • 前言 當前,微服務架構在很多公司都已經落地實施了,下麵用一張圖簡要概述下微服務架構設計中常用組件。不能說已經使用微服務好幾年了,結果對微服務架構沒有一個整體的認知,一個只懂搬磚的程式員不是一個好碼農。 流量入口Nginx 在上圖中可以看到,Nginx作為整個架構的流量入口,可以理解為一個外部的網關, ...
  • 之前給大家推薦過一些油管上的免費學習資源,如果您還沒有看過的話可以點擊這裡前往。 今天再給大家推薦一批Udemy上超高質量並且免費的編程課程,有需要的小伙伴可以學起來了。 1. JavaScript Essentials 第一門免費課程是:JavaScript Essentials。顧名思義,本課程 ...
  • 在 Java 中,LocalDateTime、Date 和 Instant 分別代表了不同的日期時間類型,它們之間有一些區別和適用場景。 Date: java.util.Date 是 Java 早期的日期時間類,它包含了日期和時間信息,但是在設計上存在一些問題,因此並不推薦在新的代碼中使用。 Dat ...
  • 序言 在數字時代,圖像生成技術正日益成為人工智慧領域的熱點。 本討論將重點聚焦於兩個備受矚目的模型:DALL-E和其他主流AI繪圖方法。 我們將探討它們的優勢、局限性以及未來的發展方向。通過比較分析,我們期望能夠更全面地瞭解這些技術,為未來的研究和應用提供啟示。 Q: 介紹一下 dall-e Ope ...
  • 簡介 git-commit-id-maven-plugin 是一個maven 插件,用來在打包的時候將git-commit 信息打進jar中。 這樣做的好處是可以將發佈的某版本和對應的代碼關聯起來,方便查閱和線上項目的維護。至於它的作用,用官方說法,這個功能對於大型分散式項目來說是無價的。 功能 你 ...
  • 1、下載安裝包首先、進入官網下載安裝包網址:https://www.python.org/downloads/windows/下載步驟:進入下載地址,根據自己的電腦系統選擇相應的python版本 選擇適配64位操作系統的版本(查看自己的電腦操作系統版本), 點擊下載安裝包 也可以下載我百度雲分享的安 ...
  • 在上篇文章中,我們介紹到在多線程環境下,如果編程不當,可能會出現程式運行結果混亂的問題。出現這個原因主要是,JMM 中主記憶體和線程工作記憶體的數據不一致,以及多個線程執行時無序,共同導致的結果。 ...
一周排行
    -Advertisement-
    Play Games
  • 隨著Aspire發佈preview5的發佈,Microsoft.Extensions.ServiceDiscovery隨之更新, 服務註冊發現這個屬於老掉牙的話題解決什麼問題就不贅述了,這裡主要講講Microsoft.Extensions.ServiceDiscovery(preview5)以及如何 ...
  • 概述:通過使用`SemaphoreSlim`,可以簡單而有效地限制非同步HTTP請求的併發量,確保在任何給定時間內不超過20個網頁同時下載。`ParallelOptions`不適用於非同步操作,但可考慮使用`Parallel.ForEach`,儘管在非同步場景中謹慎使用。 對於併發非同步 I/O 操作的數量 ...
  • 1.Linux上安裝Docken 伺服器系統版本以及內核版本:cat /etc/redhat-release 查看伺服器內核版本:uname -r 安裝依賴包:yum install -y yum-utils device-mapper-persistent-data lvm2 設置阿裡雲鏡像源:y ...
  • 概述:WPF界面綁定和渲染大量數據可能導致性能問題。通過啟用UI虛擬化、非同步載入和數據分頁,可以有效提高界面響應性能。以下是簡單示例演示這些優化方法。 在WPF中,當你嘗試綁定和渲染大量的數據項時,性能問題可能出現。以下是一些可能導致性能慢的原因以及優化方法: UI 虛擬化: WPF提供了虛擬化技術 ...
  • 引言 上一章節介紹了 TDD 的三大法則,今天我們講一下在單元測試中模擬對象的使用。 Fake Fake - Fake 是一個通用術語,可用於描述 stub或 mock 對象。 它是 stub 還是 mock 取決於使用它的上下文。 也就是說,Fake 可以是 stub 或 mock Mock - ...
  • 為.net6在CentOS7上面做準備,先在vmware虛擬機安裝CentOS 7.9 新建CentOS764位的系統 因為CentOS8不更新了,所以安裝7;簡單就一筆帶過了 選擇下載好的操作系統的iso文件,下載地址https://mirrors.aliyun.com/centos/7.9.20 ...
  • 經過前面幾篇的學習,我們瞭解到指令的大概分類,如:參數載入指令,該載入指令以 Ld 開頭,將參數載入到棧中,以便於後續執行操作命令。參數存儲指令,其指令以 St 開頭,將棧中的數據,存儲到指定的變數中,以方便後續使用。創建實例指令,其指令以 New 開頭,用於在運行時動態生成並初始化對象。方法調用指... ...
  • LiteDB 是一個輕量級的嵌入式 NoSQL 資料庫,其設計理念與 MongoDB 類似,但它是完全使用 C# 開發的,因此與 C# 應用程式的集成非常順暢。與 SQLite 相比,LiteDB 提供了 NoSQL(即鍵值對)的數據存儲方式,並且是一個開源且免費的項目。它適用於桌面、移動以及 We ...
  • 1 開源解析和拆分文檔 第三方的工具去對文件解析拆分,去將我們的文件內容給提取出來,並將我們的文檔內容去拆分成一個小的chunk。常見的PDF word mark down, JSON、HTML。都可以有很好的一些模塊去把這些文件去進行一個東西去提取。 優勢 支持豐富的文檔類型 每種文檔多樣化選擇 ...
  • OOM是什麼?英文全稱為 OutOfMemoryError(記憶體溢出錯誤)。當程式發生OOM時,如何去定位導致異常的代碼還是挺麻煩的。 要檢查OOM發生的原因,首先需要瞭解各種OOM情況下會報的異常信息。這樣能縮小排查範圍,再結合異常堆棧、heapDump文件、JVM分析工具和業務代碼來判斷具體是哪 ...