طفل سوري وجد محبوسا تحت أنقاض منزله لمدة 20 ساعة بعد أن مات جميع أهله ولحسن الحظ لم تسحقه الكتل الخرسانية بفضل من الله ورحمة منه
using namespace System;[/COLOR][/FONT][/LEFT]
[FONT=Tahoma][COLOR=#0000ff][LEFT]using namespace System::Collections;
void PrintValues( IEnumerable^ myCollection );
int main()
{
// Creates and initializes a new Stack.
Stack^ myStack = gcnew Stack;
myStack->Push( "Hello" );
myStack->Push( "World" );
myStack->Push( "!" );
// Displays the properties and values of the Stack.
Console::WriteLine( "myStack" );
Console::WriteLine( "\tCount: {0}", myStack->Count );
Console::Write( "\tValues:" );
PrintValues( myStack );
}
void PrintValues( IEnumerable^ myCollection )
{
IEnumerator^ myEnum = myCollection->GetEnumerator();
while ( myEnum->MoveNext() )
{
Object^ obj = safe_cast<Object^>(myEnum->Current);
Console::Write( " {0}", obj );
}
Console::WriteLine();
}
/*
This code produces the following output.
myStack
Count: 3
Values: ! World Hello
*/Imports System[/COLOR][/FONT][/LEFT]
[FONT=Tahoma][COLOR=#0000ff][LEFT]Imports System.Collections
Imports Microsoft.VisualBasic
Public Class SamplesStack
Public Shared Sub Main()
' Creates and initializes a new Stack.
Dim myStack As New Stack()
myStack.Push("Hello")
myStack.Push("World")
myStack.Push("!")
' Displays the properties and values of the Stack.
Console.WriteLine("myStack")
Console.WriteLine(ControlChars.Tab & "Count: {0}", myStack.Count)
Console.Write(ControlChars.Tab & "Values:")
PrintValues(myStack)
End Sub
Public Shared Sub PrintValues(myCollection As IEnumerable)
Dim obj As [Object]
For Each obj In myCollection
Console.Write(" {0}", obj)
Next obj
Console.WriteLine()
End Sub 'PrintValues
End Class
' This code produces the following output.
'
' myStack
' Count: 3
' Values: ! World Hello
سببتلي مشاكل كتير جدا خصوصا أن انا راجل طموح جدا وصبور بس مبركزش خالص صفر تركيز
أشمعنا الولة ميدو الي مش عارف حاجة بيجيبها وانا لأ 
