Pascal while
napiši program koji upisuje prirodan broy q i zbraja sve neparne znamenke upisanog broja te ispisuje kub njihovog zbroja ako je brojha dvoznamenkast ili kvadrat njihovog broja ako nije
molim pomoć
- +/- sve poruke
- ravni prikaz
- starije poruke gore
16 godina
neaktivan
offline
RE: Pascal while
Evo od mene ideja kako se to radi, ti samo to u kod predočiš (naime ne sjećam se sintakse pascala) :D
unesemo broj q. (readln ako se dobro sjećam)
(da je q cijeli, onda provjera dal je nula ili negativan, ovako ne treba).
integer suma=0; - inicijalizacija sume
boolean dvoznamenkast;
ako je q/100==0 dvoznamenkast=true;
inače dvoznamenkat=false;
dok god je q>0
znamenka=q%10; (ili koji je već operator za ostatak pri dijeljenju)
ako je znameka%2==1 suma=suma+znamenka;
q=q/10; - ovo nam treba da bismo u idućem koraku uzeli iduću znamenku
kraj
ako dvoznamenkast==true ispiši suma*suma*suma
inače ispiši suma*suma
i preporučam da si ovaj algoritam napišeš na papir, uzmeš konkretan broj (npr q=134) i prođeš "na ruke" cijeli algoritam da ga shvatiš.
http://manutd-croatia.com/forum/index.php ... forum i udruga navijača Manchester Uniteda...
Poruka je uređivana zadnji put sri 6.10.2010 22:03 (Luuka).
Pascal while
uh mi to radimo na malo drugačiji nači al nema veze svedno ću dobit 1
16 godina
neaktivan
offline
RE: Pascal while
dinoman255 kaže...
uh mi to radimo na malo drugačiji nači al nema veze svedno ću dobit 1
Glavno da ne odustaješ lako :roll:
http://manutd-croatia.com/forum/index.php ... forum i udruga navijača Manchester Uniteda...
Pascal while
#include <iostream>
using namespace std;
int main(){
int broj=0, zbroj=0, ostatak=0;
cout << "Upisite broj: ";
cin >> broj;
while (broj!=0){
ostatak=broj%10;
if (ostatak%2!=0){
zbroj=zbroj+ostatak;
};
broj=broj/10;
};
cout << "Zbroj neparnih znamenaka: " << zbroj << endl;
if (zbroj>9) cout << "Kub: " << zbroj*zbroj*zbroj << endl;
if (zbroj<=9) cout << "Kvadrat: " << zbroj*zbroj << endl;
system ("pause");
return 0;
};
Ovo ti je taj zadatak u C++. Nije mi se dalo prisjećati sintakse Pascala, ali princip je isti. Nadam se da će ti pomoći. Ako treba budem ti sutra napravio i u Pascalu.