Берілген есептерді Паскаль тіліне аудару керек. Есептердің берілгені ішінде....==>>> [жабық]

Question

1). Екі таңбалы сан берілген. Анықта: А) олардың қайсысының цифры көп? :біріншісі не екіншісінің?.  Б)олардың цифрлары бірдейма?.  *(мына есеп шартты оператор арқылы шығу керек)*
2).  6 күндегі дүкендердегі сатылған бес түрлі тауарлардың әр данасының бағасы және әр тауардың жалпы саны белгілі. А) 6 күндегі дүкеннің жалпы кірісі.... Б) 6 күнде тауардың қай түрінен ең көп кіріс түскен....  *(мына есеп Берілгендердің реттік типі арқылы шығу керек.)*
3). Екі бүтін сандардан тұратын реттелген тізбек жиындары берілген: a1,a2,...,a8  және  b1,b2,...,b8. Біріншісінен жұп сандарды, екіншісінен тақ сандарды анықта.*(бұл есеп процедура арқылы шығу керек)*.
4). Екі бүтін сандардан тұратын реттелген тізбек жиындары берілген: a1,a2,...,a8  және  b1,b2,...,b8. Біріншісінен жұп сандарды, екіншісінен тақ сандарды анықта.*(жұп сандарды анықтайтын функцияны анықта.) (бул есепті Функция - рекурсивті функциялар арқылы шығару керек.)*
Блок-схемасын білсеңіздер қалдырыңыздаршы. Аллах разылығы үшін жамағат.!!!!!!!!!!

Answer 1

{$H+}
int1,int2:string;
read(int1,int2);
if length(int1)>length(int2) then write('1 san cifrasi ulken') else  write('2 san cifrasi ulken');
if int1=int2 then write('ekeui ten');
end.
// integer типін string қылып ала беруге болады бұл жерде тек салыстырып жатқаннан.

Comments

көп рахмет.. Аллах  разы болсын өзіңе досым ....!!!!!!!!!!!!

BakDaulet_[Off.PaGe] 25.12.2011 пікір

---

қалған екеуін шығаруға ерінген болатынмын...
сұрақтарыңыз болса:
[email protected]

UPi 25.12.2011 пікір