simple prog

[Dreadlord]

k ty, onda ce dobiti ceo dist, pa nek se jebavaju :]

Ili prog u fortanu ili c-u?

[reiser]

Evo ti standalone exe, da se ne jebavas sa bibliotekama.

http://rapidshare.com/files/284225937/hemija.exe

{$APPTYPE CONSOLE}


uses

  Windows;


var

  Sc, Si, P, C : Real;

  hndConsole   : THandle;

  Coord		: TCoord;

  lwWritten	: DWORD;


begin

  Coord.X := 0;  Coord.Y := 0;


  repeat

	WriteLn('************************');

	WriteLn('*	Racunanje Sc-a	*');

	WriteLn('************************');

	WriteLn;


	Write('Vrednost Si: ');  ReadLn(Si);

	Write('Vrednost P:  ');  ReadLn(P);

	Write('Vrednost C:  ');  ReadLn(C);

	WriteLn;


	WriteLn('========================');

	WriteLn('  Si = ', Si:0:3);

	WriteLn('  P  = ', P:0:3);

	WriteLn('  C  = ', C:0:3);

	WriteLn('========================');

	WriteLn;


	Sc := C / (4.36 - ((Si + P) * 0.32));


	WriteLn('Sc = C / (4.26 - ((Si + P) * 0.32)) = ', Sc:0:3);

	ReadLn;


	hndConsole := GetStdHandle(STD_OUTPUT_HANDLE);

	FillConsoleOutputCharacter(hndConsole,

							   ' ',

							   GetLargestConsoleWindowSize(hndConsole).X * GetLargestConsoleWindowSize(hndConsole).Y,

							   Coord,

							   lwWritten);

	SetConsoleCursorPosition(hndConsole, Coord);

  until 1 <> 1;							 

end.

[Trooper]

Ili prog u fortanu

lol :)

[GOd]

Napravio sam mu ja u C-u eve koda pa ako neko ima bolju ideju nek prepravi.

#include<stdio.h>

#include<windows.h>

#include<ctype.h>


#define KON1 4.36

#define KON2 0.32


main(){


float VrednostSi = 0, VrednostP = 0, VrednostC = 0, Rezultat = 0;


	while(1){


		system("cls");


		printf("Sc = C / (4.26 - ((Si + P) * 0.32))\n\n");


		do{


		printf("Unesite vrednost Si:\t");


		fscanf(stdin,"%f",&VrednostSi);


		}while(VrednostSi < 0);


			if (GetAsyncKeyState(VK_ESCAPE)) {

						return 0;

						 }




		do{


		printf("\nUnesite vrednost P:\t");


		fscanf(stdin,"%f",&VrednostP);


		}while(VrednostP < 0);


			if (GetAsyncKeyState(VK_ESCAPE)) {


			return 0;


			}




		do{


		printf("\nUnesite vrednost C:\t");


		fscanf(stdin,"%f",&VrednostC);


		}while(VrednostC < 0);


			if (GetAsyncKeyState(VK_ESCAPE)) {


			return 0;


			}




		Rezultat = VrednostC/(KON1-((VrednostSi + VrednostP)*KON2));




		printf("\nRezultat Sc je:\t%.2f\n",Rezultat);




			if (GetAsyncKeyState(VK_ESCAPE)) {


			return 0;


			}




		system("PAUSE");






	}


 return 0;




}

[voodoo_]

Jel ovo takmičenje "kako na što komplikovaniji način napraviti jednostavan program" ili šta? :)

[Trooper]

matoreeeee evo x86 asm ako ti zatreba

v1	db ?

v2	db ?

v3	db ?


mov	ah, 1h

int	21h

mov	v1, al

int	21h

mov	v2, al

int	21h

mov	v3, al


add	v1, v2

mul	v1, 32 

mov	v2, 436

sub	v2, v1

div	v3, v2


mov	dl, v3

mov	ah, 2h

int	21h


hlt

Edited September 24, 2009 by Трупер

[GOd]

Poenta je da se napravi prog da radi lepo tj da nema bagova.

[dNte]

gj svima :)

ovaj vudu savija svaku prirodnu nauku :'(

[Dreadlord]

lol :)

Realno za ovo fortran...

Napravio sam mu ja u C-u eve koda pa ako neko ima bolju ideju nek prepravi.

#include<stdio.h>

#include<windows.h>

#include<ctype.h>


#define KON1 4.36

#define KON2 0.32


main(){


float VrednostSi = 0, VrednostP = 0, VrednostC = 0, Rezultat = 0;


	while(1){


		system("cls");


		printf("Sc = C / (4.26 - ((Si + P) * 0.32))\n\n");


		do{


		printf("Unesite vrednost Si:\t");


		fscanf(stdin,"%f",&VrednostSi);


		}while(VrednostSi < 0);


			if (GetAsyncKeyState(VK_ESCAPE)) {

						return 0;

						 }




		do{


		printf("\nUnesite vrednost P:\t");


		fscanf(stdin,"%f",&VrednostP);


		}while(VrednostP < 0);


			if (GetAsyncKeyState(VK_ESCAPE)) {


			return 0;


			}




		do{


		printf("\nUnesite vrednost C:\t");


		fscanf(stdin,"%f",&VrednostC);


		}while(VrednostC < 0);


			if (GetAsyncKeyState(VK_ESCAPE)) {


			return 0;


			}




		Rezultat = VrednostC/(KON1-((VrednostSi + VrednostP)*KON2));




		printf("\nRezultat Sc je:\t%.2f\n",Rezultat);




			if (GetAsyncKeyState(VK_ESCAPE)) {


			return 0;


			}




		system("PAUSE");






	}


 return 0;




}

Ti si matori opro kolko si ga presvirao

[dvnityCker]

Jel ovo takmičenje "kako na što komplikovaniji način napraviti jednostavan program" ili šta? :)

bas vala

[GOd]

Shta cu kad volim da programiram. A i pitao me chizra da mu napravim u infinite lupu i da se izlazi na escape :D