Nemojte da zezate čoveka, ne radi se tako programiranje na nivou trećeg razreda srednje škole...
Provaliće profesor.
Citat:
THE_BRAIN: za pocetak neki lak zadatak
unosi se n brojeva treba odrediti aritmeticku sredinu deljivih sa 3.
laganica. sa mod, for,sqrt. :D
Code:
PROGRAM ARS;
VAR
I,S,C,BR:INTEGER;
ARS:REAL;
BEGIN
S:=0;
ARS:=1;
BR:=0;
WRITE('ZA KOLIKO BROJEVA HOCES DA IZRACUNAS PROSEK: ');
READLN(N);
FOR I:= 1 TO N DO
WRITE('UNESI', I,' CLAN NIZA: ');
READLN(C);
IF C MOD 3 = 0 THEN
BEGIN
BR:=BR+1;
S:=S+C;
END;
ARS:=S/BR;
WRITE('ARITMETICKA SREDINA UNETIH BROJEVA JE: ',ARS:5:2);
READLN
END.
Citat:
THE_BRAIN: jaoooo!!!! sutra imam kontrolni i ovaj zadatak (priznajem) ne znam:
napisati program koji izracunava zbir: 1-1/2+1/3-1/4+....1/n.
:(
Code:
PROGRAM ASDFG;
VAR
S,ZNAK,N,I:INTEGER;
BEGIN
S:=0,
ZNAK:=1;
WRITE('UNESI KRAJNJU CIFRU N: ');
READLN(N);
FOR I:= 1 TO N DO
BEGIN
S:=S+ZNAK*1/I;
ZNAK:=-ZNAK;
WRITE('REZULTAT JE: ',S:5);
READLN
END.
Nisam stigao da proverim, ali mislim da će da radi.
Budi pošten, uporan i vredan
i sto posto završićeš bedan.