10 PRINT "HELLO WORLD" 20 END
program Hello (input, output) begin writeln ('Hello World') end.
(defun hello (print (cons 'Hello (list' World))))
#include <stdio.h> void main (void) { char * message [] = {"Hello", "World"}; int i; for (i = 0; i <2; ++ i) printf ("% s", message [i]); printf ("\ n"); }
#include <iostream.h> #include <string.h> class string { private: int size; char * ptr; public: string (): size (0), ptr (new char ('\ 0')) {} string (const string & s): size (s.size) { ptr = new char [size + 1]; strcpy (ptr, s.ptr); } ~ string () { delete [] ptr; } friend ostream & operator << (ostream &, const string &); string & operator = (const char *); }; ostream & operator << (ostream & stream, const string & s) { return (stream << s.ptr); } string & string :: operator = (const char * chrs) { if (this! = & chrs) { delete [] ptr; size = strlen (chrs); ptr = new char [size + 1]; strcpy (ptr, chrs); } return (* this); } int main () { string str; str = "Hello World"; cout << str << endl; return (0); }
[ uuid (2573F8F4-CFEE-101A-9A9F-00AA00342820) ] library LHello { // bring in the master library importlib ("actimp.tlb"); importlib ("actexp.tlb"); // bring in my interfaces #include "pshlo.idl" [ uuid (2573F8F5-CFEE-101A-9A9F-00AA00342820) ] cotype THello { interface IHello; interface IPersistFile; }; }; [ exe, uuid (2573F890-CFEE-101A-9A9F-00AA00342820) ] module CHelloLib { // some code related header files importheader (<windows.h>); importheader (<ole2.h>); importheader (<except.hxx>); importheader ("pshlo.h"); importheader ("shlo.hxx"); importheader ("mycls.hxx"); // needed typelibs importlib ("actimp.tlb"); importlib ("actexp.tlb"); importlib ("thlo.tlb"); [ uuid (2573F891-CFEE-101A-9A9F-00AA00342820), aggregatable ] coclass CHello { cotype THello; }; }; #include "ipfix.hxx" extern HANDLE hEvent; class CHello: public CHelloBase { public: IPFIX (CLSID_CHello); CHello (IUnknown * pUnk); ~ CHello (); HRESULT __stdcall PrintSz (LPWSTR pwszString); private: static int cObjRef; }; #include <windows.h> #include <ole2.h> #include <stdio.h> #include <stdlib.h> #include "thlo.h" #include "pshlo.h" #include "shlo.hxx" #include "mycls.hxx" int CHello :: cObjRef = 0; CHello :: CHello (IUnknown * pUnk): CHelloBase (pUnk) { cObjRef ++; return; } HRESULT __stdcall CHello :: PrintSz (LPWSTR pwszString) { printf ("% ws \ n", pwszString); return (ResultFromScode (S_OK)); } CHello :: ~ CHello (void) { // when the object count goes to zero, stop the server cObjRef--; if (cObjRef == 0) PulseEvent (hEvent); return; } #include <windows.h> #include <ole2.h> #include "pshlo.h" #include "shlo.hxx" #include "mycls.hxx" HANDLE hEvent; int _cdecl main ( int argc, char * argv [] ) { ULONG ulRef; DWORD dwRegistration; CHelloCF * pCF = new CHelloCF (); hEvent = CreateEvent (NULL, FALSE, FALSE, NULL); // Initialize the OLE libraries CoInitializeEx (NULL, COINIT_MULTITHREADED); CoRegisterClassObject (CLSID_CHello, pCF, CLSCTX_LOCAL_SERVER, REGCLS_MULTIPLEUSE, & dwRegistration); // wait for an event to stop WaitForSingleObject (hEvent, INFINITE); // revoke and release the class object CoRevokeClassObject (dwRegistration); ulRef = pCF-> Release (); // Tell OLE we are going away. CoUninitialize (); return (0); } extern CLSID CLSID_CHello; extern UUID LIBID_CHelloLib; CLSID CLSID_CHello = {/ * 2573F891-CFEE-101A-9A9F-00AA00342820 * / 0x2573F891, 0xCFEE, 0x101A, {0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20} }; UUID LIBID_CHelloLib = {/ * 2573F890-CFEE-101A-9A9F-00AA00342820 * / 0x2573F890 0xCFEE, 0x101A, {0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20} }; #include <windows.h> #include <ole2.h> #include <stdlib.h> #include <string.h> #include <stdio.h> #include "pshlo.h" #include "shlo.hxx" #include "clsid.h" int _cdecl main ( int argc, char * argv [] ) { HRESULT hRslt; IHello * pHello; ULONG ulCnt; IMoniker * pmk; WCHAR wcsT [_MAX_PATH]; WCHAR wcsPath [2 * _MAX_PATH]; // get object path wcsPath [0] = '\ 0'; wcsT [0] = '\ 0'; if (argc> 1) { mbstowcs (wcsPath, argv [1], strlen (argv [1]) + 1); wcsupr (wcsPath); } else { fprintf (stderr, "Object path must be specified \ n"); return (1); } // get print string if (argc> 2) mbstowcs (wcsT, argv [2], strlen (argv [2]) + 1); else wcscpy (wcsT, L "Hello World"); printf ("Linking to object% ws \ n", wcsPath); printf ("Text String% ws \ n", wcsT); // Initialize the OLE libraries hRslt = CoInitializeEx (NULL, COINIT_MULTITHREADED); if (SUCCEEDED (hRslt)) { hRslt = CreateFileMoniker (wcsPath, & pmk); if (SUCCEEDED (hRslt)) hRslt = BindMoniker (pmk, 0, IID_IHello, (void **) & pHello); if (SUCCEEDED (hRslt)) { // print a string out pHello-> PrintSz (wcsT); Sleep (2000); ulCnt = pHello-> Release (); } else printf ("Failure to connect, status:% lx", hRslt); // Tell OLE we are going away. CoUninitialize (); } return (0); }
#! / usr / local / bin / perl $ msg = "Hello, world. \ n"; if ($ # ARGV> = 0) { while (defined ($ arg = shift (@ARGV))) { $ outfilename = $ arg; open (FILE, ">". $ outfilename) || die "Can't write $ arg: $! \ n"; print (FILE $ msg); close (FILE) || die "Can't close $ arg: $! \ n"; } } else { print ($ msg); } one;
#include <stdio.h> #define S "Hello, World \ n" main () {exit (printf (S) == strlen (S)? 0: 1);}
% cc -o a.out ~ / src / misc / hw / hw.c % a.out
% echo "Hello, world."
10 PRINT "HELLO WORLD" 20 END
mail -s "Hello, world." bob @ b12 Bob, you could write a program that prints "Hello, world. "? I need it by tomorrow. ^ D
% zmail jim I need a "Hello, world." program by this afternoon.
% letter letter: Command not found. % mail To: ^ X ^ F ^ C % help mail help: Command not found. % damn! !: Event unrecognized % logout
Source: https://habr.com/ru/post/75347/
All Articles