Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
janja - naloga 1 - 11.7.2013
//fpc 2.6.2 // naloga 1 - 11.7.2013 program naloga1; uses SysUtils; // knjiznica, ki vsebuje metodo IntToStr - metoda spremeni stevilo v niz // deklaracija variabel var i: integer; niz, stotica, desetica, enica: String; begin i := 0; // na začetku nastavim variablo i na 0, zato da pridem v while zanko. // tako dolgo berem i, dokler uporabnik ne vpiše 3 mestno število while ((i<100) OR (i>999)) do begin write('vnesi trimestno celo število: '); readln(i); // berem vnos writeln(IntToStr(i)); // izpišem vnos if ((i<100) OR (i>999)) then // če je vpisal število ki ni trimestno ga opozorim begin writeln('stevilo ni trimestno'); end; // zanka se ponavlja tako dolgo dokler stevilo ni trimestno - glej pogoj zgoraj end; niz := IntTostr(i); // vneseno stevilo shranim kot niz v variablo "niz" stotica := copy(niz,1,1); // v variablo "stotica" si shranim prvi znak niza desetica := copy(niz,2,1); // v variablo "desetica" si shranim drugi znak niza enica := copy(niz,3,1); // v variablo "enica" si shranim tretji znak niza // funkcija copy deluje tako da dobi vhod niz, prva stevilka je znak od katerega gleda, druga pa koliko znakov gleda -- primer copy('trimestno',4,4) nam vrne 'mest' (* writeln(stotica); writeln(desetica); writeln(enica); *) // tu pa samo pogledam če je stotica večja od desetice.. npr. '8'>'4' ... nizov ni treba nazaj pretvarjati v integer saj compiler to zna že sam. if (stotica>desetica) then writeln('Stotice so vecje od desetic.'); if (desetica>enica) then writeln('Desetice so vecje od enic.'); end.
run
|
edit
|
history
|
help
0
444555666
BubbleSor (slimmer)
Laima
TID_Calculator
Funcion: numero perfecto
JOZIANE NEVES DE SOUZA 600630041
кристина
formato_real
JOAO PEDRO REIS PEREIRA CORREA 600622602
Урок 3 задачи 1, 2 и расширение задачи 2