prosim vas potreboval by som program na tento priklad, v pascale
a=5
vykresli hviezdicky 5x5 do stvorca ale vnutro bude prazdne
a tento -
nacitat z txt. suboru nejake cislo, zistit v akej je najmensej sustave, a potom previest do 10 tkovej sustavy.
Dakujem
pascal program
-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa:
ten prvý by mohol byť takto nejak (nemám tu pascal, je to z hlavy): v tom druhom nájdeš najvyššiu cifru, a podľa toho určíš sústavu. Prevody medzi sústavami tu boli stokrát, pohľadaj.
Kód: Vybrať všetko
var n,i,j:integer;
begin
write('zadaj n: ');
readln(n);
for i:=1 to n do write('*');
writeln;
for i:=1 to n-2 do begin
write('*');
for j:=1 to n-2 do write(' ');
writeln('*');
end;
for i:=1 to n do write('*');
end.
Pascal aritmet. priemer
mam ulohu ze: vypočitajte priemer max 50 zy sebou zadaných kladných čisel. ak chcete ukončiř zadavanie skorej, zadajte zaporne cislo..... vedel by mi s ym niekto pomoct????
-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa:
nj, a aj takéto exempláre ich nakoniec spraviaBX napísal:V troch temach, tri rovnake zadania... vjednej teme uz to mas urobene
btw. toto tu je kazdy rok pred maturami?
Ja by som siel kludne maturovat z informatiky aj zajtra bez akehokolvek ucenia... aj ked som este len v prvaku 
takze jedine
for i := 1 to PocetDniDoMaturit do
if i = PocetDniDoMaturit then ASM cli hlt END else ASM nop END;
- tuna ak akekolvek cislo za "PocetDniDoMaturit" dosadite, len co sa to cislo v loopu dosiahne tak vam procesor v MS-DOSe zamrzne, asembleru zdar
ked som len tak zo srandy cital tie maturitne zadania, no v pohode daju sa... len z matiky budem muset do toho 4taku nejak zabrat, to mavam same 3 a z toho asi budem musiet ist tez maturovat
preco chcu na FIITku (v tomto skolskom roku) maturitu z matiky a take chu**** od nas chcu to mi nejde do hlavy
k tym maturitnym zadaniam, celkom ma pobavila jedna uloha, bolo tam cosi so stringami a tam sa mali urcit vselijake parametre bez funkcii Move, Length atd... tak reku ekvivalent funkcie MOVE sa da spravit blitzschnell v ASM
len nevim co by na to povedal ten z komisie asi by ho trafil slak
takze jedine for i := 1 to PocetDniDoMaturit do
if i = PocetDniDoMaturit then ASM cli hlt END else ASM nop END;
- tuna ak akekolvek cislo za "PocetDniDoMaturit" dosadite, len co sa to cislo v loopu dosiahne tak vam procesor v MS-DOSe zamrzne, asembleru zdarked som len tak zo srandy cital tie maturitne zadania, no v pohode daju sa... len z matiky budem muset do toho 4taku nejak zabrat, to mavam same 3 a z toho asi budem musiet ist tez maturovat
preco chcu na FIITku (v tomto skolskom roku) maturitu z matiky a take chu**** od nas chcu to mi nejde do hlavyk tym maturitnym zadaniam, celkom ma pobavila jedna uloha, bolo tam cosi so stringami a tam sa mali urcit vselijake parametre bez funkcii Move, Length atd... tak reku ekvivalent funkcie MOVE sa da spravit blitzschnell v ASM
Kód: Vybrať všetko
procedure oblbovak(const od, do; pocet: word ); assembler;
asm
mov si,offset od
mov cx,[pocet]
mov di,offset do
rep movsb
end;
function zistidlzkustringu(s: string): byte;
begin
zistidlzkustringu := S[0];
*** alebo ***
asm
mov si,offset s
lodsb
mov @Result,al
end;
end;