درخواست یه برنامه پاسکال در دلفی

الگوریتم های زیادی وجود داره، چه الگوریتمی تو ویژوال استفاده کردی؟ بگو تا همون رو تبدیل کنیم، تو دلفی هم آسونه ولی پاسکال رو نمی دونم!!!! :46:

Str Reverse

دوستان مشکلم حل شد فقط یه چیز دیگه اگه بخوام مجموعه اعداد زوج یه عددی رو بدست بیارم باید چیکار کنم ضروری

اگر منظورت اینه که یه عدد از کاربر دریافت می کنی و بعدش مجموع اعداد زوج از 2 تا اون عدد رو حساب می کنی، روشش اینه :

کد:

---

Write('Enter the number: ');
  Readln(n);
  r := 0;
  For i:= 1 To n Do Begin
    If (i Mod 2) = 0 Then Begin
      r := r + i;
      Writeln(' - ' + IntToStr(i) + ' is even.');
    End;
  End;
  Writeln('The result is: ' + IntToStr(r));
  Readln;

---

با سلام
با تائید حرف های دوست عزیزم CPUSatan باید بگم.
اگر منظورتون این که مجموع ارقام زوج یک عدد را چاپ کند. به این صورت است :

کد:

---

program test;
var
sum, temp, num : integer;
begin
  write('Enter the number :  ');
  Readln(num);
  sum=0;
  temp=0;
  while(num <> 0)
  begin
    temp=num mod 10;
    num=num div 10;
    if temp mod 2 = 0 then
      sum = sum + temp;
  end;
  write('sum is :  ');
  write(sum);
  getch();
end.

---

* این کد مربوط به turbo pascal 3 است.
البته من کد بالا را تست نکردم و چون فعلا فقط به c# دسترسی دارم این الگوریتم را در c# console نوشتم که جواب داد و بعد ان را به pascal تبدیل کردم (syntax پاسکال و دلفی تقریبا یکی است).
این هم کدش :

کد:

---

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            int num = Int32.Parse(Console.ReadLine());
            int sum = 0;
            int temp = 0;
            while (num != 0)
            {
                temp = num % 10;
                num = num / 10;
                if (temp % 2 == 0)
                    sum+=temp;
            }
            Console.WriteLine(sum.ToString());
            Console.ReadKey();
        }
    }
}

---

با تشکر

ممنون دادا دمت گرم همونی که مال توربو پاسکال بود جواب داد فقط اگه میتونستی برام یه چیزی بنویسی که تعداد صفرهای یه عدد رو حساب کنه عالی میشد که فقط تا همین امشب وقت داشتم

کد:

---

var
  Number, Result: Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Write('Please enter the number: ');
  Readln(Number);
  Result := 0;
  While (Number >= 10) Do Begin
    If (Number Mod 10) = 0 Then
      Inc(Result);
    Number := Number Div 10;
  End;
  Writeln('0 repeated ' + IntToStr(Result) + ' time(s) in entered number.');
  Readln;
end.

---

ممنون البته ساده تر هم میشد نوشت ولی خیلی ممنون

1- منظورت از ساده تر چیه؟
2- واسه هرچیزی الگوریتم های زیادی هستش، اونی که فکر می کنم درست تر و اصولی تره رو می نویسیم
3- جواب رو که می دونستی دیگه چرا پرسیدی پس؟

سلام میخواستم بگم جواب رو فرداش تو دانشگاه فهمیدم!!!

یه سوال کوچولو:

یه عدد و یه کاراکتر رو بگیره اگر کاراکتر V رو وارد کنیم وارونه عدد رو حساب کنه اگر S وارد کردیم مجموعه ارقام زوج اگر هم چیز دیگه ای تایپ شد خود عدد رو نشون بده راستی باید با Case باشه چنتا مرحلش رو خودم انجام دادم ولی خیلی خطا داشت راستی این هم کدهای وارونه و مجموعه ارقام:

وارونه:

کد:

---

    var
    n,s,r:integer;
begin
    write('Adady Ra Vared Konid : ');
    read(n);
    s:=0;
while (n>0) do
begin
    r:=n mod 10;
    n:=n div 10;
    s:=s*10+r;
end;
    writeln('Adade Varone = ',s);
    readln;
    readln;
end.

---

مجموعه ارقام زوج:

کد:

---

var
sum,temp,num:integer;
begin
  write('Adad Ra Vared Konid :  ');
  Readln(num);
  sum:=0;
  temp:=0;
  while(num <> 0)do
begin
    temp:=num mod 10;
    num:=num div 10;
    if temp mod 2 = 0 then
      sum:= sum + temp;
end;
  write('Majmoe Adade Zoj Barabar Ast Ba =  ');
  write(sum);
  readln;
end.

---