sastaviti algoritam i program (pomoc)

[nemanja_rs]

Ovako, ako se neko nadje dobar da mi pomogne. Imam 2-3 zadatka iz algoritama i programima. Pa ako moze neko da mi resi na papiru slika i posalje sliku. Hitno mi je, pa bi bilo dobro sto pre da se odgovori. Ako se neko nadje neka javi da mu posaljem zadatke...nisu teski za onoga ko zna da radi. Potrebno je znati while-do ili repeat until!

Jel moze neko da mi pomogne? To je samo 15-ak min. za onog ko zna.

Evo zadaci

http://www.dodaj.rs/f/3J/k8/4iBmd5DO/dsc01686.jpg

SAP - sastaviti algoritam i program

Znaci ako moze sva tri, ako ne bilo koja dva!

 

[danijel00]

omg, ajd sto nisi u stanju da uradis domaci, ali da te je mrzelo 5 redova da prekucas nego kacis sliku...

 

[zeleni_zub]

SAP - sastaviti algoritam i program

Ahaha... SAP je Sastaviti Algoritam i Program. Kada sam video naslov mislio sam da se misli stvarno na SAP i još se pitam ko traži pomoć za SAP na forumu.

Evo ti u C++-u pa ti prevodi u pseudo jezike ako ti treba:


1.

int main(void)
{
	int i = 0;
	int sum = 0;


	for(i=0;i<100;i++) //zbir brojeva od 0 do 99
		sum += i;

	printf("Suma: %d\n", sum);
	return 0;
}

2.

int main(void)
{
	int num;
	int i,n,x;
	double sum = 0.0;

	printf("Duzina niza: ");
	scanf("%d", &n);
	printf("Delilac: ");
	scanf("%d", &x);

	printf("Unesite niz: ");
	for(i=0;i<n;i++)
	{
		scanf("%d", &num);
		if( (num > 0) && (num % x == 0) )
			sum +=num;
	}

	
	
	printf("Suma: %lf\n", sum);

	return 0;
}

3.

int main(void)
{
	double k;
	double num = 1.0;
	int x = 2;

	printf("Unesite k: ");
	scanf("%lf", &k);

	do
	{
		num = num + 1.0/x;
		x++;

	}
	while((k > num) && (x < 10000));

	if( num >= k )
		printf("Iteracija: %d;   broj: %lf\n", x-2, num);
	else
		printf("Broj nije pronadjen u prvih 10000 iteracija.\n");



	return 0;
}

 

[nemanja_rs]

omg, ajd sto nisi u stanju da uradis domaci, ali da te je mrzelo 5 redova da prekucas nego kacis sliku...

Nije me mrzelo da pisem nego sam morao da kucam da bi to kasnije istampao(da bi znao kako izgleda). Nije domace vec neki test iz informatike.....pa sam propustio mnogo u skoli i nzm kako se radi. Pa bi zamolio ako neko moze da mi uradi. Taj test imam u cetvrtak. Hvala

 

[nemanja_rs]

Zeleni moze to jednostavnije posto nzm sta treba da radim. Stvarno nisam isao u skolu 3-4 nedelje. pa sam propustio. Znaci treba mi tablica ono start i na kraju end i program da se napise.....

Ako nije problem. Znam da trazim zdravo na gotovo..ali sta cu frka mi je!

E da radimo to u pascalu...samo sto tablicu crtamo na papiru.

 

[lazony]

ludilo:d
posle neka kazu da nije olaksano skolovanje....skeniras sliku...postavis post...trazis resenje..i ne moras da ides u skolu..bar 3-4 nedelje :whip::whip:

 

[nemanja_rs]

ludilo:d
posle neka kazu da nije olaksano skolovanje....skeniras sliku...postavis post...trazis resenje..i ne moras da ides u skolu..bar 3-4 nedelje :whip::whip:

jeste ali treba da uzmes pitanja.....:eyebrows:

Ajd nek neko pomogne!

 

[taraba]

Ja moram da se javim totalno kao offtopic, jer je ova tema legendarna u najavi. (ili vrlo brzo zaključana :d)

 

[Bahati [SiD]]

Ja moram da se javim totalno kao offtopic, jer je ova tema legendarna u najavi. (ili vrlo brzo zaključana :d)

ovo drugo!

@nemanja_rs: rek'o si sta si imao.
@ostali: dalje bez ot.

 

[zeleni_zub]

Ja ću ti uraditi sva tri, ali pod jednim uslovom. Ja ti ovde postavim Delphi kod za prvi, ti onda nacrtaš algoritam i postaviš ovde. Onda ja uradim drugi, itd...
Sve šta ti nije jasno pitaš. Na taj način možda nešto i naučiš.

 

[nemanja_rs]

Ja ću ti uraditi sva tri, ali pod jednim uslovom. Ja ti ovde postavim Delphi kod za prvi, ti onda nacrtaš algoritam i postaviš ovde. Onda ja uradim drugi, itd...
Sve šta ti nije jasno pitaš. Na taj način možda nešto i naučiš.

Ок..ај покушаћу......само не могу дуго у ноћ идем сутра рано у школу.

 

[zeleni_zub]

OK. Koji Delphi koristiš?

Prvi zadatak:

program Zadatak1;

var
  i: Integer;
  sum: Double;

begin
    sum := 0.0;

    //suma brojeva od 1 do 100
    for i:=1 to 100 do
    begin
      sum := sum + i;
    end;

    WriteLn('Suma: ', sum:12:2);
    ReadLn;
end.