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

86 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 Üç Kenarı Verilen Bir Üçgenin Alanını Bulma

Delphi 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği

Delphi Bir Stringteki Küçük Harfleri Öne Alma Örneği

Delphi 1'den N'e Kadar Asal Sayıları Bulma Örneği

Delphi Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği