Xwab
Форумыnavigate_nextДругие языки программирования

Реализация кода на разных языках
Сообщения
iBiZoNiX

Предлагаю писать в этой теме реализацию разного кода на разных языках.
Допустим я пишу код на C#, кто-то пишет тот же код на php,java,python,ruby....

20 Авг 2011, 15:51
ester

А можно на псевдокоде?

20 Авг 2011, 15:54
Sandr

Начнём с простого))
js:
var a = 'ololo';
alert(a);
php:
$a = 'ololo';
echo $a;
python:
a = 'ololo'
print(a)
C++:
int main()
{
string a = 'ololo';
cout<<a;
}

20 Авг 2011, 15:58
iBiZoNiX

Рекурсивный проход по папкам
Python 3

db_files,db_folders,empty_folders = [],[],[]
    def scan(path='C://'):
        if not os.path.exists(path):
            return 'path not exists'
        else:
            files = os.listdir(path)
            if files == []:
                empty_folders.append(path)
            else:
                for file in files:
                    if os.path.isfile(path+file):
                        db_files.append(file)
                    elif os.path.isdir(path+file):
                        db_folders.append(file)
                        scan(path+file+'/')
        return 'System scaning complet'

20 Авг 2011, 16:01
Fever

ActionScript 3:
package {
 public class MyClass {
  public function MyFunc():void {
    var a:String = "ololo";
    trace(a);
   } 
 }
}
AutoIt:
Local $a = "ololo"
MsgBox(0, "", $a)

20 Авг 2011, 16:05
iBiZoNiX

Не забываем давать краткое описания коду  .
добавлено спустя 5 минут:
Ищем слово в файле
Python 3

string = 'Find me'
file = open('a.txt','r').read().split(' ')
if string in file:
    print('string found, YahooOO')

20 Авг 2011, 16:13
Fever

Ищем слово в файле
AutoIt
Local $sString = "FindMe"

$aFile = StringSplit(FileRead("a.txt"), " ")

For $i = 1 To $aFile[0]
   If $aFile[$i] == $sString Then
      MsgBox(0, "", "Found! YahooO")
      Exit
   EndIf
Next

MsgBox(0, "", "Not Found =(")


__________
посл.ред. 20 Авг 2011, 16:23; всего 1 раз 20 Авг 2011, 16:17
TOOZ

NotifyIcon tray = new NotifyIcon();
tray.Icon = new Icon(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) + "\\WindowsMonitor\\WindowsMonitor.ico");
tray.BalloonTipText = "\nЗакрыт процесс: " + instance.ProcessName;
tray.BalloonTipTitle = "Превышение установленных ограничений";
tray.ShowBalloonTip(2000);

Кусок когда моей программы.Функция выполняет отодбражения текста с заданой иконкой в трее
добавлено спустя 3 минуты:
Более изящный метод подсчета строк в файла,без использования циклов и счетчика:
int i = File.ReadAllLines("путь файла").Length;
MessageBox.Show(i.ToString());

^ всё на C#,windows forms.

20 Авг 2011, 16:22
Fever

Более изящный метод подсчета строк в файла,без использования циклов и счетчика:
AutoIt
#include <File.au3>

Local $iLines = _FileCountLines("1.txt")
MsgBox(64, "", "В файле " & $iLines & " строк.")

20 Авг 2011, 16:25
TOOZ

Индийский метод окргуления не целого числа,на C#:
 double d = 100500 / 16.0;
 double d_trunc = double.Parse(d.ToString(".0000"));
 MessageBox.Show(d_trunc.Tostring());

20 Авг 2011, 16:29
Ответить на тему