Mówiąc o miłości często mamy na myśli związek dwojga ludzi. Miłość to przede wszystkim szczerość i zaufanie do drugiej osoby. Kochać można także np. komputer, tak jak informatycy. Tylko jak oni wyrażają swoje uczucia? No cóż, mogą napisać program, który wypisze na ekranie monitora słowa „Kocham Cie”. Postanowiłem wziąć szybki kurs kilkudziesięciu języków i napisać za ich pomocą te dwa proste, a jakże piękne słowa 🙂

C

[codesyntax lang=”c”]

#include <stdio.h>
int main (void)
{
	printf("Kocham Cie!");
	return 0;
}

[/codesyntax]

Java

[codesyntax lang=”java”]

public class milosc
{
	public static void main(String[] args)
	{
		System.out.println("Kocham Cie!");
	}
}

[/codesyntax]

C++

[codesyntax lang=”cpp”]

#include <iostream>

int main()
{
	std::cout << "Kocham Cie!";
}

[/codesyntax]

PHP

[codesyntax lang=”php”]

<?php
	echo "Kocham Cie!";
?>

[/codesyntax]

Visual Basic

[codesyntax lang=”vb”]

Private Sub Form_Load()
	MsgBox "Kocham Cie!"
End Sub

[/codesyntax]

C#

[codesyntax lang=”c1″]

class HelloWorldApp
{
	static void Main()
	{
		System.Console.WriteLine("Kocham Cie!");
	}
}

[/codesyntax]

Python

[codesyntax lang=”python”]

print("Kocham Cie!")

[/codesyntax]

Perl

[codesyntax lang=”perl”]

package Hello;
sub new() { bless {} }
sub Hello() { print "Kocham Cie!" }
package main;
my $hello = new Hello;
$hello->Hello();

[/codesyntax]

Delphi

[codesyntax lang=”delphi”]

program Kocham_Cie;
uses
	QDialogs;

begin
	ShowMessage('Kocham Cie!');
end.

[/codesyntax]

JavaScript

[codesyntax lang=”javascript”]

document.writeln('Kocham Cie!');

[/codesyntax]

IDL

[codesyntax lang=”idl”]

print,"Kocham Cie!"

[/codesyntax]

Asembler

[codesyntax lang=”asm”]

bdos    equ    0005H    ; BDOS entry point
start:  mvi    c,9      ; BDOS function: output string
        lxi    d,msg$   ; address of msg
        call   bdos
        ret             ; return to CCP

msg$:   db    'Kocham Cie!$'
end     start

[/codesyntax]

Basic

[codesyntax lang=”basic4gl”]

PRINT "Kocham Cie!"
END

[/codesyntax]

Tcl

[codesyntax lang=”tcl”]

puts "Kocham Cie!"

[/codesyntax]

Lisp

[codesyntax lang=”lisp”]

(write-line "Kocham Cie!")

[/codesyntax]

Scheme

[codesyntax lang=”scheme”]

(display "Kocham Cie!")

[/codesyntax]

Pascal (kod pisał SQEERN)

[codesyntax lang=”pascal”]

program kocham;
uses crt;
clrscr;

begin
	Write('Kocham Cie!');

repeat until keypressed;
end.

[/codesyntax]

Smalltalk

[codesyntax lang=”smalltalk”]

StdoutStream nextPutLine: 'Kocham Cie!'

[/codesyntax]

D

[codesyntax lang=”d”]

import std.stdio ;

void main () {
	writefln("Kocham Cie!");
}

[/codesyntax]

Fortan

[codesyntax lang=”fortran”]

program milosc
	print*, 'Kocham Cie!'
end

[/codesyntax]

Logo

[codesyntax lang=”reg”]

pisz[Kocham Cie!]

[/codesyntax]

Ocaml

[codesyntax lang=”ocaml”]

print_endline "Kocham Cie!" ;;

[/codesyntax]

POV-Ray

[codesyntax lang=”povray”]

#include "colors.inc"
camera {
	location <3, 1, -10>
	look_at <3,0,0>
}
light_source { <500,500,-1000> White }
text {
	ttf "timrom.ttf" "Kocham Cie!" 1, 0
	pigment { White }
}

[/codesyntax]

Ruby

[codesyntax lang=”ruby”]

class String
	def say
		puts self
	end
end
'Kocham Cie!'.say

[/codesyntax]

Windows PowerShell

[codesyntax lang=”powershell”]

[void][System.Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms')
[System.Windows.Forms.MessageBox]::Show("Kocham Cie!")

[/codesyntax]

SAS

[codesyntax lang=”sas”]

data _null_;
put 'Kocham Cie!';
run;

[/codesyntax]

Bash

[codesyntax lang=”bash”]

#!/bin/bash
#define cpp #
cpp $0 2> /dev/null | /bin/bash; exit $?
#undef cpp
#define MILOSC echo "Kocham Cie!"
MILOSC | tr a-z A-Z

[/codesyntax]

SQL

[codesyntax lang=”sql”]

CREATE TABLE message (text char(15));
INSERT INTO message (text) VALUES ('Kocham Cie!');
SELECT text FROM message;
DROP TABLE message;

[/codesyntax]

Haskell

[codesyntax lang=”haskell”]

main = putStrLn "Kocham Cie!"

[/codesyntax]

PL/SQL

[codesyntax lang=”plsql”]

set serveroutput on size 1000000;  -- this is a SQL*Plus command to enable the output buffer
begin
    dbms_output.put_line('Kocham Cie!');
end;

[/codesyntax]

Lua

[codesyntax lang=”lua”]

io.write("Kocham Cie!")

[/codesyntax]

ActionScript 3

[codesyntax lang=”actionscript3″]

package
{
	import flash.display.Sprite;
	public class Milosc extends Sprite
	{
		public function Milosc()
		{
			trace("Kocham Cie!");
		}
	}
}

[/codesyntax]

Ada

[codesyntax lang=”ada”]

with TEXT_IO;

procedure MILOSC is
begin
    TEXT_IO.PUT_LINE ("Kocham Cie!");
end MILOSC;

[/codesyntax]

Uff… Jak widać i informatyk/programista także może wyrazić miłość i to na więcej, niż jeden, czy dwa sposoby jak przeciętny użytkownik Internetu. Według mnie ludzie powinni się od nas uczyć wyrażania swoich emocji 😉

Co do bibliografii – Wiki 🙂