in perl:

$_ = "Hi I am mino From Arabia";
print "\n"," "x(y///c-$i), substr $_,-$i while ($i++<y///c);     

بالبايثون

a= "I test from python"
print a
l=len(a)
for x in range(1,l+1):
    print len(a[0:l-x])*" "+a[l-x:l]

حل php

للمتبجحين بالحلول المعقدة للغتهم....

<?php
    $s='Hi I am mino From Arabia';$t='le';$h='s';$f=$h.'tr';$j=$h.'ub'.$f;$t=$f.$t.'n';$n="\n";$l=$t($s);for($i=1;$i<$l;$i++)$b.=$j($s,$l-$i).$n;echo"$s$n$b$s"; 
?>

حل آخر

<?php
    print p('Hi I am mino From Arabia');function p($L,$A=array()){$c='count';$s=strlen($L);$A[]=substr($L,-$c($A)-1);return$s==$c($A)?"$L\n".implode("\n",$A):p($L,$A);}
?>

صعوبة قراءة الكود في أي لغة برمجة

عيب وليس ميزة

<div id="HI">Hi I am mino From Arabia</div>
<script>
var str = 'Hi I am mino From Arabia';
var length = str.length;
for (var i = 0;i <= length;i++) {
document.getElementById('HI').innerHTML += ('&nbsp;'.repeat(length-i)) + str.substr(str.length-i) + '<br>';
}
String.prototype.repeat = function( num )
{
    return new Array( num + 1 ).join( this );
}
</script>

ما رأيك لو غيرنا الشكل قليلاً :]

<?php
$str = 'Hi I am mino From Arabia';
$len = strlen($str);
echo '<pre>'.$str.'  '.$str."\r\n" ;
for($i=1;$i<$len;$i++){
    echo str_pad(substr($str,$len-$i),$len," - ", STR_PAD_LEFT). '  '.
    str_pad(ltrim(substr($str, $len - $i),' '), $len, ' - ',STR_PAD_RIGHT).
    '<br>';
}
echo $str.'  '.$str.'</pre>' ;
echo '<pre>' ;
for($i=1;$i<$len;$i++){
    echo str_pad(substr($str,0,$len-$i),$len," - ", STR_PAD_LEFT). '  '.
    str_pad(ltrim(substr($str,0, $len - $i),' '), $len, ' - ',STR_PAD_RIGHT).
    '<br>';
}
echo $str.'  '.$str.'</pre>' ;
?>

الحل الأول بلغة بايثون

s='Hi I am mino From Arabia'
l=len(s)
for i in range(1, l+1): print (" "*(l-i))+s[-i:]

في كلا الكودين في موضوعك توجد ثلاث حلقيات تكرار، هل لا بد منها ؟

كما ترى في مثالي بالجافاسكربت وأيضا بالـ php يمكن الحصول على نفس النتيجة بحلقية تكرار واحدة!

أو لنقل أني تجاوزت حلقية التكرار الثانية للفراغات، لكن لماذا 3 حلقيات تكرار ؟

هذا الحل بلغة الجافا

https://drive.google.com/fi...

وهذا الكود

public static void main(String[] args) {
    StringBuilder s = new StringBuilder("                          ");
    String c="Hi i am ahmed from algeria";
    System.out.println(c);
    for (int i = s.length()-1; i >= 0; i--) {
        s.replace(i, i+1,c.substring(i, i+1) );
        System.out.println(s);
    }
}

recursive methods: كود Java

public static String space(int i) {
    if(i == 1) {
        return "";
    }
    return " " + space(--i);
}

public static String sub(String str, int i) {
    if (str.length() == 0) {
        return "";
    }
    return  sub(str.substring(1), ++i)  + space(i) + str + "\n";
}

public static void main(String[] args) {
    System.out.print(sub("Hi I am mino From Arabia", 0));
}

-- In Haskell
import Data.List(tails)
let s = "Hi I am mino From Arabia" in mapM_ print$reverse$map(\x->(replicate((length s)-length x)' ')++x)$tails s 

اطول قليلا من نسختي في ال perl إلا أنها أجمل :D

بالـ PHP ;)

$s = 'Hi I am MEDZ From Arabia';

for ( $i=0; $i<=mb_strlen($s); $i++) {

    if ( substr(substr($s, -$i), 0,1) == ' ' ) continue;

    echo '<div style="text-align:right;">'.substr($s, -$i).'</div>';

}

روبي

s = "hi i am mino from arabia"
puts s.length.times.map{|x|' '*x+s[x..s.length]}.reverse

'Hi I am mino From Arabia'=~/^.*(.+)$(??{printf"%*s\n",length,$1})/

67 بايت (perl). ~ ضحكات شريرة متقطعة~.

لو أحد عمل نسخة أقصر رجاء المراسلة. ربما يمكنني توفير بعض الحروف الأخرى.

محاولتي بـ ++C

#include <iostream>
using namespace std;
char str[] = "Hi I am mino From Arabia";
int main()
{
    char *pstr;
    pstr = str + sizeof(str) - 1;
    cout << str << endl;
    while(pstr != str - 2)
    {
        for(int i=pstr - str; i>0 ; i--)
            cout << " ";
        cout << pstr << endl;
        --pstr;
    }
    return 0;
}

بدون دول

الحل بتاعي PHP بس ماعرفت اسوي الفراغات بين الاحرف.

<?php

$name = 'Hi I am mino From Arabia';

$strlen = strlen($name);

for($i=0; $i<=$strlen; $i++){
    echo substr($name, $i, $strlen).'<br>';
}

?>

وهذا بــ PHP . ونفس الفكره ايضا بأى لغه :))

المشكله ليست فى اللغه ... المشكله فيمن يستخدم اللغه إما يعقدها ويجعل الاخرون يكرهونها .. أو العكس :))

http://i.imgur.com/djMispk.png

#include <stdio.h>
i;main(n){char s[]="Hi I am mino From Arabia";n=sizeof s;while(i++<n)printf("%*s\n",n,s+n-i);}

بـالسي واكتفي بهذا القدر :D

VBA

Dim TheTex As String

Dim TheLe, StrtFrom As Long

StrtFrom = 1

TheTex = "Hi I am mino From Arabia"

TheLe = Len(TheTex)

    While StrtFrom <= TheLe
            AreaShow = AreaShow & vbNewLine & Right(TheTex, StrtFrom)
            StrtFrom = StrtFrom + 1
    Wend

ألا يوجد هنا من يُجرب بسويفت؟

حاولت، لكن لم استطيع P:

ماهو مترجم الباسكال الذي استخدمته؟

<?php

echo "<pre>";

echo $string = "We Are Future Programmers."; $array = str_split($string); // spilting the string in array // loop for the lines equal the length of my string for($i=strlen($string); $i >= 0; $i--){ //loop for check every character for ($x=0; $x <= strlen($string); $x++) { // check if the character in reverse equal the line number if($x >= $i && $x < strlen($string)){ echo $array[$x]; } else{ echo " "; } } echo "";

}

?>

تجربتي مع C++ :)

#include "stdafx.h"
#include <iostream>
#include <string>

using namespace std;


  int _tmain(int argc, _TCHAR* argv[])
  {
int i;
int s;
string str;
cout << "Enter Your Name: ";
getline(cin, str);
cout << "Your Name: " << str << endl;

int n = str.length();
for (i = n; i >= 0; i--)
{
    int s=0;
    while (s++ < i)
        cout << " ";

    for (s = i; s <= n; s++)
        cout << str[s];
    cout << endl;
}
cout << endl;
system("PAUSE");
return 0;
  }

باستخدام لغتي المفضلة Lua وبكل بساطة: لتجربة الكود الصقه في: http://www.lua.org/demo.html

m = "Hi I am Mustafa From Arabia"
itr = #m-1   
for i=1,#m do
   s=string.sub(m, -i)
   space = string.rep(" ", itr)
   print(space..s)
   itr = itr - 1
end

السلام عليكم، الحل بلغة C++ :

include

using namespace std;

int main()

{

char txt [25]="Hi I am mino From Arabia"; int i,o=0;
for(i=23 ; i>=0 ; i--)
{int a=i, v=0;
    do {cout<<" ";v++;}while(v<=i);
    do {cout<<txt[a];a++;} while(a<25);cout<<endl;}
system("pause");
return 0;

}

السلام عليكم

هذا ماستطعت الوصول إليه السي شارب:

{

        string arabia = "i am ghani from arabia";
        for (int i = arabia.Length-1; i >0; i--) {
            string sub = arabia.Substring (i,arabia.Length - i);
            if (arabia [i]!=' ') 
                Console.WriteLine (sub.PadLeft(arabia.Length,' ')); 
        }

بتعديل بسيط :

{

        string arabia = "i am ghani from arabia";
        for (int i = arabia.Length-1; i >0; i--) {
            string sub = arabia.Substring (i,arabia.Length - i);
            if (arabia [i]!=' ') Console.WriteLine (sub.PadLeft(arabia.Length,' ')); 
        }
        Console.WriteLine (arabia);

++by c

include

using namespace std;

int main()

{ int m;

string k = " hi i am m";

for(int i=9;i>=0;i--) {for(int j=i;j>=0;j--) cout<<" ";

cout<<k[i];m=i; while(m!=9) {m++;cout<<k[m]; };cout<<endl;}

}

قاعد اقلب المواضيع القديمة فوجدت هذا الموضوع الجميل

وأحببت مشاركتكم بلغتي المفضلة lua

w = "Hi I am Waseem From Arabia"

for i=#w,1 , -1 do

print (string.rep(" ", i)..string.sub(w, i))

end

لتجربة الكود

http://www.lua.org/cgi-bin/...

رغم أن التحدي قديم، لكني كنت أبحث عن تحديات لأتمرن عليها، فوقعت على هذا التحدي.

وهذا حللته بلغة السي، وقد جعلت النص الذي سيعرض، هو ما سيمرر كمعاملات إلى البرنامج ليصبح أكثر مرونة:

/*By the name of Allah
 * this program is completed in: 24/2/1436
 * By mujahid
 */ 

#include <stdio.h>
#include <string.h>
#include <stdlib.h>

int main (int argc,char **argv){
    if(argc<2){
        printf("Print your text!\n");
        return -1;
    }
    size_t len=0;
    for(size_t i=1;i<argc;i++)
        len+=strlen(argv[i]);
    len+=argc-2;
    char *txt=malloc(len+1),*txt2=malloc(len+2);
    if(txt==NULL||txt2==NULL){
        printf("Error in memory!\n");
        return -1;
    }
    *txt=0;*txt=0;
    int i1=1;
    do{
        strcat(txt,argv[i1]);
        strcat(txt," ");
    }
    while(++i1<argc);
    txt[strlen(txt)-1]=0;
    printf("%s\n",txt);
    len=strlen(txt);
    for(int i=len-1;i>=0;i--){
        for(int i3=0;i3<len;i3++){
            if(i3<i){
                strncat(txt2," ",1);
            }
            else{
                strncat(txt2,txt+i3,1);
            }
        }
        printf("%s\n",txt2);
        *txt2=0;
    }
    free(txt2);free(txt);
    return 0;
}

....

....