Delphi Bir String İçindeki Sayıların Toplamını Bulma Örneği

65 Okunma Delphi

"Delphi" Programlama dilinde "Bir String İçindeki Sayıların Toplamını Bulma Örneği" ile ilgili kod örneği aşağıda gösterilmiştir. 

program Main;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  input_str: string;
  total, cnt, i: Integer;
  ch: Char;
begin
  input_str := '5:.Yazılım@#8!4..96';
  total := 0;
  cnt := 0;
  for i := 1 to Length(input_str) do
  begin
    ch := input_str[i];
    if ch.IsDigit then
    begin
      total := total + StrToInt(ch);
      cnt := cnt + 1;
    end;
  end;
  WriteLn('Sayıların Toplamı: ', total);
end.
String Sayı Toplam İçinde Rakam Delphi

İlginizi Çekebilir

Delphi Bir Listede Birden Çok Olan Elemanları Göstermek

Delphi Bir Dizi Kullanarak N Sayının Toplamını Bulma Örneği

Delphi Bir Dizi Tam Sayının Ortalamasını Bulma

Delphi Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği

Delphi Bir Dizideki Tek Sayıların Adetini Bulma Örneği